urgent help with finding last used cell and looping. Thanks!!!

M

mju

How do I find the blank cell in a specific column(M), delete all blank rows
below, and then select the cells with data which is from Column A:M.

Thanks.

My problem is deleting the empty rows after the last cell with data, then
selecting the cells to loop tru until end of row with data.

Below are few of my codes. It is allover the place.

im cur_rng As Range
Columns("M:M").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Activate

For Each cur_rng In Selection
If IsEmpty(cur_rng) Then
If cur_rng.Row > 2 Then
cur_rng.Value = cur_rng.Offset(-1, 0).Value
End If
End If
Next cur_rng
 
J

Janie

when removing empty rows, I have always found it useful to start at the
bottom of the range and go up. For example:
I place my cursor in the last row of the range and then run this
do until activecell.row=1
activecell.offset(-1,0).select
if activecell.offset(1,0).value="" then
activecell.offset(1,0).entirerow.delete
end if
loop
 
J

Joel

LastRow = Range("M1").End(xlDown).Row
Rows((LastRow + 1) & ":" & Rows.Count).Delete

DataRange = Range("A1:M" & LastRow)
 
J

Joel

I left the work SET off the code

LastRow = Range("M1").End(xlDown).Row
Rows((LastRow + 1) & ":" & Rows.Count).Delete

Set DataRange = Range("A1:M" & LastRow)
 
M

Mike H

Hi,

This isn't clear. We find the last cell in column M and then what? Delete
blank rows above that or below it?

Mike
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top