Vertalen

[Jack Nouws]

Hallo

Wie kan mij vertellen wat dit stukje code precies doet?
Graag een nauwkeurige verklaring AUB

Met vr gr
Jack

                    For Each c In Worksheets("Planten").Range("C4:C100")
                If c.Value = txtVNplant.Text And c.Offset(0, 1).Value = txtTVplant And c.Offset(0, 2).Value = txtANplant.Text Then
                    c.EntireRow.Delete

 

[richard1970]

For Each c In Worksheets("Planten").Range("C4:C100")
           If c.Value = txtVNplant.Text And c.Offset(0, 1).Value = txtTVplant And c.Offset(0, 2).Value = txtANplant.Text Then
           c.EntireRow.Delete

Voor iedere cel in op werkblad "Planten" binnen het bereik C4 t/m C100 wordt gekeken of de inhoud van de cel gelijk is aan "txtVNplant" èn of de inhoud van de cel ernaast (kolom D) gelijk is aan "txtTVplant" èn of de inhoud van de cel daarnaast (kolom E) gelijk is aan "txtANplant"
Als aan deze drie voorwaarden is voldaan, wordt de rij verwijderd. Als niet aan alle drie voorwaarden is voldaan, wordt de rij niet verwijderd.

Met dank aan HierEnNu voor de correctie. Dacht het uit mijn hoofd te weten.

Groeten,

Richard

 

[HierEnNu]

offset(0,1) wil niet zeggen de cel eronder, maar de cel ernaast (dus 1 kolom verder)

Groeten,

M.

 

[Jack Nouws]

offset(0,1) wil niet zeggen de cel eronder, maar de cel ernaast (dus 1 kolom verder)

Groeten,

M.

Dank je wel! Nu weet ik wat ik wilde weten.

Groetjes Jack