rijen verzenden via mail

[patje8]

Hallo,


Ik heb een Excel bestand gemaakt waarbij er rijen worden verstuurd naar een leverancier. Dit lukt perfect maar sommige leveranciers staan 2 of 3 maal in de lijst en dit moet allemaal samen verstuurd worden.
Vb zie bijlage.
Leverancier 1 is van A3:N8 en van A33:N36

Er kan ook een lijn ingevoegd worden zodat het bereik groter wordt.
Hoe kan ik dit aanpassen?

Patricia

Bekijk bijlage TEST.xlsm

 

[edmoor]

In je voorbeeld komt leverancier 1 maar 1x voor en de rijen 33 t/m 36 zijn leeg.

 

[patje8]

Bekijk bijlage TEST.xlsm

 

[HSV]

Test het maar eens.

 

[patje8]

HSV dit is wat ik zoek.

Hoe pas ik dit aan dat hij ook rij 2 meeneemt bij elke mail.

Kan er ook voor iedere leverancier een mailadres vast ingezet worden?

 

[HSV]

Zoiets?

 

[patje8]

Dikke merci, hiermee kan ik voorlopig verder.
Nogmaals bedankt.

 

[patje8]

wat moet ik wijzigen zodat hij kolom 0 waarin de mailadressen staan, niet in het email komen naast de bestelling?

 

[HSV]

Voeg de blauwe regelcode toe.

With TempWB.Sheets(1)
    
        .Cells(1).PasteSpecial xlPasteColumnWidths
        .Cells(1).PasteSpecial xlPasteValues
        .Cells(1).PasteSpecial xlPasteFormats
[COLOR=#0000ff]        .Columns(10).ClearContents[/COLOR]