Evelthoven
Gebruiker
- Lid geworden
- 26 sep 2006
- Berichten
- 690
Goedenavond,
Ik heb in Excel een lijst gemaakt met allerlei gegevens waarvoor ik met veel gezoek in dit forum en knipwerk een macro heb gemaakt die bijna werkt.
Bijgesloten de code:
Als ik bovenstaande macro draai dan werkt hij goed, maar als ik voor de regels Columns("D:F").Select
Selection.EntireColumn.Hidden = True
de ' weghaal dan gebeurt er eigenlijk niks, in ieder geval er wordt niets geprint.
Wat ik eigenlijk wil is dat het overzicht afgedrukt wordt behalve de 3 laatste kolommen D tot en met F.
Staan deze twee regels misschien op de verkeerde plaats of is er iets anders aan de hand ?
Ik weet dat de macro zeer zeker de schoonheidsprijs niet verdient maar ik ben al blij dat hij op deze manier werkt.
Kan iemand mij a.u.b. verder helpen ?
Alvast bedankt voor jullie reacties.
Met vriendelijke groeten,
Eric
Ik heb in Excel een lijst gemaakt met allerlei gegevens waarvoor ik met veel gezoek in dit forum en knipwerk een macro heb gemaakt die bijna werkt.
Bijgesloten de code:
Code:
Sub Printen_op_Artiest()
Application.ScreenUpdating = False
Application.EnableEvents = False
Range("A11").Select
Sheets("Gegevens").Select
LastRow = Range("A65536").End(xlUp).Row
Range("A10:F" & LastRow).Select
Selection.Copy
Sheets("Gegevens").Select
Range("A10").Select
ActiveSheet.Paste
Columns("A:F").Select
Selection.Columns.AutoFit
LastRow = Range("A65536").End(xlUp).Row
Range("A10:i" & LastRow).Select
Application.CutCopyMode = False
Selection.Copy
Selection.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
LastRow = Range("A65536").End(xlUp).Row
Range("A10:F" & LastRow).Select
Selection.Sort Key1:=Range("b11"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Goto Reference:="R10C1"
ActiveCell.Select
LastRow = Range("a65536").End(xlUp).Row
Range("a10:f" & LastRow).Select
'Columns("D:F").Select
'Selection.EntireColumn.Hidden = True
With ActiveSheet.PageSetup
.PrintTitleRows = "$10:$10"
End With
ActiveWindow.Selection.PrintOut Copies:=1, Collate:=True
Sorteren_op_Nummer
Application.Goto Reference:="R10C1"
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Als ik bovenstaande macro draai dan werkt hij goed, maar als ik voor de regels Columns("D:F").Select
Selection.EntireColumn.Hidden = True
de ' weghaal dan gebeurt er eigenlijk niks, in ieder geval er wordt niets geprint.
Wat ik eigenlijk wil is dat het overzicht afgedrukt wordt behalve de 3 laatste kolommen D tot en met F.
Staan deze twee regels misschien op de verkeerde plaats of is er iets anders aan de hand ?
Ik weet dat de macro zeer zeker de schoonheidsprijs niet verdient maar ik ben al blij dat hij op deze manier werkt.
Kan iemand mij a.u.b. verder helpen ?
Alvast bedankt voor jullie reacties.
Met vriendelijke groeten,
Eric