Mostrar datos de una celda en un TEXTBOX de otra hoja
Chicos, espero me puedan ayudar
TENGO UNA HOJA LLAMADA BD, dentro de ella tengo la lista CÓDIGO Y PACIENTE.
EN OTRA HOJA LLAMADA ITI, Estoy creando un userform que me permita ingresar el CÓDIGO de la hoja BD, pero necesito que en el siguiente cuadro de manera automática me muestre el nombre del paciente.
Ojo. En la HOJA 2 (ITI) habia puesto la funcion =BUSCARV(A2;BD!$A$1:$B$50;2;0) EN PACIENTE y me venia funcionando bien cuando lo hacia manualmente pero al crear el USEFORM no se como hacerlo.
Y además creo que debería crear DOS BOTONES. EL PRIMERO QUE ME PERMITA QUE DESPUÉS DE INGRESAR EL CÓDIGO VEA EN EL SEGUNDO EL NOMBRE QUE LE CORRESPONDA y EL SEGUNDO BOTÓN que me siga permitiendo enviar los demás datos en las siguientes celdas.
Private Sub CommandButton1_Click()
If CODI.Value <> "" Then
Range("a1000000").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = CODI.Value
ActiveCell.Offset(0, 1) = PACI.Value
Else
MsgBox "La casilla CODIGO es requerida"
CODI.SetFocus
End If
End Sub
----Hasta aquí estaba por buenos tiros, pero espero su gentil ayuda
2 Respuestas
H o l a:
Esto para realizar la búsqueda
Private Sub CODI_Change()
Set h = Sheets("BD")
Set b = h.Columns("A").Find(CODI)
If Not b Is Nothing Then
PACI = h.Cells(b.Row, "B")
End If
End Sub
Para que funcione, tienes que capturar la letra en el CODI y presionar enter o tab.
Private Sub CommandButton1_Click()
Set h2 = Sheets("ITI")
u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
h2.Cells(u, "A") = CODI
h2.Cells(u, "B") = PACI
End SubEsto para guardar los datos encontrados en la hoja ITI
Me comentas haber si entendí bien saludos!