Thankyou
Terugkerende gebruiker
- Lid geworden
- 3 mei 2009
- Berichten
- 1.737
Beste Helpers,
Mijn eerste vraag op helpmij.nl.
VBA is nog niet mijn "ding", een simpel stukje kopieren en bereiken aanpassen lukt maar verder kom ik niet.
Ik heb in een blad een 2-tal codes staan:
Nu is mijn uitdaging dat het rode gedeelte niet uitgevoerd wordt. Kolom A wordt wel over de gehele kolom gevuld met de datum van vandaag, zodra kolom B gewist wordt, maar kolom A wordt niet gewist.
Ik heb het idee dat zodra kolom B gewist wordt VBA "doorstapt" naar Private Sub Worksheet_Change.
de vraag: Hoe krijg ik het heleblad netjes schoon terwijl toch bij het invullen van kolom B automatisch de datum van vandaag in kolom A terecht komt?
Mijn eerste vraag op helpmij.nl.
VBA is nog niet mijn "ding", een simpel stukje kopieren en bereiken aanpassen lukt maar verder kom ik niet.
Ik heb in een blad een 2-tal codes staan:
Code:
Sub picture_klik2()
Dim Msg, Style, Title, Response, MyString
Msg = "Alles wissen ?"
Style = vbOKCancel
Title = "Wissen"
Response = MsgBox(Msg, Style, Title)
If Response = vbOK Then
MyString = "OK"
Application.ScreenUpdating = False
Worksheets("blad1").Range("C3:H148").ClearContents
Worksheets("blad1").Range("B3:B148").ClearContents
[COLOR="red"]Worksheets("blad1").Range("A3:A148").ClearContents
Worksheets("blad1").Range("B3").Select[/COLOR]
Application.ScreenUpdating = True
Else
MyString = "Cancel"
End If
End Sub
----------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B148")) Is Nothing Then
Target.Offset(, -1).Value = Date
End
End If
End Sub
Ik heb het idee dat zodra kolom B gewist wordt VBA "doorstapt" naar Private Sub Worksheet_Change.
de vraag: Hoe krijg ik het heleblad netjes schoon terwijl toch bij het invullen van kolom B automatisch de datum van vandaag in kolom A terecht komt?