goof2808
Gebruiker
- Lid geworden
- 2 feb 2007
- Berichten
- 130
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):
Thanks!
Goof
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):
Code:
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