Macro buscar datos
Hola Luis P, esta pregunta la descartaste porque cometí el error de no formular bien la pregunta, perdona que incista, espero me puedas ayudar.
Tengo una hoja excel desde la celda "A5" hacia abajo tengo nombres que se pueden repetir y desde la celda "B5" hacia abajo tengo cifras (Deudas), a través de un Userforms donde ingreso el nombre a buscar en el Textbox1, me muestre el valor del lado (Columna "B") en el textbox2 con un botón buscar y luego otro botón siguiente para buscar el mismo nombre ingresado en el textbox1, si se repite y me muestre la otra cifra en el textbox2.
Saludos, perdón por quitarte un poco de tu tiempo
Tengo una hoja excel desde la celda "A5" hacia abajo tengo nombres que se pueden repetir y desde la celda "B5" hacia abajo tengo cifras (Deudas), a través de un Userforms donde ingreso el nombre a buscar en el Textbox1, me muestre el valor del lado (Columna "B") en el textbox2 con un botón buscar y luego otro botón siguiente para buscar el mismo nombre ingresado en el textbox1, si se repite y me muestre la otra cifra en el textbox2.
Saludos, perdón por quitarte un poco de tu tiempo
1 Respuesta
Respuesta de Luis_P
1
Option Explicit
Dim f As Integer
Private Sub CommandButton1_Click()
Dim r As Range
Dim t As Integer
'4c7569735f50
t = Application.WorksheetFunction.CountA(Range("A5:A65536")) + 4
If f = 0 Then f = 5
For Each r In Range("A" & f & ":" & "A" & t)
r.Select
f = (r.Row + 1)
If f >= t Then f = 5
If UCase(Trim(TextBox1)) = UCase(Trim(r)) Then TextBox2 = r.Offset(0, 1): Exit For
Next
Set r = Nothing
End Sub
Dim f As Integer
Private Sub CommandButton1_Click()
Dim r As Range
Dim t As Integer
'4c7569735f50
t = Application.WorksheetFunction.CountA(Range("A5:A65536")) + 4
If f = 0 Then f = 5
For Each r In Range("A" & f & ":" & "A" & t)
r.Select
f = (r.Row + 1)
If f >= t Then f = 5
If UCase(Trim(TextBox1)) = UCase(Trim(r)) Then TextBox2 = r.Offset(0, 1): Exit For
Next
Set r = Nothing
End Sub
