userform

hola, juan !

... como tengo que ingresar datos un un excel hice una userform con el siguiente codigo
Private Sub CommandButton1_Click()
Dim a As String
j = 1
a = TextBox1
Hoja1.Cells(j, 1) = a
j = j + 1
End Sub
el tema es que cuando presiono el command botoon se me vuelve a resettear j a 1
como puedo definir j por fuera del private comand botton y en que lugar (modulo, thiswoorbook??? )

dependiendo de cual sea la variable que determina si j debiera ser 1 o cualquier otro numero de fila en la columna A -???-
si suponemos que deba ser la siguiente fila libre de la columna A de la Hoja1 -???-

Private Sub CommandButton1_Click()
Hoja1.Range("a65536").End(xlUp).Offset(1) = TextBox1
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

gracias hector por tu buena predisposicion!!, saludos juan

"Héctor Miguel" escribió:

hola, juan !

> ... como tengo que ingresar datos un un excel hice una userform con el siguiente codigo
> Private Sub CommandButton1_Click()
> Dim a As String
> j = 1
> a = TextBox1
> Hoja1.Cells(j, 1) = a
> j = j + 1
> End Sub
> el tema es que cuando presiono el command botoon se me vuelve a resettear j a 1
> como puedo definir j por fuera del private comand botton y en que lugar (modulo, thiswoorbook??? )

dependiendo de cual sea la variable que determina si j debiera ser 1 o cualquier otro numero de fila en la columna A -???-
si suponemos que deba ser la siguiente fila libre de la columna A de la Hoja1 -???-

Private Sub CommandButton1_Click()
Hoja1.Range("a65536").End(xlUp).Offset(1) = TextBox1
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.