i want to make a if the player step into the yellow box the player will thrown back 5 steps back ward

[Syaz]

My problem is everytime i throw dice and step into yellow box, it not step into the yellow box but the step will go to the 5 step backward(G1) and not stop a while in the yellow box(refer to cell G5). This is my Vba.

Sub BoardGame()

Dim dice
Dim x
Dim total

x = 0

dice = Int((6 - 1 + 1) * Rnd + 1)
MsgBox dice

If ActiveCell.Row() <> 5 Or ActiveCell.Column() < 1 Or ActiveCell.Column() > 39 Then
MsgBox "FINISH!"
MsgBox total
Else
x = x + dice
ActiveCell.Offset(0, x).Select
End If


If ActiveCell = Range("G5") Then
ActiveCell.Offset(0, -5).Select
ElseIf ActiveCell = Range("I5") Then
ActiveCell.Offset(0, -7).Select
ElseIf ActiveCell = Range("N5") Then
ActiveCell.Offset(0, 3).Select
ElseIf ActiveCell = Range("U5") Then
ActiveCell.Offset(0, -5).Select
ElseIf ActiveCell = Range("Z5") Then
ActiveCell.Offset(0, 3).Select
ElseIf ActiveCell = Range("AF5") Then
ActiveCell.Offset(0, -7).Select
ElseIf ActiveCell = Range("AM5") Then
ActiveCell.Offset(0, -10).Select
End If


End Sub

 

[bebo021999]

Quite not sure I can understand what to play the game, but it seem you don't want to perform 2 steps within a code run?
stop even before running, and open even after running.
like this:

Sub BoardGame()
Application.EnableEvens = False
......
<main code>
......
Application.EnableEvens = True
End Sub

If it does not work, try to attach a screenshot/image, before and after.

 

[Syaz]

Quite not sure I can understand what to play the game, but it seem you don't want to perform 2 steps within a code run?
stop even before running, and open even after running.
like this:

Sub BoardGame()
Application.EnableEvens = False
......
<main code>
......
Application.EnableEvens = True
End Sub

If it does not work, try to attach a screenshot/image, before and after

actually i want to perform 2 steps but it happen one steps .the first step is to step in yellow box then it need to move to next step , 5 box backward.
My code make the step go to through the second step but not the first step that is step in the yellow box.

 

[bebo021999]

You have openned a same content twice :

The number of dice player rolled

How to display the number of dice player rolled in vba in the message box after finish the line

www.mrexcel.com

Do you refer to continue here or that thread?