Solved

Total Excel columns from VB

Posted on 2002-04-17
7
137 Views
Last Modified: 2010-05-02

I have written a VB program that creates an EXCEL spreadsheet.  I need to SUM columns E and F and G, then total those totals.  How do I do that?

I am able to get the last row used by doing:
        Range(Selection, Selection.End(xlDown)).Select
        varRow = Mid(Selection.End(xlDown).Address, 4)

Since I am working with test data and I know how many rows I have, the following formula works:
        ActiveCell.FormulaR1C1 = "=SUM(R[-32]C:R[-1]C)"

Obviously, when I use LIVE data, I won’t know what the last row will be, so I want to use my variable in the formula:
       ActiveCell.FormulaR1C1 = "=SUM(R[varRow]C:R[-1]C)"

but I get this error:
Run-time error ‘1004’:
Application-defined or object-defined error

Am I close?  What do I need to do?

Thanks for your help
0
Comment
Question by:jhartski
  • 4
  • 3
7 Comments
 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
Firts to all, Selection object works inside VBA workspaces not in VB (Anyway is a range object)
You must to strictly qualify that object so VB could know what you are talking about when you say Selection.
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
something like
dim rng as range
'sh points to a variable object of type worksheet
set rng = sh.range("E1:" & range("E1").end(xldown)
0
 
LVL 44

Accepted Solution

by:
bruintje earned 50 total points
Comment Utility
Hi Jhartski,

Richie mentioned something interesting there how are you using the objects have you named them all??

you said the Activecell formula works but not with a variable

here's a little snippet

Dim lngLastRow As Long
Dim lngFirstRow As Long
Dim lngColumn As Long

  Range("F6").Select
  lngColumn = Selection.Column
  lngFirstRow = Selection.Row
  Selection.End(xlDown).Select
  lngLastRow = Selection.Row
  ActiveCell.Offset(1, 0).Select
  ActiveCell.Value = WorksheetFunction.Sum(Range(Cells(lngFirstRow, lngColumn), Cells(lngLastRow, lngColumn)))

the Range("F6") is hypothetical since i don't know what your selection is to start with but this will sum from the selected cell to the last and add the total below it

:O)Bruintje
0
Free Trending Threat Insights Every Day

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
or
dim LastCell as string
LastCell=range("E1:" & range("E1").end(xldown).address)
0
 
LVL 44

Expert Comment

by:bruintje
Comment Utility
well thanks, glad it did work, then was this VBA or something
0
 
LVL 44

Expert Comment

by:bruintje
Comment Utility
btw Richie congrats! top-15 now i want to c u go for the top-5 :)
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
Thanks!
Well, if you continue collaborating this way i doubt!
:)))))
0

Featured Post

Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now