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
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