heel de kolommen waar de cel geel van zijn c,e,h,l,m,n,q,r,w,x,z,aa
Sub Methode2()
Dim i As Long
With ActiveWorkbook.Sheets(1)
For i = 100000 To 1 Step -1
If LCase(.Cells(i, "C")) = "x" Or UCase(.Cells(i, "C")) = "X" Then
.Cells(i, "C").EntireColumn.Delete
End If
Next i
End With
End Sub
met deze code gaat heel C weg
nu moeten deze allemaal verwijderd worden
e,h,l,m,n,q,r,w,x,z,aa
Dus heel de kolommen