Loopen

[goof2808]

Hi,

Ik heb een stuk code in VBA Excel.

Op een gegeven moment kopieert de code een regel uit een ander blad (import);
Zet dit dan in het blad "Mail"
---nu wordt de layout van de mail gevuld---
Dan wordt op het oude blad(import) de zojuist gekopieerde regele verwijderd.
En dan wordt de gekopieerde regel die op blad mail staat naar Outlook gestuurd en dus gemaild.

Nu moet ie gaan "loopen" totdat er op het blad "import" alleesn nog maar de kopteksten staan(regel 1)

Wie kan me helpen?

Dit is het gedeelte van de code waar het om gaat(Rood):

hierboven staat nog veel meer code
Range("n2").AutoFill Destination:=Range("n2:n" & Range("A" & Rows.Count).End(xlUp).Row)
     Range("o2").Select
    Selection.FormulaR1C1 = "Nee"
    Range("o2").AutoFill Destination:=Range("o2:o" & Range("A" & Rows.Count).End(xlUp).Row)
    
[COLOR="#FF0000"]'mail de records
 Sheets("Import").Select
    Range("A2").Select
    Selection.End(xlDown).Select
    Range(Selection, Selection.End(xlToRight)).Select
    ActiveCell.Range("A1:O1").Select
    Selection.Copy
    Sheets("Mail").Select
    Range("A2").Select
    ActiveSheet.Paste
'regel die geisoleerd is verwijderen
        Sheets("Import").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Sheets("Mail").Select
'mail de regel op blad mail
    Call Sheets("Mail").Mail_Selection_Range_Outlook_Body[/COLOR]

End Sub

Thanks!

Goof

 

[snb]

Die hele kopieerbewerking is overbodig.
Vermijd 'Select' en 'Activate in VBA.

 

[goof2808]

Hi snb
Dat weet ik.
Ben geen VBA specialist......

Maar dan kan ik nog steed loopen toch? Maar hoe?

Goof