• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Meerdere waarden uit een aangesloten kolom verwijderen

Status
Niet open voor verdere reacties.

ErikdV

Gebruiker
Lid geworden
16 jun 2011
Berichten
81
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?
 
Probeer eens zo:

Code:
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan