[kamio23]

Hi, I need help with a search macro for excel. I need to search coulmn B for a number (all types - integer, decimal) then if that is found check column A (in the same row) to see if it is blank. If it is blank I need to put an 'x' in that corresponding cell in column A. Here's an example:

col A col B
r1 ____ 3.25
r2 text 10
r3 ____ text
r4 ____ 8

It doesn't line up perfect but you get the point. So here the macro needs to put an 'x' in A1 & A4.

In addition, I have another macro I'm using to return a value for the last row called 'myLastRow'. I want to use this variable in a For statement to have the search & decide macro know when to stop looking in column B since the data changes from scenario to scenario.

Thanks for your help in advance!

[Rollin_Again]

Try the macro below. Just change the portion highlighted in red to reflect the first cell in column B to check.

Sub FindNumbers()

For Each vCell In Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row).Cells

If Not IsEmpty(vCell) And IsNumeric(vCell) Then

If vCell.Offset(0,-1).Value = "" Then

vCell.Offset(0, -1).Value = "X"

End If

End If

Next vCell

End Sub

Regards,
Rollin

[kamio23]

Rollin,
This worked perfect! Thank you soooo much!!!

[Zack Barresse]

kamio23, can you mark your thread as solved?