James;607927 Wrote:
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
To try to answer your question add these 2 lines after
ws.Range("D" & lngRow) = ws.Range("D" & lngRow):
Code:
--------------------
ws.Range("F" & lngRow) = ws.Range("F" & lngRow)
ws.Range("H" & lngRow & ":AF" & lngRow) = ws.Range("H" & lngRow & ":AF" & lngRow)
--------------------
but then it returns column D's value with matching row
puzzles me. The sub returns diddly-squat as far as I can tell. What is
the line
ws.Range("D" & lngRow) = ws.Range("D" & lngRow)
actually supposed to be doing?
--
p45cal
*p45cal*
------------------------------------------------------------------------
p45cal's Profile: 558
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=168661
Microsoft Office Help