Macro to auto add upon selection

NoSparks · #2 01-03-2018, 09:49 AM

in D50 enter formula =SUM(D34: D46)
in D52 enter formula =D50-D48
in G50 enter formula =SUM(G34:G46)
in G52 enter formula =G50-G48

Code:

Sub sbRangeFillColorExample3()
     ' reset/clear button
     Range("B34:h46").Interior.Color = RGB(255, 255, 255)
     Range("D48").Formula = "=SUM(D34:D46)"
     Range("G48").Formula = "=SUM(G34:G46)"
End Sub

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'limit to single cell
    If Target.Count > 1 Then Exit Sub
    'limit to Company column
    If Intersect(Target, Range("B34:B46")) Is Nothing Then Exit Sub
    ' ok to continue
    Intersect(Target.EntireRow, Range("B33:H46")).Cells.Interior.Color = RGB(255, 255, 9)
    Range("D48") = Range("D48") - Range("D" & Target.Row)
    Range("G48") = Range("G48") - Range("G" & Target.Row)
End Sub

A picture is not a worksheet.
Posting an actual worksheet would likely get better solutions.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Auto fill drops down using VBA code based on selection	AgilityJS	Word VBA	5	11-03-2015 07:50 PM
Auto text after selection from Dropdown menu	trainsy	Word	2	06-04-2014 04:43 AM
Limiting a macro to a selection	Ulodesk	Word VBA	4	06-19-2012 06:09 AM
Auto play .ppt file from USB with selection	Antfield	PowerPoint	3	05-27-2012 11:21 AM
Form Field - Drop down selection causing auto text	chesspupil	Word VBA	7	05-09-2010 05:43 AM