cellen omhoog doorvoeren van actieve cel

[Theophiel]

hallo beste forumleden,

Ik zou graag nog eens van jullie hulp en kennis willen gebruik maken. Ik heb zelf al wat geprobeerd maar ik geraakt niet verder dan wat het is.

Via een macro wordt A11:L11 geselecteerd(om gewijzigde data snel te controleren en te bevestigen).
Wanneer men op een filter tabblad niveau 9 geslaagd invult wordt in de bijgevoegde tabel A11:L11 geselecteerd en dan zou ik willen dat alle 10 bovenstaande oefeningen ingevuld worden als ok.

Alvast bedankt op voorhand!

 

[VenA]

Met offset en resize moet je een eind kunnen komen. Het geplaatste bestand is onbruikbaar door koppelingen en kringverwijzingen.

 

[JEC.]

Dus zoiets

Sheets(1).Cells(11, 6).Offset(-10).Resize(11) = "OK"

of

Sheets(1).Cells(1, 6).Resize(11) = "OK"

of

Sheets(1).Range("F1:F11") = "ok"

 

[Theophiel]

Sorry,

Bestandje aan gepast naar bruikbare tabel.

 

[Theophiel]

Thanks!!!

Offset(-10).Resize(11) = "OK"

!!!

Ik heb de 11 naar 10 gebracht omdat Geslaagd moest blijven.

 

[JEC.]

Sub DoorvoerActiveRow()
If Range("F" & ActiveCell.Row).Value = "GESLAAGD" Then Range("F" & ActiveCell.Row).Offset(-10).Resize(10) = "ok"
End Sub