cellen verwijderen die met bepaalde kleur

[don42]

Beste helpers

Ben bezig met een verlofboekje en heb er een voorbeeldje van toegevoegd
het is de bedoeling dat van de geselecteerde cellen de blauwe gedeletet worden
is dit mogelijk en wie weet hoe het moet

bvd
Don

 

[AlexCEL]

Geen VBA guru, maar zo misschien?

Private Sub CommandButton1_Click()
    For Each cell In Range("A2:G11")
        If cell.Interior.Color = &HF0B000 Then
            cell.Clear
        End If
    Next
End Sub

 

[don42]

net niet

Ik wil graag dat de cel die blauw is volledig gedeletet wordt
en dan het liefst alleen de cellen of kolom die geselecteerd is

 

[Timshel]

Private Sub CommandButton1_Click()
    Dim Cl As Range
    
    For Each Cl In Selection
        If Cl.Interior.Color = &HF0B000 Then
            Cl.Delete Shift:=xlUp
        End If
    Next
End Sub

 

[AlexCEL]

Alleen in cellen of kolommen die geselecteerd zijn kan door kleine aanpassing in de code.

Private Sub CommandButton1_Click()
    For Each cell In Selection
        If cell.Interior.Color = &HF0B000 Then
            cell.Clear
        End If
    Next
End Sub

Wat versta je onder "volledig gedeletet"?

Edit: denk dat Tim het al opgelost heeft.

 

[don42]

Top ik ben weer goed geholpen door jullie
ik wou de blauwe cellen volledig verwijderen zoals in #4
ik ben blij met jullie hulp kan weer verder
:thumb:

 

[don42]

Beste helpers ik heb nog 1 opmerking/vraagje

als ik meerdere cellen blauw maakt dan selecteer worden niet alle cellen tegelijk verwijderd
en blijven er een paar gewoon staan
Nog een keer klikken haalt ook de laatste weg (dat dan weer wel)
het werkt zo ook prima maar als het in 1 keer kan zou het net iets mooier zijn....

Noot:
Volgens mij waar 2 of meer blauwe cellen onder elkaar staan gaat het niet allemaal tegelijk

 

[Timshel]

Oeps ja, deleten van onder naar boven.

Private Sub CommandButton1_Click()
    Dim Rng As Range
    Dim i As Long
    
    Set Rng = Selection
    For i = Rng.Count To 1 Step -1
        If Rng(i).Interior.Color = &HF0B000 Then
            Rng(i).Delete Shift:=xlUp
        End If
    Next
End Sub

 

[VenA]

Hoe komen die blauwe cellen tot stand dan?

 

[don42]

Ja ja
Toch goed dat ik even heb doorgevraagd
Met andere woorden
Super

Vena
Chauffeurs vragen hele weken vakantie aan
Maar hebben verschillend rooster vrij
Deze dagen maak ik blauw
En kan zo opschonen
En meer verlof plekken vrij maken

 

[VenA]

Klinkt als een zeer doordachte opzet en uitleg. <Ctlr> + '-' maakt ook de cel leeg. Hoef je het niet eerst blauw te kleuren.

 

[don42]

Oké
Ik neem het mee
:thumb: