Hilite or to see the row number without error ? in another worksheet

[NimishK]

Anyone

Having two worksheets. from 1st worksheet already value has been searched. now i want to find the same value in another worksheet

when i click on chkbox1_Click i activate another sheet. works fine uptil here but
error comes "Object Variable or with Block Variable not set with the following line
wkTwoSheet.Rows(FindRow.Row).Select

Below is the code

Private Sub chkbox1_Click()

Dim wkTwoSheet As Worksheet
Set wkTwoSheet = Worksheets(uf1.txtCoSheetName.Text)
wkTwoSheet.Activate

Dim diffRange As Range
Dim SearchRange As Range
Dim FindRow As Range

Set SearchRange = wkTwoSheet.Range("B3", Range("A65536").End(xlUp))
Set FindRow = wkTwoSheet.Range("B3").Find(what:=uf1.txtSrchVal.Text, LookIn:=xlValues, lookat:=xlWhole)

 wkTwoSheet.Rows(FindRow.Row).Select                     
'Error for the above line  ..... Rows(FindRow.Row).Select    Object Variable or with Block Variable not set   


End Sub

How to see or hilite the row number without error ?
Thankx
NimishK

 

[steve the fish]

Looks like a couple of mistakes in there. Where are you intending your search range to be? Column B? Column A? Or both? Then you dont use Find on the search range

 

[NimishK]

Looks like a couple of mistakes in there. Where are you intending your search range to be? Column B? Column A? Or both? Then you dont use Find on the search range

Already searched in wkOnesheet from Column B (which displays in txtSrchVal.text) and when clicking on checkbox
i want to search the same from (txtSrchVal.text) in wkTwosheet as specified in column B of wkTwoSheet and hilite or get row number.

 

[steve the fish]

Try replacing:

Set SearchRange = wkTwoSheet.Range("B3", Range("A65536").End(xlUp))
Set FindRow = wkTwoSheet.Range("B3").Find(what:=uf1.txtSrchVal.Text, LookIn:=xlValues, lookat:=xlWhole)

with:

With wkTwoSheet
    Set searchrange = .Range(.Cells(3, "B"), .Cells(.Rows.Count, "B").End(xlUp))
    Set FindRow = searchrange.Find(what:=uf1.txtSrchVal.Text, LookIn:=xlValues, lookat:=xlWhole)
End With

 

[NimishK]

Indeed a Great One !
Thank you so much for your timely help.

 

[steve the fish]

The only other thing you should then do is test that FindRow isnt nothing before using it.

If Not FindRow is Nothing Then
'etc

This will prevent further errors should the find not produce a result.

 

[NimishK]

Thank you so much for the last tip. Had read somewhere of "if not Findrow....." but didnt know for what purpose.
Now I know.

thanks
NimishK