Add 'n' numbers from a selected cell in user form pop-up window

[nagovind]

Dear All,
Is there is any way to add the selected cell from user form and display the result as a pop-up window itself

Say A1 A2 A3 cells have data
After clicking a shortcut say ctr+shft+a, window has to popup ask for number of variables to add once it is given as 3 (say, n) it has to allow to select n number of cells that contains data, once after given input it has to add the data and produce result in the popup window itself

Kindly advise
Regards
Govind

 

[Hui]

Try these and modify to suit

Sub Sum_Range()
    Dim No_Cells As Long
    No_Cells = InputBox("Please enter the number of cells to Sum", "Sum Range")
   
    Dim sum_rng As Range
    Set sum_rng = Range("A1:A" & CStr(No_Cells))
   
    Dim my_sum As Double
    my_sum = Application.WorksheetFunction.Sum(sum_rng)
    MsgBox ("Sum of " & sum_rng.Address & " = " & CStr(my_sum))
End Sub

Sub Sum_Range_Selection()
    Dim my_sum As Double
    my_sum = Application.WorksheetFunction.Sum(Selection)
    MsgBox ("Sum of " & Selection.Address & " = " & CStr(my_sum))
End Sub

To assign these to a key combo have a read of Point #13 at:

18 Excel VBA Macro Shortcuts for 2018 - Excel Campus

Learn 18 tips & shortcuts to save time with writing VBA macros for Excel or other Office applications.

www.excelcampus.com

 

[nagovind]

Dear Hui,

Thank you for your inputs,
Code:

Sub RangeSelectionPrompt()
    Dim rng As Range
    Set rng = Application.InputBox("Select a range", "Obtain Range Object", Type:=8)

    MsgBox "The cells selected were " & rng.Address
End Sub

Actually I'm looking for the code as above, once we enter how many numbers to be added then it has asked for 'n' times pop-up then for each pop-up user has to select the cells as applicable in a random way say the data is in different cells

If n = 5 then it has to ask for 5 times input, for each input user will select 1 cell at a time say A1 in first popup second CD2, third B6 etc

Finally, the output shall be added (5 input addition, i.e 'n' input addition) and message will display the addition result

Regards
Govind

 

[nagovind]

Dear Hui,

Got it THANKS, closed

Sub RangeSelectionPrompt()
    Dim rng As Range
    c = 0
    nc = InputBox("Please enter the number of cells to Sum", "Sum Range")
    For i = 1 To nc
    Set rng = Application.InputBox("Select a range", "Obtain Range Object", Type:=8)
    c = c + rng
    Next i
    'MsgBox "The cells selected were " & rng.Address
    MsgBox c
   
End Sub

Regards
Govind