Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Need help with Application.WorksheetFunction
Worksheets(1).Select
With Selection .Range("B21").Value = Application.WorksheetFunction.Sum("B17:B20") .Range("C21").Value = Application.WorksheetFunction.Sum("C17:C20") .Range("D21").Value = Application.WorksheetFunction.Sum("D17:D20") .Range("F21").Value = Application.WorksheetFunction.Sum("F17:F20") End With What am I doing wrong here. I keep getting an error on this line ..Range("B21").Value = Application.WorksheetFunction.Sum("B17:B20"). I also get an error on ":" when I tried ..Range("B21").Value = Application.WorksheetFunction.Sum(B17:B20) |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Need help with Application.WorksheetFunction
Sub hfska()
Worksheets(1).Select With Selection ..Range("B21").Value = Application.WorksheetFunction.Sum(Range("B17:B20") ) ..Range("C21").Value = Application.WorksheetFunction.Sum(Range("C17:C20") ) ..Range("D21").Value = Application.WorksheetFunction.Sum(Range("D17:D20") ) ..Range("F21").Value = Application.WorksheetFunction.Sum(Range("F17:F20") ) End With End Sub In VBA SUM() needs a real range. -- Gary''s Student - gsnu200786 "Ayo" wrote: Worksheets(1).Select With Selection .Range("B21").Value = Application.WorksheetFunction.Sum("B17:B20") .Range("C21").Value = Application.WorksheetFunction.Sum("C17:C20") .Range("D21").Value = Application.WorksheetFunction.Sum("D17:D20") .Range("F21").Value = Application.WorksheetFunction.Sum("F17:F20") End With What am I doing wrong here. I keep getting an error on this line .Range("B21").Value = Application.WorksheetFunction.Sum("B17:B20"). I also get an error on ":" when I tried .Range("B21").Value = Application.WorksheetFunction.Sum(B17:B20) |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Need help with Application.WorksheetFunction
Thanks Gary's student.
I will try that. "Gary''s Student" wrote: Sub hfska() Worksheets(1).Select With Selection .Range("B21").Value = Application.WorksheetFunction.Sum(Range("B17:B20") ) .Range("C21").Value = Application.WorksheetFunction.Sum(Range("C17:C20") ) .Range("D21").Value = Application.WorksheetFunction.Sum(Range("D17:D20") ) .Range("F21").Value = Application.WorksheetFunction.Sum(Range("F17:F20") ) End With End Sub In VBA SUM() needs a real range. -- Gary''s Student - gsnu200786 "Ayo" wrote: Worksheets(1).Select With Selection .Range("B21").Value = Application.WorksheetFunction.Sum("B17:B20") .Range("C21").Value = Application.WorksheetFunction.Sum("C17:C20") .Range("D21").Value = Application.WorksheetFunction.Sum("D17:D20") .Range("F21").Value = Application.WorksheetFunction.Sum("F17:F20") End With What am I doing wrong here. I keep getting an error on this line .Range("B21").Value = Application.WorksheetFunction.Sum("B17:B20"). I also get an error on ":" when I tried .Range("B21").Value = Application.WorksheetFunction.Sum(B17:B20) |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Need help with Application.WorksheetFunction
You haven't selected anything (except a worksheet) so don't use 'With
Selection' it's simpler than that Sub standard() Worksheets(1).Select Range("B21").Value = Application.WorksheetFunction.Sum(Range("B17: B20")) Range("C21").Value = Application.WorksheetFunction.Sum(Range("C17:C20") ) Range("D21").Value = Application.WorksheetFunction.Sum(Range("D17:D20") ) Range("F21").Value = Application.WorksheetFunction.Sum(Range("F17:F20") ) End Sub Mike "Ayo" wrote: Worksheets(1).Select With Selection .Range("B21").Value = Application.WorksheetFunction.Sum("B17:B20") .Range("C21").Value = Application.WorksheetFunction.Sum("C17:C20") .Range("D21").Value = Application.WorksheetFunction.Sum("D17:D20") .Range("F21").Value = Application.WorksheetFunction.Sum("F17:F20") End With What am I doing wrong here. I keep getting an error on this line .Range("B21").Value = Application.WorksheetFunction.Sum("B17:B20"). I also get an error on ":" when I tried .Range("B21").Value = Application.WorksheetFunction.Sum(B17:B20) |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Need help with Application.WorksheetFunction
No selections. Notice the . before range in BOTH cases
Sub sumem() With Worksheets("sheet11") .Range("d1").Value = Application.Sum(.Range("c2:c22")) End With End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Ayo" wrote in message ... Worksheets(1).Select With Selection .Range("B21").Value = Application.WorksheetFunction.Sum("B17:B20") .Range("C21").Value = Application.WorksheetFunction.Sum("C17:C20") .Range("D21").Value = Application.WorksheetFunction.Sum("D17:D20") .Range("F21").Value = Application.WorksheetFunction.Sum("F17:F20") End With What am I doing wrong here. I keep getting an error on this line .Range("B21").Value = Application.WorksheetFunction.Sum("B17:B20"). I also get an error on ":" when I tried .Range("B21").Value = Application.WorksheetFunction.Sum(B17:B20) |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can't use WorksheetFunction | Excel Discussion (Misc queries) | |||
Accessing WorksheetFunction.XX from regular C# Forms application | Excel Worksheet Functions | |||
WorksheetFunction Documentation | Excel Worksheet Functions | |||
WorksheetFunction with VBA | Excel Discussion (Misc queries) | |||
Application.WorksheetFunction.Match problem | Excel Worksheet Functions |