HI!,

I am trying to find a date from an activecell but i get the error message


"object variale or with block variable not set"

From the bellow Sub

Sub MENB()

Dim LASTROW As Long
Dim abcd As range

Sheets("MONTHS TO UPDATE").Select
LASTROW = Cells(Rows.Count, 1).End(xlUp).Row
For nb = LASTROW To 1 Step -1
Cells(nb, 1).Select
If Cells(nb, 2).Value Like "*X" Then
GoTo GETOUT
End If
Next nb
GETOUT:
Set abcd = ActiveCell
Sheets("Copy Paste Special").Select
Range("a1").Select
Cells.Find(What:=abcd, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

End Sub

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200609/1

My first guess would be that you have Option Explicit at the top of each
module. If a variable is not Dimmed, then you will get that error. Add this
to your code for variable nb:
Sub MENB()

Dim LASTROW As Long
Dim abcd As range
Dim nb As Long

Mike F

"FIRSTROUNDKO via OfficeKB.com" <u15639@uwe wrote in message
news:66f53971c2256@uwe...
HI!,

I am trying to find a date from an activecell but i get the error message


"object variale or with block variable not set"

From the bellow Sub

Sub MENB()

Dim LASTROW As Long
Dim abcd As range

Sheets("MONTHS TO UPDATE").Select
LASTROW = Cells(Rows.Count, 1).End(xlUp).Row
For nb = LASTROW To 1 Step -1
Cells(nb, 1).Select
If Cells(nb, 2).Value Like "*X" Then
GoTo GETOUT
End If
Next nb
GETOUT:
Set abcd = ActiveCell
Sheets("Copy Paste Special").Select
Range("a1").Select
Cells.Find(What:=abcd, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

End Sub

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200609/1

Hi
If the Find part doesn't find anything then you will get an error. Do
on error resume next
Cells.Find(What:=abcd, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
on error goto 0

This will ignore the error within your loop, do nothing to the cells,
and go onto the next loop value, if that is what you want?
regards
Paul

FIRSTROUNDKO via OfficeKB.com wrote:
HI!,

I am trying to find a date from an activecell but i get the error message


"object variale or with block variable not set"

From the bellow Sub

Sub MENB()

Dim LASTROW As Long
Dim abcd As range

Sheets("MONTHS TO UPDATE").Select
LASTROW = Cells(Rows.Count, 1).End(xlUp).Row
For nb = LASTROW To 1 Step -1
Cells(nb, 1).Select
If Cells(nb, 2).Value Like "*X" Then
GoTo GETOUT
End If
Next nb
GETOUT:
Set abcd = ActiveCell
Sheets("Copy Paste Special").Select
Range("a1").Select
Cells.Find(What:=abcd, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

End Sub

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200609/1