Ayuda con una busqueda....

24/10/2006 - 21:10 por Memento | Informe spam
hola a todos...Estoy realizando un botón de busqueda con el metodo
Find en un formulario en macros de excel, en una hoja como esta:

nrocircuito CLIENTE
PUERTO POS ADS CC PC PL
CAN A1-A
1153 CAN A1-B
1254 FONA A2-A
1299 SANTA TERESA A2-B
0001223 CORBANCA A3-1A 1 56 13 945 382
0001264 BCO CARON A3-2A 2 71 20 1104 880
0002835 CAN A3-3A 3
0001058 BANCO DE LOS ANGELES A3-4A 4 32 20 999
A3-5A
0001166 MINFR A3-6A 6 17 9 1701 575
0001206 ARCOS DORADOS A4-1A 7 1 16 16 582
0006231 MOVILCOM A4-2A 8
0001208 MC DONAL A4-3A 9 1 16 21 583
0001234 CONJ.DE LA JUDICAT A4-4A 10 56 13 1103 315
0001175 MIN PROD. Y COM A4-5A 11 72 14 609 481
0001222 SOFITAS A4-6A 12 71 20 1103 803
0000065 CAN COR A5-1A RE

al buscar el nro de circuito "1153" de ese circuito, tal como cliente,
puerto, pos, ads, cc, pc y pl; al igual si realizo la busqueda dell
circuito 1254 y 1299, pero al buscar el circuito 0001223 no consigo
ninguna información acerca del circuito ¿Por qué? Le cuento que la
tabla del nro de circuito comienza a partir de B2 hasta H2
RESPECTIVAMENTE (donde empieza la columna de pl) . El codigo del botón
de buscar se los doy a continuación:

Private Sub buscar_Click()

If nrocircuito = "" Then
MsgBox "Debe Ingresar N° de Circuito"
nrocircuito.SetFocus
Exit Sub
End If
Sheets("san felipe").Select
Range("b8:b80").Select
While ActiveCell.Value <> Empty
ActiveCell.Offset(1, 0).Select
Wend
ActiveCell.Offset(-1, 0).Select
Dim celda As String
celda = ActiveCell.Address
With Range("b6:" & celda)
Set c = .Find(nrocircuito.Value)
If Not c Is Nothing Then
cliente.Enabled = True
puerto.Enabled = True
pos.Enabled = True
ads.Enabled = True
cc.Enabled = True
pc.Enabled = True
pl.Enabled = True
ter.Enabled = True
kbps.Enabled = True

nrocircuito.Enabled = False

buscar.Enabled = False
cliente = c.Offset(0, 1).Value
puerto = c.Offset(0, 2).Value
pos = c.Offset(0, 3).Value
ads = c.Offset(0, 4).Value
cc = c.Offset(0, 5).Value
pc = c.Offset(0, 6).Value
pl = c.Offset(0, 7).Value


Else

cliente.Enabled = True
puerto.Enabled = True
pos.Enabled = True
ads.Enabled = True
cc.Enabled = True
pc.Enabled = True
pl.Enabled = True


End If
End With

nro de circuito, cliente, puerto, pos, ads, cc, pc y pl son textboxs .
buscar es el botón. quiero buscar todo lo q se coloque en textbox nro
de circuito es decir en nrodecircuito.value

Les agradeceria la mayor ayuda de suu parte.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
25/10/2006 - 06:56 | Informe spam
hola, !

... un boton de busqueda con el metodo Find en un formulario en macros de excel, en una hoja como esta:
nrocircuito CLIENTE PUERTO POS ADS CC PC PL
CAN A1-A
1153 CAN A1-B
1254 FONA A2-A
1299 SANTA TERESA A2-B
0001223 CORBANCA A3-1A 1 56 13 945 382
0001264 BCO CARON A3-2A 2 71 20 1104 880 [...]
al buscar el nro de circuito "1153"... al igual si realizo la busqueda del circuito 1254 y 1299
pero al buscar el circuito 0001223 no consigo ninguna informacion acerca del circuito Por que?
... son textboxs... quiero buscar todo lo q se coloque en textbox nro de circuito es decir en nrodecircuito.value



op1: prueba modificando la linea de tu codigo que dice...
de: -> Set c = .Find(nrocircuito.Value)
a: -> Set c = .Find(nrocircuito)

op2: comentas si [efectivamente] en la tabla el contenido de las celdas INCLUYE los ceros ?

saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida