I have written a VBA code for Excel 2003 that searches a 10,000 line database and unhides the row when it finds the keyword. Only problem is that I can't figure out how to make the code look through the database once and stop.

Thanks for your help

Randy

Randy,

A
loop will process each and every cell in the search range once only. allowing you to run though the search range once.

If you want to stop the process after finding the first instance of the keyword the you should use either
or
depending on whether you're coding in a Sub or Function, after the lines of code unhiding the row.

If niether of these comments are helpful it may be worthwhile posting the actual code here and describing the problem in a bit more detail so that we can work out what specifically is the problem.

Maccas

Maccas,

Thanks for your help but since I am just starting out trying learn how to program my code is a mess to say the least. Anyway what I am trying to do is write a subroutine that will search a 5-10,000 line Excel database for a set of three criteria(text). If all three criteria are present on the same row then highlight that particular row so it can be found easily. Any thoughts or suggestions of the base way to accomplish this?
Any suggestions for reading materials to start learning how to do this. Most books I have seen and purchased seem to assume that the reader already knows the basics.

Thanks,

Randy

Here is a possibility
You use a value kMax to determine the number of loops
If you have found the values set k to kMax.
Define the value you want to check as sVar1.

Sub Test()

Application.ScreenUpdating = False

    Dim k As Double
    Dim kMax As Double
    Dim sRemark As String
    Dim sVar1 As String
    Dim sVar2 As String
    Dim sSheetName As String

sSheetname = 'your sheetname
sVar1 = 'your keyword

kMax = 10000

For k = 1 To kMax

   sVar2 = Worksheets(sSheetname).Cells(k, 1).Value

   If sVar2 = sVar1 Then

      'value is found
      'insert here any other routines you want to perform

      k = kMax

      Else:

      'Value is not found

      sRemark = "NOT FOUND"

    End If

Next k



Exit Sub


Please reply if this is an option, as you did not supply any code.