Geselecteerde + naast liggende cellen verwijderen

[jansm]

Ik heb alles afgesloten, opnieuw het voorbeeld geopend, jouw code erin gestopt. Twee keer is het goed gegaan (juiste cellen verwijderd). Derde keer kreeg ik weer de melding
Ga straks verder proberen

 

[edmoor]

Daar heb ik ook niks aan. In je eerdere document werkt het prima.
De vraag is dus wat je nu anders doet.

 

[jansm]

Aan allen de beste wensen, vooral gezondheid, voor 2018!

Edmoor, het probleem bij mij zat h'm in de onjuiste manier van cellen selecteren. Ik had een cel actief buiten de selectie D-F en selecteerde dan met ctr-Lmuis cellen in cellen in kolom D. Met als gevolg dat ook de cel buiten het gebied geselecteerd werd. Het heeft lang geduurd voordat ik daar achter kwam. Shame on me!

 

[edmoor]

Hetzelfde gewenst

Daarom zei ik in het begin: "zonder controle".
Deze is met een stukje controle:

Sub KolsDEF_Verwijder()
    If Selection.Columns.Count = 1 And Selection.Column = 4 Then
        adr1 = Split(Selection.Address, "$")
        adr2 = adr1
        adr3 = adr1
        
        For i = 1 To UBound(adr2) Step 2
            adr2(i) = "E"
            adr3(i) = "F"
        Next i
    
        Range(Join(adr1, "")).Delete
        Range(Join(adr2, "")).Delete
        Range(Join(adr3, "")).Delete
    End If
End Sub