Me gustaría saber como hacer para buscar con una ID de la columna A:1 en textbox 1, y que rellene el textbox 2, 3, 4 y 5 en toda
Set Rango = Range("A:A").Find(what:=TextBox1, _
LookAt:=xlWhole, LookIn:=xlValues)
If Rango Is Nothing Then
MsgBox "El dato no fue encontrado", vbOKOnly + vbInformation, "AVISO"
TextBox1 = "": TextBox1.SetFocus
Exit Sub
Else
TextBox2 = Range("B" & Rango.Row)
TextBox3 = Range("C" & Rango.Row)
TextBox4 = Range("D" & Rango.Row)
TextBox5 = Range("E" & Rango.Row)
End If
1 respuesta
Respuesta de Abraham Valencia
1
si funciona, pero, no en todas las hojas del libro.
[Hola, pues funcionará de forma efectiva en todas las hojas que quieras siempre y cuando tengan la misma estructura (100% igual) y que el dato a buscar exista.
Abraham Valencia
