Thread
:
Removing empty rows issue Please Help!
View Single Post
#
3
Posted to microsoft.public.excel.programming
michdenis
external usenet poster
Posts: 135
Removing empty rows issue Please Help!
Hi,
Try this :
'-----------------------------------
Sub Clean()
Dim ws As Worksheet, LastRow As Long
On Error Resume Next
For Each ws In Worksheets
With ws
.Range("B:B").SpecialCells(xlCellTypeBlanks).Entir eRow.Delete
LastRow = .Range("B" & .Cells.Rows.Count).End(xlUp).Row
With .Range("D1:F" & LastRow)
.Value = .Value
End With
With .Range("H1:AF" & LastRow)
.Value = .Value
End With
End With
Next
End Sub
'-----------------------------------
"James" a écrit dans le message de groupe de discussion :
...
Hi Everyone,
I have about 10 different tabs in same format in my workbook and
having some difficulties with my macro.
Basically, My macro runs through column("B:B") and if the cell is
empty it will remove entire row, if not then it returns column D's
value with matching row.
Sub Clean()
Dim ws As Worksheet, lngRow As Long
For Each ws In Sheets
For lngRow = ws.Cells(Rows.Count, "B").End(xlUp).Row To 1 Step -1
If ws.Range("B" & lngRow) = "" Then
ws.Rows(lngRow).Delete
Else
ws.Range("D" & lngRow) = ws.Range("D" & lngRow)
End If
Next
Next
End Sub
How do I alter this code to return column "D", "F" and "H:AF"?
Thank you so much for your help.
Regards,
James
Reply With Quote
michdenis
View Public Profile
Find all posts by michdenis