mpeeperkamp
Gebruiker
- Lid geworden
- 6 apr 2012
- Berichten
- 9
Ik wil graag door een macro de actieve cel (geselecteerde cel en de 2 cellen rechts daarvan automatisch wissen, ik heb al heel veel codes van dit forum proberen te mixen maar heb het nog niet voor elkaar gekregen. Heb bijvoorbeeld geprobeerd om in de actieve cel een "x"in te voeren dmv een macro en op basis van die waarde de cellen te wissen, het is belangrijk dat de rij cellen niet verwijderd wordt maar alleen de inhoud gewist.
Heb deze code gebruikt maar werkt niet voor de actieve cel. heeft iemand een goede oplossing ??
'
Sub tst2()
On Error Resume Next
For Each cl In Columns(1).SpecialCells(xlCellTypeConstants)
If MsgBox("Celwaarden wissen ?", vbOKCancel) = vbOK Then
Application.Union(cl.Offset(, 1).Resize(, 2), cl.Offset(, 3)).ClearContents
End If
Next
End Sub
'
Heb deze code gebruikt maar werkt niet voor de actieve cel. heeft iemand een goede oplossing ??
'
Sub tst2()
On Error Resume Next
For Each cl In Columns(1).SpecialCells(xlCellTypeConstants)
If MsgBox("Celwaarden wissen ?", vbOKCancel) = vbOK Then
Application.Union(cl.Offset(, 1).Resize(, 2), cl.Offset(, 3)).ClearContents
End If
Next
End Sub
'