VBA aanpassen

[derockere]

Ik heb een Excellijst waarin ik graag een VBA-module aangepast wou zien.
Zelf ken ik er niets van.
Er zit een module in om de 2e en laatste kolom uit te printen.
De eerste kolom wil ik verwijderen en zodoende die module aangepast zien, zodat nu de eerste en laatste kolom uitgeprint kan worden.
Dit excel bestand heb ik van een vriend gekregen. Dit bestand wordt later uitgebreid, enkel het aantal kolommen blijft hetzelfde.
De kolom "IDnr." gaat er dus uit. (voor alle duidelijkheid)!
Kan iemand me hiermee helpen?

 

[SjonR]

test deze eens:

Sub afdrukken()
Application.ScreenUpdating = False
    With Sheets(1)
        .PageSetup.PrintArea = Range("K240").End(xlUp).CurrentRegion.Address
        .PageSetup.Orientation = xlPortrait
        .Cells(1).CurrentRegion.Sort .Range("K1"), xlAscending, , , , , , xlYes
        .Range("B:J").EntireColumn.Hidden = True
        .PrintPreview 'PrintOut
        .Range("B:J").EntireColumn.Hidden = False
        .Cells(1).CurrentRegion.Sort .Range("A1"), xlAscending, , , , , , xlYes
    End With
    Application.ScreenUpdating = True
End Sub

 

[derockere]

Er is nog één kolom teveel.

 

[SjonR]

ik begreep dat e kolom ID er uit zou gaan? Welke twee kolommen wil je nu geprint hebben?

 

[derockere]

De kolom "IDnr." moet er inderdaad uit.
Enkel de kolom "Naam" en "Maand" moeten uitgeprint worden.
Alles moet dan ook nog eens volgens kolom "Maand" gesorteerd zijn.
De kolom "Maand" bevat de geboorte maand van het lid dat in kolom "Naam" vermeld staat. (dit was ik nog vergeten te vermelden)
Excuus!

 

[SjonR]

en heb je het al getest in het bestand waarbij de Kolom IDnr is verwijderd?

 

[derockere]

Duizend maal excuses!!
Ik had er inderdaad niet aan gedacht om die kolom te verwijderen.
Hierbij het bewijs dat het perfect werkt.
Bedankt!!

 

[SjonR]

Geen punt, graag gedaan :thumb:

 

[snb]

Zet je dan je vraag svp nog even op 'opgelost' in #1 ?