View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.programming
TheMike TheMike is offline
external usenet poster
 
Posts: 2
Default Substitute a variable in a loop

Thanks Dave,
Your solution came closest, problem solved, thank you very much!
Can you explain to me whats the "me." part in of "me.controls("cmake"
& format(ictr,"00")).value" stands for?
Regards Mike

On 6 jan, 22:30, Dave Peterson wrote:
On a userform?

dim iCtr as long
for ictr = 1 to 3 'same number as your textboxes.
* activecell.offset(0,ictr).value _
* * *= me.controls("cmake" & format(ictr,"00")).value
next ictr



TheMike wrote:

I have a multiple text boxes in a form (excel 2000) that are named:
cMake01, cMake02 cMake03 etc..


I want to save the info from my form to a worksheet.


instead of:
ActiveCell.Offset(0, 1) = cMake01.Value
ActiveCell.Offset(0, 2) = cMake02.Value
ActiveCell.Offset(0, 3) = cMake03.Value


I want to do it in a loop:
For i = 1 To 3
* * * ActiveCell.Offset(0, 2) = "cMake0" & i & ".Value"
Next
But now the values in my worksheet a
"cMake01.Value"....."cMake03.Value"


What is the correct syntax to save the content of the text box and not
the name?


regards Mike


--

Dave Peterson