Automatic Subtraction

starry26

New Member
Joined
Sep 5, 2019
Messages
4
Hi,

I want to be able to input data which will automatically be subtracted from another number.
For example, in cells E25 to E33, I want the input to be subtracted from 0.880. In cell E34 I want the input to be subtracted from 0.860.

Does this have to be done by code?

Thank you.

:)
 

Excel Facts

Easy bullets in Excel
If you have a numeric keypad, press Alt+7 on numeric keypad to type a bullet in Excel.
Hi, welcome to the board.

It's not clear to me what you want exactly.

Are you saying that you want to input a number to cell E25, let's say the number 10, and you want that to be displayed IN CELL E25 as
Code:
-9.12
being the result of 0.880 - 10 ?
 
Upvote 0
Hi, welcome to the board.

It's not clear to me what you want exactly.

Are you saying that you want to input a number to cell E25, let's say the number 10, and you want that to be displayed IN CELL E25 as
Code:
-9.12
being the result of 0.880 - 10 ?


Yes, that is correct. Cells E25 to E33: 0.880 - the number I input, and E34: 0.860 - the number I input.
 
Upvote 0
OK well it's good to get that clear.

Personally I don't know how to do this, it can probably be done with some kind of VBA but that's beyond my limited VBA skills, but probably other people on the board can help with this.

Personally, I would not do this at all - I think it could be very confusing to have an output in a cell that is completely different from the input to that same cell.
I would use helper cells - for example input the value 10 to cell E25, and in a separate cell, say F25, show the result of
=0.88-E25
 
Upvote 0
Welcome to the Board!

Here is VBA code that will do what you want. Simply right-click on the sheet tab name (at the bottom of the screen) that you want to apply this code to, select "View Code", and paste this VBA code to the resulting VB Editor window:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng1 As Range, cell1 As Range
    Dim rng2 As Range, cell2 As Range
    
'   See if updated cells fall in 1st desired range
    Set rng1 = Intersect(Target, Range("E25:E33"))
    
'   Loop through all cells changed and apply formula
    If Not rng1 Is Nothing Then
        For Each cell1 In rng1
            Application.EnableEvents = False
            cell1.Value = 0.88 - cell1.Value
            Application.EnableEvents = True
        Next cell1
    End If

'   See if updated cells fall in 2nd desired range
    Set rng2 = Intersect(Target, Range("E34:E34"))
    
'   Loop through all cells changed and apply formula
    If Not rng2 Is Nothing Then
        For Each cell2 In rng2
            Application.EnableEvents = False
            cell2.Value = 0.86 - cell2.Value
            Application.EnableEvents = True
        Next cell2
    End If

End Sub
Then, test it out by entering in some values and seeing what happens.

Note that you mentioned two ranges. You said E34 for your second one. You didn't say where that one should end, so I only have it as one cell, but you can easily modify that. You can see that you can easily add more blocks of similar code if you have more ranges.
 
Upvote 0
Welcome to the Board!

Here is VBA code that will do what you want. Simply right-click on the sheet tab name (at the bottom of the screen) that you want to apply this code to, select "View Code", and paste this VBA code to the resulting VB Editor window:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng1 As Range, cell1 As Range
    Dim rng2 As Range, cell2 As Range
    
'   See if updated cells fall in 1st desired range
    Set rng1 = Intersect(Target, Range("E25:E33"))
    
'   Loop through all cells changed and apply formula
    If Not rng1 Is Nothing Then
        For Each cell1 In rng1
            Application.EnableEvents = False
            cell1.Value = 0.88 - cell1.Value
            Application.EnableEvents = True
        Next cell1
    End If

'   See if updated cells fall in 2nd desired range
    Set rng2 = Intersect(Target, Range("E34:E34"))
    
'   Loop through all cells changed and apply formula
    If Not rng2 Is Nothing Then
        For Each cell2 In rng2
            Application.EnableEvents = False
            cell2.Value = 0.86 - cell2.Value
            Application.EnableEvents = True
        Next cell2
    End If

End Sub
Then, test it out by entering in some values and seeing what happens.

Note that you mentioned two ranges. You said E34 for your second one. You didn't say where that one should end, so I only have it as one cell, but you can easily modify that. You can see that you can easily add more blocks of similar code if you have more ranges.


That's perfect. THANK YOU!
 
Upvote 0
You would modify the code slightly, and put it in the "ThisWorkbook" module instead of the specific "Sheet" module.
So that code would look like this:
Code:
[COLOR=#ff0000]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)[/COLOR]

    Dim rng1 As Range, cell1 As Range
    Dim rng2 As Range, cell2 As Range
    
'   See if updated cells fall in 1st desired range
    Set rng1 = Intersect(Target, [COLOR=#ff0000]Sh.[/COLOR]Range("E25:E33"))
    
'   Loop through all cells changed and apply formula
    If Not rng1 Is Nothing Then
        For Each cell1 In rng1
            Application.EnableEvents = False
            cell1.Value = 0.88 - cell1.Value
            Application.EnableEvents = True
        Next cell1
    End If

'   See if updated cells fall in 2nd desired range
    Set rng2 = Intersect(Target, [COLOR=#ff0000]Sh.[/COLOR]Range("E34:E34"))
    
'   Loop through all cells changed and apply formula
    If Not rng2 Is Nothing Then
        For Each cell2 In rng2
            Application.EnableEvents = False
            cell2.Value = 0.86 - cell2.Value
            Application.EnableEvents = True
        Next cell2
    End If
    
End Sub
The differences are in red font.
 
Last edited:
Upvote 0

Forum statistics

Threads
1,223,236
Messages
6,170,917
Members
452,366
Latest member
TePunaBloke

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top