#1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 65
Default Sum Range

Hi,

I selected this range

Range(ActiveCell.Offset(-lastrow + 2, 0), ActiveCell.Offset(-2, 0))

and I want to put its Sum 2 cells down

my code so far is

Dim lastrow As Long
lastrow = Cells(Rows.Count, 1).End(xlUp).Row

Range("B" & lastrow + 2).Select

Do Until Selection.Offset(-38, 0) = ""

Range(ActiveCell.Offset(-lastrow + 2, 0), ActiveCell.Offset(-2, 0))

Selection.Offset(0, 1).Select

Loop

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/201002/1

  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 65
Default Sum Range

I solved it!

Dim uprow As Double
Dim lastrow As Long
lastrow = Cells(Rows.Count, 1).End(xlUp).Row

uprow = lastrow - 2

Range("B" & lastrow + 2).Select

Do Until Selection.Offset(-38, 0) = ""

ActiveCell.FormulaR1C1 = "=SUM(R[-" & uprow & "]C:R[-2]C)"

Selection.Offset(0, 1).Select

Loop

FIRSTROUNDKO wrote:
Hi,

I selected this range

Range(ActiveCell.Offset(-lastrow + 2, 0), ActiveCell.Offset(-2, 0))

and I want to put its Sum 2 cells down

my code so far is

Dim lastrow As Long
lastrow = Cells(Rows.Count, 1).End(xlUp).Row

Range("B" & lastrow + 2).Select

Do Until Selection.Offset(-38, 0) = ""

Range(ActiveCell.Offset(-lastrow + 2, 0), ActiveCell.Offset(-2, 0))

Selection.Offset(0, 1).Select

Loop


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/201002/1

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
How do I enter formula sum(range+range)*0.15 sumif(range=3) tkw Excel Discussion (Misc queries) 2 October 1st 09 09:17 PM
Excel Addin:Setting the range to the Excel.Range object range prop Rp007 Excel Worksheet Functions 5 November 24th 06 04:30 PM
Range Question / error 1004: method Range of object Worksheet has failed Paul Excel Programming 3 April 7th 05 02:56 PM
Range.Find returns cell outside of range when range set to single cell Frank Jones Excel Programming 12 June 10th 04 04:22 AM
how to? set my range= my UDF argument (range vs. value in range) [advanced?] Keith R[_3_] Excel Programming 2 August 11th 03 05:55 PM


All times are GMT +1. The time now is 07:22 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"