Need VBA code to delete all data in FP:FP In mid bet Open and close workbook from path

[breadwinner]

Dear Expert

I want delete the all the values in FP:FP column keep apart from one value Aegis Infoware Pvt. Ltd" criteria value..

I have run code open and close the particular workbook from path In Mid i want run the code for delete all rest of values In FP:FP column In sheet "RAWDATA" apart from "Aegis Infoware Pvt. Ltd" criteria value.

Please Login or Register  to view this content.

find the attachment & code
Run code from code master & Aegis Infoware Pvt. Ltd file get result change

[watersev]

hi breadwwinner, option, this would delete what you need but you do not save changes to the workbook currently ...

Please Login or Register  to view this content.

[breadwinner]

Hi Sir

While run code It's seems work at backend it willnt get result what i expect

might be i am wrong at some where find the attachment on excel file i want run code for that.

[watersev]

it works my end, please check attachment, run code "test", though it takes time due heavy formulas need time for recalculation and they refer to RAWDATA data

[breadwinner]

Sir it works in Paritcular work book , but if it run through Path location to closedworkbook Sheets It doesnt...
if u store file Aegis Infoware Pvt.Ltd In ur location then run it from different workbook through path assigns in code...

[watersev]

the code in post #4 works as expected.

Could you please post the code you are using and you do not get expected result. If it has those lines from post #1:

Please Login or Register  to view this content.

you would not get expected result as the workbook is closed without saving any changes. To save changes you should have it this way:

Please Login or Register  to view this content.

[breadwinner]

Yes sir #4 works Perfectly thanks for valuable time spend on my thread... Thanks alot Once again

Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True

Application.ScreenUpdating = 1

End Sub