Range bepalen voor export naar e-mail

[HWV]

Beste,

Ik gebruik de code van Ron de Bruin om een deel van mijn sheet naar mijn body van de e-mail te krijgen. Dit werkt goed hij pak nu Range("A11:E111").
Nu zou ik graag alleen de ingevulde velden willen hebben dus alles onder A11.

Want nu pakt hij 100 regels uit excel dus mijn naam komt ergens onder in de e-mail tercht.
Als ik allen de ingevulde velden krijg komt mijn naam er netjes onder.

Wie kan mij hierbij helpen

Alvast bedankt

HWV

    Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object
 
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
 
    Set rng = Nothing
    On Error Resume Next
    Set rng = Sheets("Leeg").Range("A11:E111").SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
 
    If rng Is Nothing Then
        MsgBox "The selection is not a range or the sheet is protected" & _
               vbNewLine & "please correct and try again.", vbOKOnly
        Exit Sub
    End If
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .To = "info@mailnaar.nl"
        .CC = ""
        .BCC = ""
        .Subject = "Order"
        .HTMLBody = RangetoHTML(rng) _
        & vbNewLine & vbNewLine & _
              "Groet Henk"
        .Display   'or use .Send
    End With
    On Error GoTo 0
 
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
 
    Set OutMail = Nothing
    Set OutApp = Nothing

 

[Cobbe]

Een mogelijkheid:

Set rng = Sheets("Leeg").Range("A11:E[COLOR="red"][B]" & sheets("Leeg").range("E1")[/B][/COLOR]).SpecialCells(xlCellTypeVisible

En in blad"Leeg" zet ik in E1 (of iets anders) het aantal rijen die van toepassing zijn.

Ik hoop dat het duidelijk genoeg is.

Cobbe

 

[HWV]

Gelukt

Beste Cobbe,

Bedankt voor de suggestie.
Ik heb het toegepast en het werkt naar behoren.

Bedankt

Groet HWV