Delete Rows
 

Managed to get it to do what i want now all i did was add a few of line
that ive put in Bold to the original code i had working before


Sub delete_rows()
Dim RowNdx As Long
Dim LastRow As Long
FOR I = 1 TO 4
WORKSHEETS(I).ACTIVAT
LastRow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row
For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx, "D").Value = blank Then
Rows(RowNdx).Delete
End If
Next RowNdx
NEX
Sheets("Sheet2").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\evt_test.csv", FileFormat:= _
xlCSV, CreateBackup:=False
Sheets("Sheet3").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\mkt_test.csv", FileFormat:= _
xlCSV, CreateBackup:=False
Sheets("Sheet4").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\SEL_TEST.csv", FileFormat:= _
xlCSV, CreateBackup:=False

End Sub


Thanks for the hel

--
scottymellot
-----------------------------------------------------------------------
scottymelloty's Profile: http://www.excelforum.com/member.php...nfo&userid=380
View this thread: http://www.excelforum.com/showthread.php?threadid=27150

Delete Rows
 

If you want to respond to prompts everytime you run it after the first time,
you like repetitious code, and you don't mind renaming the current workbook
to a CSV file (and losing any changes not saved before running the macro),
then I guess you have a solution.

all i did was add a few of lines

Which 3 people took time to provided you with.

--
Regards,
Tom Ogilvy

"scottymelloty" wrote in
message ...

Managed to get it to do what i want now all i did was add a few of lines
that ive put in Bold to the original code i had working before


Sub delete_rows()
Dim RowNdx As Long
Dim LastRow As Long
FOR I = 1 TO 4
WORKSHEETS(I).ACTIVATE
LastRow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row
For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx, "D").Value = blank Then
Rows(RowNdx).Delete
End If
Next RowNdx
NEXT
Sheets("Sheet2").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\evt_test.csv", FileFormat:= _
xlCSV, CreateBackup:=False
Sheets("Sheet3").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\mkt_test.csv", FileFormat:= _
xlCSV, CreateBackup:=False
Sheets("Sheet4").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\SEL_TEST.csv", FileFormat:= _
xlCSV, CreateBackup:=False

End Sub


Thanks for the help


--
scottymelloty
------------------------------------------------------------------------
scottymelloty's Profile:
http://www.excelforum.com/member.php...fo&userid=3808
View this thread: http://www.excelforum.com/showthread...hreadid=271501