Hello
I want deleting columns C,F and delete whole rows if the columns D,E contain zero or empty values , then should delete the whole row
when deletion should create new file as xlsx in the same folder where the source file is in and rename REPORT FINAL & date,format("dd\mm\yyyy) with keeping orginal data in file source and should replace the file if the same file is already existed
thanks
Hello, try this !
According to your attachment an Excel / VBA basics demonstration for starters to paste only to the source SH1 worksheet module :
PHP Code:Sub Demo1()
Dim BILL$, Wb As Workbook, L&
BILL = "REPORT FINAL" & Format(Date, " DD-MM-YYYY ") & ".xlsx"
For Each Wb In Workbooks
If Wb.Name = BILL Then Wb.Close False: Set Wb = Nothing: Exit For
Next
Workbooks.Add xlWBATWorksheet
With ActiveSheet
[A1,B1,D1,E1].Copy .[A1]
[K2].Formula = "=D2+E2>0"
[A1].CurrentRegion.AdvancedFilter 2, [K1:K2], .[A1:D1]
[K2].Clear
L = .[A1].CurrentRegion.Rows.Count - 1
If L Then .[A2].Resize(L) = Evaluate("ROW(1:" & L & ")")
.Name = Name
BILL = ThisWorkbook.Path & "\" & BILL
If Dir(BILL) > "" Then Kill BILL
.SaveAs BILL, 51
End With
End Sub
► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄
Last edited by Marc L; 10-30-2022 at 09:06 AM. Reason: little tweak ...
Please Login or Register to view this content.
Good Luck
I don't presume to know what I am doing, however, just like you, I too started somewhere...
One-day, One-problem at a time!!!
If you feel I have helped, please click on the star to left of post [Add Reputation]
Also....add a comment if you like!!!!
And remember...Mark Thread as Solved.
Excel Forum Rocks!!!
all of codes work as I expected .
many thanks guys
Glad to have contributed...Tx for rep +
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks