Meerdere waarden uit een aangesloten kolom verwijderen

[ErikdV]

Ik heb een werkblad met meerdere tabbladen. Na gebruik wil ik telkens in kolom F de cellen met een bepaalde waarde leegmaken.
Het betreft een aantal aaneengesloten rijen, waarvan kolom F altijd een waarde heeft.
Onderstaande VBA werkt als de waarde 0 is.

Public Sub resultaat_leeg()
For j = 2 To 12
Sheets(j).Columns(6).SpecialCells(2).Areas(1).Replace "0", ""
Next
MsgBox "De 0-waarden in kolom F (resultaten) zijn verwijderd"
End Sub

Ik wil echter de code zodanig maken dat zowel de waarde "0" als de waarde "NG" wordt leeggemaakt.
Ik had daarvoor het volgende bedacht.

Sheets(j).Columns(6).SpecialCells(2).Areas(1).Replace "0", ""
Sheets(j).Columns(6).SpecialCells(2).Areas(1).Replace "NG", ""

De 2e regel wordt niet uitgevoerd omdat het geen aaneengesloten area meer is.
Hoe kan ik dit aanpassen zodat wel beide waarden worden verwijderd?

 

[rebmog]

Probeer eens zo:

Public Sub resultaat_leeg()
For j = 2 To 12
Sheets(j).Columns(6).SpecialCells(2).Areas(1).Replace "NG", "0" 
Sheets(j).Columns(6).SpecialCells(2).Areas(1).Replace "0", ""
Next
MsgBox "De 0-waarden in kolom F (resultaten) zijn verwijderd"
End Sub

Rebmog