Hola tengo un problema estoy haciendo un macro para registrar las facturas, el problema es que todavia no lo tengo muy claro con los macros el tema es asi, tengo una factura que despues de imprimir tengo que generar un macro que me copie la informacion a otra hoja. el tema es que tengo varios productos para una sola factura entonces pasa que en una sola filas no queda todos los items sino que queda en maximo 10 filas entonces pasa 2 cosas si grabo el macro no se luego como hacer para que los nuevos datos los grabe abajo de los antiguos si alguien tiene alguna idea gracias dejo lo que tengo grabado en el macro
Hola tengo un problema estoy haciendo un macro para registrar las facturas, el problema es que todavia no lo tengo muy claro con los macros el tema es asi, tengo una factura que despues de imprimir tengo que generar un macro que me copie la informacion a otra hoja. el tema es que tengo varios productos para una sola factura entonces pasa que en una sola filas no queda todos los items sino que queda en maximo 10 filas entonces pasa 2 cosas si grabo el macro no se luego como hacer para que los nuevos datos los grabe abajo de los antiguos si alguien tiene alguna idea gracias dejo lo que tengo grabado en el macro
Sub Macro4()
'
' Macro4 Macro
'
'
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("A3").Select
Sheets("Facturas").Select
Range("C8:J8").Select
Selection.Copy
Sheets("Hoja1").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Facturas").Select
Range("H11:J11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja1").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Facturas").Select
Range("B15:B26").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja1").Select
Range("D2:D13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Facturas").Select
Range("C15:F26").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja1").Select
Range("E2:E13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Facturas").Select
Range("H15:H26").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja1").Select
Range("F2:F13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Facturas").Select
Range("J27").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja1").Select
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Facturas").Select
ActiveWindow.SmallScroll Down:=6
Range("J31").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja1").Select
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Facturas").Select
ActiveWindow.SmallScroll Down:=3
Range("J33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja1").Select
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub