NIET lege cellen in een kolom wissen

[oeldere]

Onderstaande code gebruik ik voor het wissen van lege cellen in een kolom.

Sub wis_lege_rijen()

With Columns("C").SpecialCells(xlCellTypeBlanks).Cells
    .EntireRow.Delete Shift:=xlUp
  End With
  If Err.Number <> 0 Then MsgBox "Uitvoering niet mogelijk : geen of allemaal lege cellen"
 End Sub

Via de zoekfunctie van google vind ik over bovengenoemde vraag veel hits.


Nu wil ik het omgekeerde bereiken.

De lege cellen moeten worden bewaardt.

De gevulde cellen moeten worden gewist.

Ik krijg de code niet aangepast (of zelf gemaakt).

Wie wil en kan me hier bij helpen.?

 

[HSV]

Columns(3).SpecialCells(xlCellTypeConstants)

Ingekort:

Columns(3).SpecialCells(2)

Volledig:

Sub Oeldere()
On Error GoTo foutje
 Columns(3).SpecialCells(2).EntireRow.Delete
foutje: MsgBox "Uitvoering niet mogelijk : geen of allemaal lege cellen"
End Sub

 

[oeldere]

@HSV, bedankt voor je snelle reactie.

Als ik niet alle informatie geef, krijg ik natuurlijk ook niet het juiste antwoord.

Daarom als bijlage een kort voorbeeldje.

In kolom C komen ook cellen met een formule voor.

Heb je hier vragen of opmerkingen over, laat het gewoon even weten.

 

[HSV]

Kan je het niet baseren op kolom A ?
Maar met delete krijg je natuurlijk in de som een #VERW!

Sub wis_niet_lege_rijen()
 Columns(1).SpecialCells(2).EntireRow.delete
  If Err.Number <> 0 Then MsgBox "Uitvoering niet mogelijk : geen of allemaal NIET lege cellen"
End Sub

Dus misschien met clearcontents ?

Sub wis_niet_lege_rijen()
On Error GoTo foutje
 Columns(1).SpecialCells(2).EntireRow.ClearContents
   Exit Sub
foutje:  MsgBox "Uitvoering niet mogelijk : geen of allemaal NIET lege cellen"
End Sub

 

[oeldere]

Wissen NIET lege cellen in een kolom

@HSV

met jouw hulp ben ik tot deze oplossing gekomen (is het gewenste eindresultaat).

Sub wis_niet_lege_rijen_oeldere()
    Columns(3).SpecialCells(2).EntireRow.Delete             'cellen die constanten bevatten
 
    Columns(3).SpecialCells(-4123).EntireRow.Delete         'cellen die formules bevatten
  
  If Err.Number <> 0 Then MsgBox "Uitvoering niet mogelijk : geen of allemaal NIET lege cellen"
  
  Application.Run "wis_lege_rijen"                          'roep macro op voor wissen van lege cellen in kolom A
End Sub

Sub wis_lege_rijen()

With Columns("A").SpecialCells(xlCellTypeBlanks).Cells
    .EntireRow.Delete Shift:=xlUp
  End With
  If Err.Number <> 0 Then MsgBox "Uitvoering niet mogelijk : geen of allemaal lege cellen"
 End Sub

Het voorbeeld en eindresultaat is bijgevoegd.

Misschien dat anderen er in de toekomst ook hun voordeel mee kunnen doen.

Hartelijk dank voor je bijdrage :thumb: