Bepaalde kolommen opslaan als .PDF en mailen naar$$$ als .PDF

[HSV]

Er is dus toch enig verschil?
Ik vermoed dat er gewoon niets op rij 1 staat naast cel A1.

 

[sph]

Ik ga daar morgen achterkomen. Hoop dat dat het is, want jouw macro werkte perfect bij mij thuis.

 

[HSV]

Maak anders dit ervan.

.Cells(1).Resize(.Cells(1).Value,[COLOR=#ff0000] .usedrange[/COLOR].Columns.Count).Copy

 

[sph]

Het gaat in Exceltaal om

=MAX(AANTALARG(D1:D3000);AANTALARG(C1:C3000);AANTALARG(B1:B3000))

Maar ik ga dit morgen zo even proberen.

EDIT:
Je had gelijk idd. A1 was leeg, heel vaag. Maar nu werkt hij helemaal perfect!
HSV bedankt!