stefano
Gebruiker
- Lid geworden
- 22 mei 2004
- Berichten
- 864
Ik heb een bestand bestaande uit twee tabbladen. Eerste bevat ruwe data , het tweede is een standaardformulier dat gegevens overneemt vanuit het eerste.
Het standaardformulier wil ik mailen, niet volledig, een beperkte range enerzijds maar anderzijds mogen de verborgen rijen niet gemaild worden.
De lege rijen (weliswaar met een formule er in ) verberg ik met een autofilter.
Daarna laat ik de macro send_range uitvoeren
Ik krijg een foutmelding 400. Wat zou er fout gaan ?
Bekijk bijlage mail verborgen rijen.xlsm
Het standaardformulier wil ik mailen, niet volledig, een beperkte range enerzijds maar anderzijds mogen de verborgen rijen niet gemaild worden.
De lege rijen (weliswaar met een formule er in ) verberg ik met een autofilter.
Code:
Sub verbergen()
Columns("B:B").Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveSheet.Range("$B$1:$B$200").AutoFilter Field:=1, Criteria1:=">0.01"
Range("a1").Select
End Sub
Daarna laat ik de macro send_range uitvoeren
Code:
Sub Send_Range()
Application.Run "verbergen"
ActiveSheet.Range("A2:D27").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = "geef een geldig mailadres in"
.Item.Subject = Range("b5")
.Item.Send
End With
End Sub
Ik krijg een foutmelding 400. Wat zou er fout gaan ?
Bekijk bijlage mail verborgen rijen.xlsm