S
ste mac
Hi, I have the code below, but I do not know how to adjust the syntax.
How do I get 'lastdata' to be equal to, greater than and equal to,
less than two cell values?
cheers
ste
Sub findlatest()
Application.ScreenUpdating = false
Dim myrng As Range
Dim myfound As Range
Dim lastdata As Long
Sheets("Main").Select
'Problem here!
lastdata= (>= Sheets("Main").Range("I65536").End(xlUp).Value And
lastdata <= Sheets("Main").Range("J65536").End(xlUp).Value )
Set myrng = Sheets("BaseData").Columns("B:U")
Set myfound = myrng.Find(What:=lastdata, After:=myrng.Cells(1),
LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows,
SearchDirection:=xlPrevious, MatchCase:=False)
Sheets("Main").Range("L65536").End(xlUp).Value = myfound.Row - 1
Application.ScreenUpdating = True
End Sub
How do I get 'lastdata' to be equal to, greater than and equal to,
less than two cell values?
cheers
ste
Sub findlatest()
Application.ScreenUpdating = false
Dim myrng As Range
Dim myfound As Range
Dim lastdata As Long
Sheets("Main").Select
'Problem here!
lastdata= (>= Sheets("Main").Range("I65536").End(xlUp).Value And
lastdata <= Sheets("Main").Range("J65536").End(xlUp).Value )
Set myrng = Sheets("BaseData").Columns("B:U")
Set myfound = myrng.Find(What:=lastdata, After:=myrng.Cells(1),
LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows,
SearchDirection:=xlPrevious, MatchCase:=False)
Sheets("Main").Range("L65536").End(xlUp).Value = myfound.Row - 1
Application.ScreenUpdating = True
End Sub