Foro Excel

Hola a todos los excelnautas..

Enesta ocasión agradeceria a quien me puede ayudar ilsutrandome a traves de ur archivo lo siguiente

Resulta que tengo un formulario (Userform) el cual voy alimentando en un textBox con datos, pero me gustaria que los datos se fuesen almacenando de arriba hacia abajo en la Hoja excel. Es decir ingreso el primer dato y grabar, luego ingreso el segundo dato y me lo coloque debajo del anterior...y asi sucesivamente...espero me haya hecho entender..

Mil gracias a quien me pueda ayudar.

Ferchogz

a ver esto ------>>>>>>>>

salu2

hola mira aqui te envio el codigo del boton guardar
te explico el codigo:

Hoja1.Activate ' activas la hoja en la q copias
Range("A1").Select
Selection.End(xlDown).Select
filag = ActiveCell.Row ' aqui se guarda la ultima fila ocupada
ig = Hoja1.Cells(filag, 1) ' aqui saco el numero de secuencia
jg = ig + 1 ' le sumo uno ( 1,2,3,4,5 ......)
Hoja1.Cells(filag + 1, 1) = jg
Hoja1.Cells(filag + 1, 2) = Textbox_solicitante.Text
Hoja1.Cells(filag + 1, 3) = TextBox_problema.Text
Hoja1.Cells(filag + 1, 4) = TextBox1.Text
Hoja1.Cells(filag + 1, 5) = DTPicker_proble.Value
Hoja1.Cells(filag + 1, 6) = DTPicker_hora_proble.Value
Hoja1.Cells(filag + 1, 7) = ComboBox_priori.Value
Hoja1.Cells(filag + 1, = txtt.Text
Hoja1.Cells(filag + 1, 9) = ComboBox_respon.Value
Hoja1.Cells(filag + 1, 10) = TextBox2.Text
Hoja1.Cells(filag + 1, 11) = Texttiempo.Text

entonces como ves el la variable filag ahi esta el numero de fila ultima que se ocupor, por tal razon al grabar siempre le aumentas una fila mas asi

Hoja1.Cells(filag + 1, 1) = jg ' jg es una variable ahi podria guardar lo que ingresas en el textbox

ojala te sirva

saludos

PD Claro que hay otras maneras mas simples creo yo pero esa es la que siempre he utilizado je je je je

A ST y Danny...muchisimas gracias por su colaboración...sin su ayuda....imposible..
definitivamente es mejor acudir a los maestros...

De nuevo mil gracias.

Ferchogz

ST en tu ejemplo, como hacemos para que el importe colocado en el userForm, se cargue en la hoja como numero y no como texto?
Desde ya muchas gracias

Solo agrega "Val" al textbox1 para convertirlo a valor

seria algo como esto:

Código: Seleccionar todo

Sheets(1).Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Val(TextBox1)
TextBox1 = Empty
TextBox1.SetFocus

ST, gracias por tu ultimo comentario