Skip Blank Cell and Go To Next Row

Hi:

I am writing a macro that searches for a value within a particular cell. If there is nothing in that cell, I would like the macro to skip down to the next row and check that cell. If there is a value in that initial cell, the formula is setup to do a vlookup to pull info from another table. Does anyone know how to manipulate Excel so that the macro checks a cell for a value, and if no value, check the cell immediately below it? I can't quite get it to work.

Thanks for any help you can offer!

Try this - assuming you're searching for values in Column A. You'll have to tell it how you want the search to end though (in this example endVal is 10000).

dim i, endVal as integer
dim searchVal as string ' this is the value you're looking for

endVal = 10000
Do while i <> endVal
if ActiveSheet.Cells(i,1).value = searchVal then
'add your lookup code here
end if
i = i + 1
loop

If searching from C15:C30, how would this change the code? Sorry...I have very little VBA experience.

This should do. You'll need to add the vlookup formula to the if-then function.

Please Login or Register  to view this content.