| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
for Looping in VBA/Form
I have many areas of code that could be cleaned if I only knew how
I think it would be a "For" statement in both cases example 1 Pax1.Caption = Range("d5") Pax2.Caption = Range("d6") Pax3.Caption = Range("d7") etc example 2 TextBox31.Visible = False TextBox32.Visible = False TextBox33.Visible = False I tried this For i = 1 To 6 Seat " & i &.Caption = Range(""a" & i + l2 & """)" next i with no luck, I get a compile error highlighting "Seat" Many thanks for any help |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
for Looping in VBA/Form
For i = 1 To 3 Controls("Pax" & i).Caption = Range("d" & i+4) Next i For i = 31 To 33 Controls("Textbox" & i).Visible = False Next i HTH "Excel 2003 - SPB" wrote: I have many areas of code that could be cleaned if I only knew how I think it would be a "For" statement in both cases example 1 Pax1.Caption = Range("d5") Pax2.Caption = Range("d6") Pax3.Caption = Range("d7") etc example 2 TextBox31.Visible = False TextBox32.Visible = False TextBox33.Visible = False I tried this For i = 1 To 6 Seat " & i &.Caption = Range(""a" & i + l2 & """)" next i with no luck, I get a compile error highlighting "Seat" Many thanks for any help |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
for Looping in VBA/Form
For i = 1 To 10
me.Controls("Pax" & i).Caption = Range("D" & i + 4).Value Next i etc. -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "Excel 2003 - SPB" wrote in message ... I have many areas of code that could be cleaned if I only knew how I think it would be a "For" statement in both cases example 1 Pax1.Caption = Range("d5") Pax2.Caption = Range("d6") Pax3.Caption = Range("d7") etc example 2 TextBox31.Visible = False TextBox32.Visible = False TextBox33.Visible = False I tried this For i = 1 To 6 Seat " & i &.Caption = Range(""a" & i + l2 & """)" next i with no luck, I get a compile error highlighting "Seat" Many thanks for any help |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
for Looping in VBA/Form
Maybe...
dim i as long for i = 1 to 3 me.controls("Pax" & i).caption = cells(i+4,"D").value next i for i = 31 to 33 me.controls("textbox" & i).visible = false next i But I don't see how either example comes close to the stuff you tried. Where does Seat fit in? Excel 2003 - SPB wrote: I have many areas of code that could be cleaned if I only knew how I think it would be a "For" statement in both cases example 1 Pax1.Caption = Range("d5") Pax2.Caption = Range("d6") Pax3.Caption = Range("d7") etc example 2 TextBox31.Visible = False TextBox32.Visible = False TextBox33.Visible = False I tried this For i = 1 To 6 Seat " & i &.Caption = Range(""a" & i + l2 & """)" next i with no luck, I get a compile error highlighting "Seat" Many thanks for any help -- Dave Peterson |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
for Looping in VBA/Form
"Toppers" wrote: For i = 1 To 3 Controls("Pax" & i).Caption = Range("d" & i+4) Next i For i = 31 To 33 Controls("Textbox" & i).Visible = False Next i HTH "Excel 2003 - SPB" wrote: I have many areas of code that could be cleaned if I only knew how I think it would be a "For" statement in both cases example 1 Pax1.Caption = Range("d5") Pax2.Caption = Range("d6") Pax3.Caption = Range("d7") etc example 2 TextBox31.Visible = False TextBox32.Visible = False TextBox33.Visible = False I tried this For i = 1 To 6 Seat " & i &.Caption = Range(""a" & i + l2 & """)" next i with no luck, I get a compile error highlighting "Seat" Many thanks for any help Great! I knew it would be simple Thanks to both of you |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Linear Mode
