Help:Looping

hi all

i want to loop through the currentRegion and do a different thing for
each col - this just gives me the same value in each one - i can see it
does that but cannot see how to move along !! arrgggh!!



For Each c In ActiveCell.CurrentRegion.Cells

'MsgBox c
sOut = sOut & "<note>"
sOut = sOut & groupTitle & c & groupTitleEND
sOut = sOut & mapping & c & mappingEND
sOut = sOut & Description & c & DescriptionEND
sOut = sOut & budgetCode & c & budgetCodeEND
sOut = sOut & budgetCodePT & c & budgetCodePTEND
sOut = sOut & budgetCodeLU & c & budgetCodeLUEND
sOut = sOut & "</note>"

Next

You sure you're just not seeing the first part of the string.

For Each c In ActiveCell.CurrentRegion.Cells

'set it to "" to start
sOut = ""

'MsgBox c
sOut = sOut & "<note>"
sOut = sOut & groupTitle & c & groupTitleEND
sOut = sOut & mapping & c & mappingEND
sOut = sOut & Description & c & DescriptionEND
sOut = sOut & budgetCode & c & budgetCodeEND
sOut = sOut & budgetCodePT & c & budgetCodePTEND
sOut = sOut & budgetCodeLU & c & budgetCodeLUEND
sOut = sOut & "</note>"

'do something with sOut
c.value = sout '????

Next C 'cause I like it!

Buffyslay wrote:
>
> hi all
>
> i want to loop through the currentRegion and do a different thing for
> each col - this just gives me the same value in each one - i can see it
> does that but cannot see how to move along !! arrgggh!!
>
> For Each c In ActiveCell.CurrentRegion.Cells
>
> 'MsgBox c
> sOut = sOut & "<note>"
> sOut = sOut & groupTitle & c & groupTitleEND
> sOut = sOut & mapping & c & mappingEND
> sOut = sOut & Description & c & DescriptionEND
> sOut = sOut & budgetCode & c & budgetCodeEND
> sOut = sOut & budgetCodePT & c & budgetCodePTEND
> sOut = sOut & budgetCodeLU & c & budgetCodeLUEND
> sOut = sOut & "</note>"
>
> Next

--

Dave Peterson