alle lege regels verwijderen op een sheet

[koenn]

met onderstaande code plak ik tekst op een sheet als checkbox1=true. Dit doe ik zo voor meerdere checkboxen zodat de verschillende tekst onder elkaar op de sheet komt te staan. als de checkbox waarde false is blijft de cel (hier A1) leeg. Omdat ik vervolgens alle tekst ga kopieren naar word wil ik mbv een command button of iets dergelijks er voor zorgen dat de lege regels op de sheet berekeningen verwijderd worden.
hoe kan ik dit verwezenlijken?

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Sheets("voorbeeld").Range("A1") = ("tekst " & Sheets("Berekeningen").Range("D11") & " testing")
else Sheets("voorbeeld").Range("A1").clear
End If

 

[snb]

Private Sub kopieer()
Sheets("voorbeeld").columns(1).specialcells(xlcelltypeblanks).entirerow.delete
' ---- kopieerinstruktie
End Sub

 

[Hoornvan]

koenn,

Het is ClearContents in plaats van Clear.

 

[snb]

Wim: het is clear (afhankelijk van wat je wil)

 

[Hoornvan]

snb,

dat wist ik niet.
Waar gebruik je ze voor, het verschil?

Ik heb het al gevonden in de help van Excel

 

[Wigi]

er voor zorgen dat de lege regels op de sheet berekeningen verwijderd worden.

Private Sub kopieer()
Sheets("voorbeeld").columns(1).specialcells(xlcelltypeblanks).entirerow.delete
' ---- kopieerinstruktie
End Sub

Lege regels worden niet altijd per definitie gevonden op basis van een lege cel in kolom A. Het zou best kunnen, maar het is geen zekerheid.

Wigi

 

[koenn]

hij werkt iig met bovenstaande code... thnx voor de hulp iig

 

[koenn]

Ik heb de code aan een commandbutton gehangen en zoals gezegd werkt het allemaal.
nu heb ik alleen het probleem dat als er geen lege regels in de kolom aanwezig zijn, en hij voert de macro uit, dan krijg ik een foutmelding. Is deze te op een of andere manier te onderdrukken...?

 

[snb]

on error resume next

 

[koenn]

zo simpel
dank u