user form
Publicado por QUIQUE (4 intervenciones) el 28/02/2009 09:28:54
hola buenas y gracias por la ayuda de antemano
tengo un userform con un textbox mas un comandbutton
y lo que quiero es que cuando pulse el commandbutton el contenido del textbox se valla a la celda c17 si esta esta vacia ,pero si no esta vacia el contenido del textbox se desplace una columna hacia abajo y asi sucesivamente.
lo he provado con esta formula, pero haber si se podia mejorar. para no depender de la celda c16 que es como lo tengo ahora.
Sheets("hoja1").Activate
Sheets("hoja").Range("c16").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Value = TextBox1
gracias, y espero haberme explicado bien.
tengo un userform con un textbox mas un comandbutton
y lo que quiero es que cuando pulse el commandbutton el contenido del textbox se valla a la celda c17 si esta esta vacia ,pero si no esta vacia el contenido del textbox se desplace una columna hacia abajo y asi sucesivamente.
lo he provado con esta formula, pero haber si se podia mejorar. para no depender de la celda c16 que es como lo tengo ahora.
Sheets("hoja1").Activate
Sheets("hoja").Range("c16").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Value = TextBox1
gracias, y espero haberme explicado bien.
Valora esta pregunta
0