Hi!
I have a big problem with a macro. I have a excel sheet with different data. I have sometimes to print manually more than 50 number. For example:
<tbody>
</tbody>
And I have in other sheet a page for printing the bill number (e.g. 001) with its respective information (info 1).
What I need is to copy the number (e.i. 001) to the other sheet. This sheet will automatically actualize the information
with the information of bill 001. And then I can print it. I wanna do a macro to make this steps automatically printing
all bill pages.
I had:
Sub Makro4()
' Makro2 Makro
For Each c In ActiveCell.CurrentRegion.Cells 'cell selected in sheet 1
Sheets("sheet 2").Select
Range("A3:B4").Value = c.Value
ActiveCell.FormulaR1C1 = c.Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("sheet 1").Select
Next
End Sub
but it doesn't work. any ideas?
Thank you in advance
I have a big problem with a macro. I have a excel sheet with different data. I have sometimes to print manually more than 50 number. For example:
001 | info 1 |
002 | info 2 |
003 | etc... |
004 | |
005 | |
006 | |
007 | |
008 | |
009 | |
010 |
<tbody>
</tbody>
And I have in other sheet a page for printing the bill number (e.g. 001) with its respective information (info 1).
What I need is to copy the number (e.i. 001) to the other sheet. This sheet will automatically actualize the information
with the information of bill 001. And then I can print it. I wanna do a macro to make this steps automatically printing
all bill pages.
I had:
Sub Makro4()
' Makro2 Makro
For Each c In ActiveCell.CurrentRegion.Cells 'cell selected in sheet 1
Sheets("sheet 2").Select
Range("A3:B4").Value = c.Value
ActiveCell.FormulaR1C1 = c.Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("sheet 1").Select
Next
End Sub
but it doesn't work. any ideas?
Thank you in advance