MS Office Forum

Ask Question   UnAnswered
Home » Forum » MS Office       RSS Feeds

Finding Rows

  Asked By: Mada    Date: Sep 19    Category: MS Office    Views: 448

I am trying to search through a sheet, find a value (date) then return
the row nuber of that date. I found this code on the web, but I get an
error. I am using Excel 2000.

Function FindRowNumber(strText) As Integer
FindRowNumber = ActiveSheet.Range("A1:A3000").Find
End Function



2 Answers Found

Answer #1    Answered By: Chaths Massri     Answered On: Sep 19

Try this instead:

Function FindRowNumber(strText) As Integer
Dim TryFind As Range
With ActiveSheet.Range("A1:A3000")
Set TryFind = .Find(strText)
If Not TryFind Is Nothing Then
MsgBox TryFind.Row
MsgBox "Not found!"
End If
End With
End Function

Answer #2    Answered By: Tarron Thompson     Answered On: Sep 19

The code  that you provide below works fine as is. Just make sure you
have pasted it within a Module.

Didn't find what you were looking for? Find more on Finding Rows Or get search suggestion and latest updates.