Find help 1

[Johnny42]

Why am I getting this error :
error 91 Block With.....
With this code:
startRow = Worksheets("Sheet1").Columns("A").Find("100", _
LookIn:=xlValues, LookAt:=xlWhole).Row

 

[xlbo]

You need to show more of your code - the error is in a WITH construct

Rgds, Geoff

Three things are certain. Death, taxes and lost data. DPlank is to blame

Please read FAQ222-2244 before you ask a question

 

[Johnny42]

Sub FindDates()
On Error GoTo errorHandler
Dim startDate As String
Dim stopDate As String
Dim startRow As Integer
Dim stopRow As Integer

startDate = 151515
startRow = Worksheets("ATELIER").Columns("A").Find(startDate, _
LookIn:=xlValues, lookat:=xlWhole).Row

MsgBox startRow
End
errorHandler:
MsgBox "There has been an error: " & Error() & Chr(13) _
& "Ending Sub.......Please try again", 48
End Sub

 

[rmikesmith]

Johnny42,

Find returns a Range object. If it is unsuccessful, it returns Nothing and therefore, trying to access the range's Row property gives an error. Try this construct:

Dim ResultRng As Range
Dim startRow As Long

Set ResultRng = Worksheets("Sheet1").Columns("A").Find _("100", LookIn:=xlValues, LookAt:=xlWhole)
If Not ResultRng Is Nothing Then startRow = ResultRng.Row
End Sub

Regards,
Mike

 

[Johnny42]

Thanks !