If-vraagje

[Revdutchie]

@Revdutchie
Ik zou hier geen worksheet-event gebruiken aangezien je telkenmale je nu van cel wisselt de macro onnodig uitvoert.
aangezien het hier een 1-malige opkuisaktie betreft zou ik het hierbij houden

Ik had niet begrepen dat het om een eenmalige opkuis aktie ging

Sorry, dan kan je natuurlijk idd beter geen worksheet event gebruiken.

Maar ja "Opkuisen" is voor ons Ollanders ook niet een dagelijks woord he

 

[vovo]

Ok, ik was hier al de hele dag mee aan het puzzelen en met een beetje (veel) hulp van Cobbe
deze VBA oplossing dus zonder hulp kolommen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyRange As Range
Set MyRange = Range("T1:T" & Range("T65500").End(xlUp).Row)
For Each c In MyRange
If c = "" Then
c.Rows.Offset(0, 1) = ""
c.Rows.Offset(0, 2) = ""
End If
Next
End Sub

Bedankt voor de hulp Revdutchie ! en hoe zeggen jullie "Ollanders" opkuisen dan mss ?

 

[vovo]

@Revdutchie
Ik zou hier geen worksheet-event gebruiken aangezien je telkenmale je nu van cel wisselt de macro onnodig uitvoert.
aangezien het hier een 1-malige opkuisaktie betreft zou ik het hierbij houden

Sub tst()
For Each cl In Range("A2:A" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row)
    If cl.Offset(, 19) = "" Then
        cl.Offset(, 20).Resize(, 2).ClearContents
    End If
Next
End Sub

Bedankt warme bakkertje ! Btw heeft er iemand enige tips qua lectuur om zich te lanceren in VBA ? (voor een beginner...)

 

[Revdutchie]

Bedankt voor de hulp Revdutchie ! en hoe zeggen jullie "Ollanders" opkuisen dan mss ?

Wij gebruiken daarvoor opschonen