Hello all
Before the holidays. this code worked
after the magic of christmas is gone, so is the integrity of this code.
What went wrong?
Through a drop down menu, the user selects a name which appears in C2
upon clicking the "View Cert" button it takes you to the name that matches
C2 this will be anywhere between A66:A2020
now it does nothing - no errors either
Stumped



Sub ViewCert()
Dim rngToSearch As Range
Dim rngFound As Range
Dim wks As Worksheet
Set wks = ActiveSheet
Set rngToSearch = Worksheets("Certs").Range("A66:A2020")
Set rngFound = rngToSearch.Find(Range("C2"))

If Not rngFound Is Nothing Then
Application.Goto Range(rngFound.Address), True
End If
End Sub

First thing I'd try is changing this:
Application.Goto Range(rngFound.Address), True
to
Application.Goto rngFound, True

rngFound.address returns a string (Say x99)
range(x99) will refer to the activesheet--not Certs.




ufo_pilot wrote:

Hello all
Before the holidays. this code worked
after the magic of christmas is gone, so is the integrity of this code.
What went wrong?
Through a drop down menu, the user selects a name which appears in C2
upon clicking the "View Cert" button it takes you to the name that matches
C2 this will be anywhere between A66:A2020
now it does nothing - no errors either
Stumped

Sub ViewCert()
Dim rngToSearch As Range
Dim rngFound As Range
Dim wks As Worksheet
Set wks = ActiveSheet
Set rngToSearch = Worksheets("Certs").Range("A66:A2020")
Set rngFound = rngToSearch.Find(Range("C2"))

If Not rngFound Is Nothing Then
Application.Goto Range(rngFound.Address), True
End If
End Sub

--

Dave Peterson

Give this a whirl... Find is subject to the settings last selected using Find
in Excel. As a guess some of them have been changed since you last ran the
code

Sub ViewCert()
Dim rngToSearch As Range
Dim rngFound As Range
Dim wks As Worksheet
Set wks = ActiveSheet
Set rngToSearch = Worksheets("Certs").Range("A66:A2020")
Set rngFound = rngToSearch.Find(What:=wks.Range("C2"), _
LookAt:=xlPart, MatchCase:=false)

If Not rngFound Is Nothing Then
Worksheets("Certs").activate
rngFound.activate
Else
msgbox "Not Found"
End If
End Sub
--
HTH...

Jim Thomlinson


"ufo_pilot" wrote:

Hello all
Before the holidays. this code worked
after the magic of christmas is gone, so is the integrity of this code.
What went wrong?
Through a drop down menu, the user selects a name which appears in C2
upon clicking the "View Cert" button it takes you to the name that matches
C2 this will be anywhere between A66:A2020
now it does nothing - no errors either
Stumped



Sub ViewCert()
Dim rngToSearch As Range
Dim rngFound As Range
Dim wks As Worksheet
Set wks = ActiveSheet
Set rngToSearch = Worksheets("Certs").Range("A66:A2020")
Set rngFound = rngToSearch.Find(Range("C2"))

If Not rngFound Is Nothing Then
Application.Goto Range(rngFound.Address), True
End If
End Sub

And that string looks more like: "$X$99"
But there still is not worksheet associated with that string.

By using the range variable itself, you get that range's parent (worksheet),
too.

Dave Peterson wrote:

First thing I'd try is changing this:
Application.Goto Range(rngFound.Address), True
to
Application.Goto rngFound, True

rngFound.address returns a string (Say x99)
range(x99) will refer to the activesheet--not Certs.

ufo_pilot wrote:

Hello all
Before the holidays. this code worked
after the magic of christmas is gone, so is the integrity of this code.
What went wrong?
Through a drop down menu, the user selects a name which appears in C2
upon clicking the "View Cert" button it takes you to the name that matches
C2 this will be anywhere between A66:A2020
now it does nothing - no errors either
Stumped

Sub ViewCert()
Dim rngToSearch As Range
Dim rngFound As Range
Dim wks As Worksheet
Set wks = ActiveSheet
Set rngToSearch = Worksheets("Certs").Range("A66:A2020")
Set rngFound = rngToSearch.Find(Range("C2"))

If Not rngFound Is Nothing Then
Application.Goto Range(rngFound.Address), True
End If
End Sub

--

Dave Peterson

--

Dave Peterson