Hallo,
in onderstaande code wil ik dat als D1 gelijk of meer is dan 10 dat in A1 ''OKE'' komt te staan en dat B1 de stijl "goed" krijgt.
In actie naar Then is geen probleem, twee acties lukt niet. Hopelijk kan iemand mij helpen volgens mij zie ik iets heel simpels over het hoofd...
Alvast bedankt !
If (Range("D1")) >= 10 Then (Range("A1")).value = "OKE" And (Range("B1")).Style = "Goed"
in onderstaande code wil ik dat als D1 gelijk of meer is dan 10 dat in A1 ''OKE'' komt te staan en dat B1 de stijl "goed" krijgt.
In actie naar Then is geen probleem, twee acties lukt niet. Hopelijk kan iemand mij helpen volgens mij zie ik iets heel simpels over het hoofd...
Alvast bedankt !
If (Range("D1")) >= 10 Then (Range("A1")).value = "OKE" And (Range("B1")).Style = "Goed"