Subtract cell formula from existing cell formula
Does anybody has a macro which would deduct the cell formula of a
selection of cells from original formula. eg if cell A1= sum(b1:f1) the macro would leave formula in A1 as : sum(b1:f1) - sum(b1:f1) so that formula result of A1 would be zero |
Subtract cell formula from existing cell formula
Sub whybother()
Dim r As Range Dim s As String, s2 As String For Each r In Selection s = r.Formula s2 = WorksheetFunction.Substitute(s, "=", "") r.Formula = s & "-" & "(" & s2 & ")" Next End Sub -- Gary's Student " wrote: Does anybody has a macro which would deduct the cell formula of a selection of cells from original formula. eg if cell A1= sum(b1:f1) the macro would leave formula in A1 as : sum(b1:f1) - sum(b1:f1) so that formula result of A1 would be zero |
Subtract cell formula from existing cell formula
thxs - working great !!
Gary''s Student wrote: Sub whybother() Dim r As Range Dim s As String, s2 As String For Each r In Selection s = r.Formula s2 = WorksheetFunction.Substitute(s, "=", "") r.Formula = s & "-" & "(" & s2 & ")" Next End Sub -- Gary's Student " wrote: Does anybody has a macro which would deduct the cell formula of a selection of cells from original formula. eg if cell A1= sum(b1:f1) the macro would leave formula in A1 as : sum(b1:f1) - sum(b1:f1) so that formula result of A1 would be zero |
All times are GMT +1. The time now is 07:23 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com