Help! Finding empty cell..........

[MGhell]

Hi,

I have the following line which should give me the last blank cell in a given column. Unfortunately it seems that the code counts cells which contain formulas as non-empty cells. Is there a way to avoid this?

lastrow = Cells(Rows.Count, "K").End(xlUp).Row


Greetings

Max

 

[hatman]

mmm, I would think at that point you do a for next loop:

for cnt = Cells(Rows.Count, "K").End(xlUp).Row  to 1 step -1

  if Cells(cnt, "K").value <> "" then

    lastrow = cnt +1
    
    exit for

  end if

next cnt

 

[MGhell]

Thanks!

 

[erik.van.geit]

Hi,

you don't need the loop

lastrow = Columns("K").Find("*", [K1], xlValues, xlPart, xlByRows, xlPrevious, False, False).Row

kind regards,
Erik