Macro Els If Else If - problemen.

[MisterF]

Hoi allemaal,
Ik heb een macro probleem.

De macro is gekoppeld aan een knop
Als ik op de knop klik , dan moet de macro moet het volgende doen.

Als in werkblad4 in cel A1 Ja staat
ga dan naar werkblad splitsen

Als in werkblad ("Voorblad") cel b2 10 staat
ga dan naar werkblad ("bevindingen")
Staat in deze cel (b2) 5
ga dan naar werkblad ("bijlagen")
Einde macro


Wie kan mij helpen.

BVD.,
MisterF

 

[Janzwart]

Met de volgende code zou het moeten lukken.

Sub janzwart()
If Worksheets("Werkblad4").range("A1")= "Ja" Then
Worksheets("Splitsen").Select
Else
End if
If Worksheets("Voorblad").range("B2")= "10" then
Worksheets("Bevindingen").Select
Elseif Worksheets("Voorblad").range("B2")= "5" then
Worksheets("Bijlagen").Select
else
endif
end sub

 

[MisterF]

Hoi Jan,

Dank voor je reactie. Ik heb de macro iets aangepast en het werkt .

Nogmaals dank voor je hulp

vrgr.,
MisterF