Buscar dato y completar
¡Hola!
Tengo un UF, donde desde un CB busco el columna A1:A200 nombres de pacientes; al localizar el objetivo, debo cambiar datos: del TB1 datos de columna "B" (misma fila) y del TB2 datos de columna "C", reemplazando los existentes.
¡Gracias!
1 respuesta
Estas serían unas instrucciones que busca en la hoja activa:
'busco el dato de un combobox en col A
Set busco = Range("A1:A200").Find(ComboBox1, LookIn:=xlValues, lookat:=xlWhole)
'si el nbre se encuentra, paso los txt
If Not busco Is Nothing Then
busco.Offset(0, 1) = TextBox1.value 'col B
busco.Offset(0, 2) = TextBox2.value 'col C
Else
'opcional: mostrar un mensaje
msgbox "No se encuentra el dato"
End If
Si todo quedó claro no olvides finalizar la consulta.
Te recuerdo que la consulta sigue abierta. Podes presionar la opción 'Aclaraciones' y comentar o de lo contrario presiona 'Finalizar' y así quedarás habilitado para dejar nuevas consultas en el tablón.
Sdos
Elsa
