Help with an error in my code pls

[seriouslystuck]

Hi

Can someone please help me! Im getting the error object variable or with block variable not set, at the red txt

Dim searchdate As String Dim c As Range Dim firstaddress As String Dim blnRepeat As Boolean

blnRepeat = True

Do While blnRepeat = True

searchdate = Range("FH5").Value

With Range("F:F") Set c = .Find(searchdate, LookIn:=xlValues) If Not c Is Nothing Then firstaddress = c.Address blnFndMtch = True Do c.Offset(0, 0).Value = Range("FI5").Value blnRepeat = False Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstaddress End If End With

If c Is Nothing Then

Exit Do

End If

Loop

End Sub

 

[adam087]

It didn't format particularly well there, hard to make up where all the loops / ifs begin and end?

Adam

 

[seriouslystuck]

Sorry code didnt paste properly

Dim searchdate As String Dim c As Range Dim firstaddress As String Dim blnRepeat As Boolean

blnRepeat = True

Do While blnRepeat = True

searchdate = Range("FH5").Value

With Range("F:F")
Set c = .Find(searchdate, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address blnFndMtch = True
Do
c.Offset(0, 0).Value = Range("FI5").Value
blnRepeat = False
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress 'this is the error line
End If
End With

If c Is Nothing Then

Exit Do

End If

Loop

End Sub

 

[adam087]

I think your syntax of DO and LOOP is mixed up there.

Adam

 

[VoG]

Try

Sub test()
Dim searchdate As String
Dim c As Range
Dim firstaddress As String
Dim blnRepeat As Boolean
blnRepeat = True
Do While blnRepeat = True
    searchdate = Range("FH5").Value
    With Range("F:F")
        Set c = .Find(searchdate, LookIn:=xlValues)
        If Not c Is Nothing Then
            firstaddress = c.Address
            blnFndMtch = True
            Do
                c.Offset(0, 0).Value = Range("FI5").Value
                blnRepeat = False
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstaddress
        End If
    End With
    If c Is Nothing Then
    Exit Do
    End If
Loop
End Sub

 

[niceguy_jay]

try this

Dim searchdate As String
Dim c As Range
Dim firstaddress As String
Dim blnRepeat As Boolean

blnRepeat = True

Do While blnRepeat = True

searchdate = Range("FH5").Value

With Range("F:F")
Set c = .Find(searchdate, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
blnFndMtch = True
Do
c.Offset(0, 0).Value = Range("FI5").Value
blnRepeat = False
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress 'this is the error line
End If
End With

If c Is Nothing Then

Exit Do

End If

Loop

End Sub

 

[seriouslystuck]

Thanks guys seems to be working fine now

 

[seriouslystuck]

Just a quick question guys..

Is there a way to find a number in a column between say 1000 and 2000??