Userrange to formula
Dear all,
I am new with the VBA part of Excel but I want to learn the language. Now I came up with the following problem. I want a pop upbox where the user can select a range and after pressing ok this should be converted to a formula in cell c1 (formula= "=sum(selected range)"). Now I have this: Sub Test() Set UserRange = Application.InputBox("Hallo", "Select your range:") Rng = Application.WorksheetFunction.Sum(UserRange) Range("C1").Select Selection.Value = Rng End Sub After the popup it stops. Most likely because I misuse the Sum function but I couldn't find out a solution. Can someone help me? |
Userrange to formula
Hi,
Am Wed, 10 Apr 2013 14:00:15 +0000 schrieb Klaasv: Now I have this: Sub Test() Set UserRange = Application.InputBox("Hallo", "Select your range:") Rng = Application.WorksheetFunction.Sum(UserRange) Range("C1").Select Selection.Value = Rng End Sub try: Sub Test() Dim UserRange As Range Set UserRange = Application.InputBox("Hallo", _ "Select your range:", Type:=8) If Not UserRange Is Nothing Then [C1] = WorksheetFunction.Sum(UserRange) End If End Sub Regards Claus Busch -- Win XP PRof SP2 / Vista Ultimate SP2 Office 2003 SP2 /2007 Ultimate SP2 |
All times are GMT +1. The time now is 12:06 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com