Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
One Macro Does All
I did manage to do this myself by recording the macro to save eac workbook and adding it after the original code i had Sub delete_rows() Dim RowNdx As Long Dim LastRow As Long LastRow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row For RowNdx = LastRow To 1 Step -1 If Cells(RowNdx, "D").Value = " v " Then Rows(RowNdx).Delete End If Next RowNdx Sheets("Sheet2").Select ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\scott\My Documents\evt_test.csv" FileFormat:= _ xlCSV, CreateBackup:=False Sheets("Sheet3").Select ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\scott\My Documents\mkt_test.csv" FileFormat:= _ xlCSV, CreateBackup:=False Sheets("Sheet4").Select ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\scott\My Documents\SEL_TEST.csv" FileFormat:= _ xlCSV, CreateBackup:=False End Sub So this deletes rows with " v " in column d then save the other worksheets just as i wanted butit only deletes the cells with "v " i the sheet i am open and i want it to go through sheets 2, 3 & 4 an delete the rows with " v " in as well, what can i add for it to d that, im guessing its something to do with this line ?? LastRow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row Where it says active sheet how do i get it to check sheet 2,3 and 4 ?? Thank -- scottymellot ----------------------------------------------------------------------- scottymelloty's Profile: http://www.excelforum.com/member.php...nfo&userid=380 View this thread: http://www.excelforum.com/showthread.php?threadid=27148 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro recorded... tabs & file names changed, macro hangs | Excel Worksheet Functions | |||
Macro Help Needed - Excel 2007 - Print Macro with Auto Sort | Excel Worksheet Functions | |||
how to count/sum by function/macro to get the number of record to do copy/paste in macro | Excel Programming | |||
macro to delete entire rows when column A is blank ...a quick macro | Excel Programming | |||
Start Macro / Stop Macro / Restart Macro | Excel Programming |