loop over columns

K

kizzie

Hello,

How do I write a for loop over columns? e.g. For k= A to AA ... is no
working...

thx in advanc
 
D

Dave Peterson

for k = 1 to 27

or ...


with activesheet
for k = .range("a1").column to .range("aa1").column



======
If you're using .cells(), then it can accept either letters or numbers for the
column:

cells(1,3).value = "asdf"
is just as ok as:
cells(1,"C").value = "asdf"
 
K

kizzie

thx

Cells(Nr).Value = Cells(Nr).Value + Cells(ActiveCell.Rows,
ActiveCell.Columns + 2).Value

Whats wrong with this code? I want to add the value the cell 2 columns
right of the active cell, to the cell named "Nr"

thx
 
D

Dave Peterson

Nr is a range name?

cells("Nr").value _
= cells("Nr").value + cells(activecell.row,activecell.column+2).value

or

cells("Nr").value _
= cells("Nr").value + activecell.offset(0,2).value
 
D

Dave Peterson

Oops....if Nr is really a named cell, use this intead.

Range("Nr").value _
= range("Nr").value + cells(activecell.row,activecell.column+2).value

or

range("Nr").value _
= range("Nr").value + activecell.offset(0,2).value
 
Top