Archive of Mr Excel Message BoardArchive of Mr Excel Message Board
I have a cell (say, A1) that the user enters a date into, like "2000/7/31". I would then like to use the .Find method to find this date in a range of cells, but for some reason the .Find method cannot seem to find it.
code as follows:
With Activesheet.Columns(1).Cells
Set cell = .Find(InputDate) 'InputDate is the cell w/ the date the user has entered.
if Not cell is Nothing then
row = cell.row
end if
End With
However, the .Find method is not working, as it is always returning pointing cell to Nothing, and I'm sure InputDate exists in the first column of the active sheet.
Any help will be greatly appreciated.
yu-kuan
| Check out our Excel VBA Resources | ||||
 |
 |
 |
 |
 |
In your "find" dialogue box, you have a choice of "formulas, values, or comments" in the "Look In" box. You need to choose values when you are trying to find a date.
Cheers,
Thomas
thiscell = 0
readcell:
thiscell = ActiveCell.Value
Set c = Nothing
Do Until IsEmpty(thiscell) = True
Set c = Nothing
ACVAL = ActiveCell.Value
With Sheets("Sheet2").Range("F:F")
Set c = .Find(ACVAL, LookIn:=xlValues)
If Not c Is Nothing Then
ActiveCell.Offset(1, 0).Select
c.Address <> firstAddres
GoTo readcell
Else
End If
ActiveCell.EntireRow.Delete
thiscell = ActiveCell.Value
End With
Loop