Wat doe ik fout met deze VBA code ?

[Revdutchie]

Heren, en Dames natuurlijk

Op een ander forum wilde iemand rijen verwijderen bij een waarde in kolom A

Na veel geprobeer kwam ik op volgende uit wat goed lijkt te werken.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRange As Range
Set MyRange = Range("A:A")
For Each c In MyRange
If c = "Nee" Then
c.Rows.Hidden = True
End If
Next
End Sub

Nu staat er vandaag op dit forum een vraag "If vraag" ik dacht dat los ik op met dezelfde code. De TS wil de 2 cellen rechts naast een cel leeg hebben als target cell leeg is, dus ik dacht ik maak

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRange As Range
Set MyRange = Range("T:T")
For Each c In MyRange
If c = "" Then
c.Rows.offset(0,1) = ""
c.Rows.offset(0,2) = ""
End If
Next
End Sub

Maar dan kom ik dus in een loop terecht.

Mijn vraag is dus, waarom werkt het ogenschijnlijk in de eerste oplossing wel en in de tweede niet ?

 

[Cobbe]

Je moet het bereik beperken tot de ingevulde cellen.
Nu loopt hij de 65535 rijen af alvorens te stoppen.

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

Suc6, Cobbe

 

[Revdutchie]

Je moet het bereik beperken tot de ingevulde cellen.
Nu loopt hij de 65535 rijen af alvorens te stoppen.

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

Suc6, Cobbe

Thx, dat werkt, zie mijn post
http://www.helpmij.nl/forum/showpost.php?p=3176617&postcount=19