Macro para pasar datos a otra hoja
Hola, Reciban un cordial saludo y agradeciendo de antemano toda la ayuda que nos brindan. Mi duda es la sig:
Tengo en una hoja llamadaFORMATO, datos de la sig manera: NoFACTURA FECHA NOMBRE TOTAL.
Mi pregunta es la sig. Quiero agregar en un botón una macro que cuando lo oprima, los datos antes mencionados se vayan a una hoja llamada HISTÓRICOS y se agreguen en la ultima fila disponible de esta hoja(HISTÓRICOS). Y se limpien los campos para seguir agregando datos.
Mil Gracias.
Atentamente.
Ana Karen.
Tengo en una hoja llamadaFORMATO, datos de la sig manera: NoFACTURA FECHA NOMBRE TOTAL.
Mi pregunta es la sig. Quiero agregar en un botón una macro que cuando lo oprima, los datos antes mencionados se vayan a una hoja llamada HISTÓRICOS y se agreguen en la ultima fila disponible de esta hoja(HISTÓRICOS). Y se limpien los campos para seguir agregando datos.
Mil Gracias.
Atentamente.
Ana Karen.
1 Respuesta
Respuesta de cristian2005
1
Hice algo parecido a lo que pedís, por ahí te sirve, lo que hice fue para la carga de datos en ves de usar una hoja cree un formulario con los datos a cargar, en este incluí un botón de agregar que tiene esta macro:
Dim fila As Object
For Each fila In Hoja1.Range("BASE").Rows
If IsEmpty(fila.Cells(1, 1)) Then
fila.Insert
fila.Cells(0, 1) = TextBox5.Text
fila.Cells(0, 2) = Combo1.Text
fila.Cells(0, 3) = Combo2.Text
fila.Cells(0, 4) = TextBox1.Text
fila.Cells(0, 5) = TextBox6.Text
fila.Cells(0, 6) = TextBox3.Text
totprima = totprima + Val(TextBox6.Text)
TextBox1.Text = ""
TextBox2.Text = 0
TextBox3.Text = 0
TextBox4.Text = 0
TextBox5.Text = 1
TextBox6.Text = 0
TextBox1.SetFocus
End If
Exit For
Next
Ojo "base" es una tabla que tienes que nombrar y es donde van a para los datos.-
Los textbox y los combo son del formulario de carga, obvio elimina o crea los que te falten.-
Dim fila As Object
For Each fila In Hoja1.Range("BASE").Rows
If IsEmpty(fila.Cells(1, 1)) Then
fila.Insert
fila.Cells(0, 1) = TextBox5.Text
fila.Cells(0, 2) = Combo1.Text
fila.Cells(0, 3) = Combo2.Text
fila.Cells(0, 4) = TextBox1.Text
fila.Cells(0, 5) = TextBox6.Text
fila.Cells(0, 6) = TextBox3.Text
totprima = totprima + Val(TextBox6.Text)
TextBox1.Text = ""
TextBox2.Text = 0
TextBox3.Text = 0
TextBox4.Text = 0
TextBox5.Text = 1
TextBox6.Text = 0
TextBox1.SetFocus
End If
Exit For
Next
Ojo "base" es una tabla que tienes que nombrar y es donde van a para los datos.-
Los textbox y los combo son del formulario de carga, obvio elimina o crea los que te falten.-
Cristian, excelente solución es exactamente lo que deseaba. Yo por acá personalizaré el formulario. De nueva cuenta Mil gracias Cristian,!
Saludos Cordilaes.
Ana Karen.
Saludos Cordilaes.
Ana Karen.
