Lograr ver form y datos de celdas a la vez

hola, 'anonimo/a' !

Tengo un Form con dos cuadros de texto, estan enlazados a dos columnas, de la hoja de excel. Nombre y Apellido
El form esta con la propiedad Showmodal=false, QUIERO LOGRAR que estando el userForm desactivado
me muestre la informacion activa de la fila sobre la cual estoy posicionado...

-> si suponemos que las columnas para nombre y apellido son 'A' y 'B' [respectivamente]...
y que los cuadros de texto en el form son los TextBox1 y TextBox2 [respectivamente]...
y que el form se llama 'UserForm1'
1) copia/pega las siguientes lineas => en el modulo de codigo de 'la hoja' de donde deberian tomarse nombre y apellido ;)
2) ANTES... asegurate que 'eliminas' el enlace de los textboxes con cualquier celda 'de origen' en su propiedad 'ControlSource'
[o te toca modificar/adaptar/... donde corresponda] :))

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.TextBox1 = Range("a" & Target.Row)
UserForm1.TextBox2 = Range("b" & Target.Row)
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Buenas Tardes Hector y mucho gusto.

Sencillo y Excelente el codigo compañero, era exactamente lo que
buscaba para el desarrollo de mi programa.

Gracias y Saludos...

Atte.
Yand


Héctor Miguel ha escrito:

hola, 'anonimo/a' !

> Tengo un Form con dos cuadros de texto, estan enlazados a dos columnas, de la hoja de excel. Nombre y Apellido
> El form esta con la propiedad Showmodal=false, QUIERO LOGRAR que estando el userForm desactivado
> me muestre la informacion activa de la fila sobre la cual estoy posicionado...

-> si suponemos que las columnas para nombre y apellido son 'A' y 'B' [respectivamente]...
y que los cuadros de texto en el form son los TextBox1 y TextBox2 [respectivamente]...
y que el form se llama 'UserForm1'
1) copia/pega las siguientes lineas => en el modulo de codigo de 'la hoja' de donde deberian tomarse nombre y apellido ;)
2) ANTES... asegurate que 'eliminas' el enlace de los textboxes con cualquier celda 'de origen' en su propiedad 'ControlSource'
[o te toca modificar/adaptar/... donde corresponda] :))

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.TextBox1 = Range("a" & Target.Row)
UserForm1.TextBox2 = Range("b" & Target.Row)
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.