MOSTRAR DATOS DE UNA CELDA EN UN TEXTBOX DE OTRA HOJA

1 post / 0 nuevos
melanievillegas
Imagen de melanievillegas
Offline
última acción: Hace 1 año 1 mes
alta: 03/10/2016 - 04:56
Puntos: 60
MOSTRAR DATOS DE UNA CELDA EN UN TEXTBOX DE OTRA HOJA

TENGO UNA HOJA LLAMADA BD, dentro de ella tengo la lista CODIGO Y PACIENTE.
EN OTRA HOJA LLAMADA ITI, Estoy creando un userform que me permita ingresar el CODIGO de la hoja BD, pero necesito que en el siguiente cuadro de manera automatica 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 ademas creo que deberia crear DOS BOTONES. EL PRIMERO QUE ME PERMITA QUE DESPUES DE INGRESAR EL CODIGO VEA EN EL SEGUNDO EL NOMBRE QUE LE CORRESPONDA y EL SEGUNDO BOTON que me siga permitiendo enviar los demas 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 aqui estaba por buenos tiros, pero espero su gentil ayuda

AdjuntoTamaño
File codigos.xlsm18.94 KB