| Home |
| Search |
| Today's Posts |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete formula if....
Great
Thanks "Sam Wilson" wrote: Sub test() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets Dim r As Range Set r = ws.Cells.SpecialCells(xlCellTypeLastCell) Dim c As Range For Each c In ws.Range("A1", r.Address) If c.Value = "" Then c.Formula = "" Next c Next ws End Sub "LiAD" wrote: Hi, In a workboook of 15 sheets I have a lot of cells with formulas that will return either useful data (numerical values or text) or nothing (""). What sub could I use to get excel to check all of the sheets and delete the formulas from cells that =""? All other cells need left as they are. Thankyou LiAD |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Is there any formula like delete if? | Excel Discussion (Misc queries) | |||
| delete formula | Excel Discussion (Misc queries) | |||
| Delete value but not formula | Excel Discussion (Misc queries) | |||
| Delete Formula | Excel Worksheet Functions | |||
| Delete every 3rd row, then delete rows 2-7, move info f/every 2nd row up one to the end and delete the row below | Excel Programming | |||
Threaded Mode
