Verwijderen van regel m.b.v. VBA

[royb73]

Beste,

Ik heb een code die een reeks opmerkingen overneemt uit Excel, die vervolgens in een mail wordt overgezet (conceptfase).

In de reeks met opmerkingen zit een regel bij, die ik niet wil overnemen in de conceptfase. De regel in kwestie wordt alleen in het definitieve rapport overgezet.

De regel die niet overgenomen moet worden, staat in cel C35 ("De opdrachtgever heeft de ruimtefuncties gecontroleerd in de conceptfase.")

    With shtGegevens
            'Opmerkingenlijst
        i = .Range("OpmerkingenLijst").row + 1
        While Trim(Range("A" & i).Value) <> ""
            If Not Range("A" & i).EntireRow.Hidden Then
                If Len(opmerkingen) > 0 Then
                    opmerkingen = opmerkingen & "<br /> - " & Trim(Range("A" & i).Value)
                Else
                    opmerkingen = opmerkingen & " - " & Trim(.Range("A" & i).Value)
                End If
            End If
            i = i + 1
        Wend
    End With

Hoe kan de code zodanig aangepast worden dat de regel in C35 niet overgenomen wordt in de mail?

Graag jullie hulp.

Met vriendelijke groet,

Roy

 

[edmoor]

Laat ook even weten wat de waarde is van de variabele: opmerkingen

 

[snb]

sub M_snb()
   c00= join(filter([transpose(OpmerkingenLijst)],"overslaan",0),"</br>")
End Sub

 

[royb73]

Het is namelijk zo, dat ik een lijst hebt met opmerkingen. De opmerkingen die ik niet nodig heb, verberg ik.
Ik heb een referentie aangemaakt (in cel C30) die ik "opmerkingenlijst" heb genoemd.
Dit is de reeks uit opmerkingen:

- De opdrachtgever heeft de ruimtefuncties gecontroleerd in de conceptfase.
- Geen tekeningen aanwezig van installatieruimte op het dak en is op locatie ingemeten.
- De oppervlakte van losstaande bijgebouwen zijn meegenomen.

Deze opmerkingen worden nu overgenomen uit Excel en worden in een mail overgezet. Echter moet de regel "De opdrachtgever heeft de ruimtefuncties gecontroleerd in de conceptfase" niet meegenomen worden.

Hoop dat het een beetje duidelijk is.

Mvg

Roy

 

[snb]

sub M_snb()
   c00= join(filter(split(cells(30,3),vblf),"concept",0),"</br>")
End Sub

NB Een benoemd gebied van 1 cel lijkt me echt overbodig.

1 cel met de tekst voor de conceptfase en 1 andere cel voor de tekst daarna lijkt me ook geen onhandige aanpak.

Maar ook hier geldt: een voorbeeldbestand zegt meer dan 7 toelichtingen.

 

[royb73]

Zie voorbeeld bestand.

Bekijk bijlage 1604567.xlsm

Mvg

Roy