If met 2 then acties

[ivoexcel]

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"

 

[JEC.]

2 mogelijkheden waarvan de eerste de mooiste.

PS: Misschien handig om gewoon een Excel formule te gebruiken?

Sub j()
If Range("D1").Value >= 10 Then Range("A1").Resize(, 2) = Array("OKE", "Goed")
End Sub

Sub j2()
If Range("D1").Value >= 10 Then
 Range("A1") = "OKE"
 Range("B1") = "Goed"
End If
End Sub

 

[ivoexcel]

Yes top ik heb de fout gezien. Danku!

 

[VenA]

Waarom in twee kolommen dezelfde informatie zetten?

 

[ivoexcel]

Is een voorbeeld.

 

[VenA]

Dat verklaart alles...