Anónimo
Crear historial
Hola, gracias anticipadas por tu tiempo.. Trabajo con un formulario el cual completo e imprimo y cree un botón macro para imprimir con el formato que necesito que ademas le asigna un numero al formulario de manera correlativa. Lo que necesito es que ademas de eso el botón me vaya generando una lista ( ya sea más abajo o en otra hoja del libro) con algunos datos ( siempre los mismos datos, mismas celdas) de cada formulario impreso.
Aclarando:
1) Aprieto botón de la macro
2) Imprime y genera numero de formulario
3) Va generando una lista así:
Empresa1 Direccion1 Importe1 N°formulario1
Empresa2 Direccion2 Importe2 N°fomulario2 =(N°formulario1)+1
Los pasos 1) y 2) los hice a prueba y error pero con el 3) no puedo.
Desdá ya muchas gracias!
Aclarando:
1) Aprieto botón de la macro
2) Imprime y genera numero de formulario
3) Va generando una lista así:
Empresa1 Direccion1 Importe1 N°formulario1
Empresa2 Direccion2 Importe2 N°fomulario2 =(N°formulario1)+1
Los pasos 1) y 2) los hice a prueba y error pero con el 3) no puedo.
Desdá ya muchas gracias!
1 respuesta
Respuesta de Eduard Caballero
1
OK
Supongamos que tienes en la hoja2 desde A2 los encabezados del historial que quieres crear
Empresa Dirección Importe Numero
Asumiré que tienes en tu userform 4 textbox, entonces podrías agregar esto a tu botón de formulario
Private Sub CommandButton1_Click()
Dim emp, Dir, import As String
Dim numfor As Integer
emp = TextBox1
Dir = TextBox2
impor = TextBox3
numfor = TextBox4
Sheets(2).Select
Range("A65000").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell = emp
ActiveCell.Offset(0, 1) = Dir
ActiveCell.Offset(0, 2) = impor
ActiveCell.Offset(0, 3) = numfor
MsgBox "Datos Cargados al historial", vbInformation
End Sub
Supongamos que tienes en la hoja2 desde A2 los encabezados del historial que quieres crear
Empresa Dirección Importe Numero
Asumiré que tienes en tu userform 4 textbox, entonces podrías agregar esto a tu botón de formulario
Private Sub CommandButton1_Click()
Dim emp, Dir, import As String
Dim numfor As Integer
emp = TextBox1
Dir = TextBox2
impor = TextBox3
numfor = TextBox4
Sheets(2).Select
Range("A65000").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell = emp
ActiveCell.Offset(0, 1) = Dir
ActiveCell.Offset(0, 2) = impor
ActiveCell.Offset(0, 3) = numfor
MsgBox "Datos Cargados al historial", vbInformation
End Sub