multiple search criteria

[Av8tordude]

I have this code that searches a list for "Deposit". I would like to search for Deposit & Withdrawal. How can I adjust this code to accomplish this task.

Thank you kindly for your help...

Do Until Cells(RowNum, 19).Value = ""    If InStr(1, Cells(RowNum, 20).Value, "Deposit", vbTextCompare) > 0 Then
        Cells(SRow, 23).Value = Cells(RowNum, 19).Value
        Cells(SRow, 24).Value = Cells(RowNum, 20).Value
        Cells(SRow, 25).Value = Cells(RowNum, 21).Value
        SRow = SRow + 1
    End If
    RowNum = RowNum + 1
Loop

 

[dmt32]

hi,
Try

Do Until Cells(RowNum, 19).Value = ""
If Not IsError(Application.Match(Cells(RowNum, 20).Value, Array("Deposit", "Withdrawal"), 0)) Then
        Cells(SRow, 23).Value = Cells(RowNum, 19).Value
        Cells(SRow, 24).Value = Cells(RowNum, 20).Value
        Cells(SRow, 25).Value = Cells(RowNum, 21).Value
        SRow = SRow + 1
    End If
    RowNum = RowNum + 1
Loop

Dave

 

[Av8tordude]

Thank you dmt32 for the quick response and assistance.

Just our of curiosity and continued education, I'm no expert, however, looping large data-set can be time-consuming. Is there a better way to right this code?

Again thank you for you help

 

[dmt32]

Thank you dmt32 for the quick response and assistance.

Just our of curiosity and continued education, I'm no expert, however, looping large data-set can be time-consuming. Is there a better way to right this code?

Again thank you for you help

Hi,
glad suggestion helped.

Writing to each cell in a large data-set in a loop is not the most efficient method - depending on what you are doing, building an array & then writing to the ranges in one go would be a better approach.

If you have issues with speed in your code, post a new question & all your code - plenty here to offer guidance.

Dave

 

[Av8tordude]

Thank you Dave...Greatly Appreciated it

Cheers