userform

19/03/2008 - 05:02 por juan | Informe spam
tengo el siguiente problema..., 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??? )
desde ya muchas garcias, saludos
juan
 

Leer las respuestas

#1 Héctor Miguel
19/03/2008 - 06:30 | Informe spam
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.

Preguntas similares