Scorpion Steve
Board Regular
- Joined
- Jun 5, 2011
- Messages
- 220
Guys,
Im getting muddled up!
I had a great solution of which I picked apart and tried to understand so that I could use it else where but failed!
CODE:
Range("A1:F24").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$24"
ActiveCell.FormulaR1C1 = "ax"
Range("J4").Select
End Sub
This was the solution code:
With Range("A2", Range("A2").End(xlDown))
Range("A1").Resize(.Rows.Count).Value = .Value
Range("B1").Resize(.Rows.Count).FillDown
ActiveSheet.PageSetup.PrintArea = Range("A1").CurrentRegion.Address
End With
End Sub
All im needing is have the macro do the follwing:
**Bear in mind, autoselect for me = CRTL+SHFT+RIGHT ARROW, then the same but the DOWN ARROW
Macro activated=
Select cell A1, autoselect data (must be variable)
Print select that area
End
Thanks
Im getting muddled up!
I had a great solution of which I picked apart and tried to understand so that I could use it else where but failed!
CODE:
Range("A1:F24").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$24"
ActiveCell.FormulaR1C1 = "ax"
Range("J4").Select
End Sub
This was the solution code:
With Range("A2", Range("A2").End(xlDown))
Range("A1").Resize(.Rows.Count).Value = .Value
Range("B1").Resize(.Rows.Count).FillDown
ActiveSheet.PageSetup.PrintArea = Range("A1").CurrentRegion.Address
End With
End Sub
All im needing is have the macro do the follwing:
**Bear in mind, autoselect for me = CRTL+SHFT+RIGHT ARROW, then the same but the DOWN ARROW
Macro activated=
Select cell A1, autoselect data (must be variable)
Print select that area
End
Thanks