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.
Leer las respuestas