Help with solving a maze in VBA Excel

THANKKKK YOUUUUUUUUUUUUUUUUUUUUUUUUU:yes:yes:yes:yes:yes:yes:yes:yes:yes:yes:yes:yes :yes

Quote:

---

Originally Posted by georgiboy

The thing that is being missed here as far as i can see is:

The code works perfectly but does not show the user visually what is happening, what we get is Cel holding the address of the goal when the code has run.

I was thinking (post 9) that it would be nice if the user could see the path visually.

Code:

---

Sub PATHer()
  Dim Cel As Range
  Set Cel = Range("C3") 'set starting cell here
  Do While Cel.Address <> "$Q$18"  'Insert end cell address here in $A$1 style
    Select Case Cel.Value
      Case "R": Set Cel = Cel.Offset(0, 1)
      Case "L": Set Cel = Cel.Offset(0, -1)
      Case "U": Set Cel = Cel.Offset(-1, 0)
      Case "D": Set Cel = Cel.Offset(1, 0)
    End Select
    Cel.Interior.Color = vbRed
  Loop
End Sub

---

---

THANK YOU:yes:yes:yes

:rofl:

or:

Code:

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("C3:Q17")) Is Nothing Then
        Target.Interior.ColorIndex = 5
        Application.Goto Target.Offset((UCase(Target) = "U") - (UCase(Target) = "D"), (UCase(Target) = "L") - (UCase(Target) = "R"))
    End If
End Sub

---

@ JazzlikeSwan

False = 0, True = -1

Only one is true, or both are false

Code:

---

(UCase(Target) = "U") - (UCase(Target) = "D")

---

-1 = up, --1 = down. (In first .Offset Parameter)

@ snb,
WOW, click anywhere in Maze and watch it solve, OK, it will be too fast to actually watch.

Better slow it down a bit

Code:

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 to 6000: Next

    If Not Intersect(Target, Range("C3:Q17")) Is Nothing Then
        Target.Interior.ColorIndex = 5
        Application.Goto Target.Offset((UCase(Target) = "U") - (UCase(Target) = "D"), _
        (UCase(Target) = "L") - (UCase(Target) = "R"))
    End If
End Sub

---

or

Code:

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("C3:Q17")) Is Nothing Then
        Target.Interior.ColorIndex = 5
        Application.Goto Target.Offset((UCase(Target) = "U") - (UCase(Target) = "D"), (UCase(Target) = "L") - (UCase(Target) = "R"))
        application.wait 1
    End If
End Sub

---

Revised

Code:

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("C3:Q17")) Is Nothing Then
        application.wait Now + 1 / 43200
        Target.Interior.ColorIndex = 5
        Application.Goto Target.Offset((UCase(Target) = "U") - (UCase(Target) = "D"), (UCase(Target) = "L") - (UCase(Target) = "R"))
    End If
End Sub

---

Also revised

Code:

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 to 4000: Next

    If Not Intersect(Target, Range("C3:Q17")) Is Nothing Then
        Target.Interior.ColorIndex = 5
        Application.Goto Target.Offset((UCase(Target) = "U") - (UCase(Target) = "D"), _
        (UCase(Target) = "L") - (UCase(Target) = "R"))
    End If
End Sub

---

Much better :):think:

:devil2: