Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Looping through columns
Hi, would like to do the following operation with columns C:H
and then columns K:M, Im missing a couple of lines in my code below which will loop through necessary cols, any help is much appreciated sub() Dim intNumRows As Integer, c As Variant, lngCellTotal As Long Dim x As Integer intNumRows = Cells(50, "c").End(xlUp).Row With Range("c" & intNumRows + 1) .Borders(xlEdgeTop).Weight = xlMedium End With For Each c In Range("c1", "c" & intNumRows) lngCellTotal = lngCellTotal + c.Value Next Range("c" & intNumRows + 1) = lngCellTotal end sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Looping through columns
See your previous post. You can adjust the code there to do what you want.
-- Regards, Tom Ogilvy "teresa" wrote in message ... Hi, would like to do the following operation with columns C:H and then columns K:M, Im missing a couple of lines in my code below which will loop through necessary cols, any help is much appreciated sub() Dim intNumRows As Integer, c As Variant, lngCellTotal As Long Dim x As Integer intNumRows = Cells(50, "c").End(xlUp).Row With Range("c" & intNumRows + 1) .Borders(xlEdgeTop).Weight = xlMedium End With For Each c In Range("c1", "c" & intNumRows) lngCellTotal = lngCellTotal + c.Value Next Range("c" & intNumRows + 1) = lngCellTotal end sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Looping through columns
Where has this digressed from B to I?
-- HTH RP (remove nothere from the email address if mailing direct) "teresa" wrote in message ... Hi, would like to do the following operation with columns C:H and then columns K:M, Im missing a couple of lines in my code below which will loop through necessary cols, any help is much appreciated sub() Dim intNumRows As Integer, c As Variant, lngCellTotal As Long Dim x As Integer intNumRows = Cells(50, "c").End(xlUp).Row With Range("c" & intNumRows + 1) .Borders(xlEdgeTop).Weight = xlMedium End With For Each c In Range("c1", "c" & intNumRows) lngCellTotal = lngCellTotal + c.Value Next Range("c" & intNumRows + 1) = lngCellTotal end sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
looping through rows and columns | Excel Discussion (Misc queries) | |||
looping across columns in range? | Excel Discussion (Misc queries) | |||
Looping thru columns beyond Z | Excel Programming | |||
Need Looping Help | Excel Programming | |||
Looping question for 2 columns | Excel Programming |