Problem referring to drop down boxes, other objects 1

[jluft]

I have named a set of 5 control boxes "Data_TransferTo1"...."DataTransferTo5"

If i put the following code in, i can access the value of each drop down

CurrentValue1 = Data_TransferTo1.value
......
CurrentValue5 = Data_TransferTo5.value

if i try this other method...
for x = 1 to 5
currentobject = "Data_TransferTo" & x
currentvalue = CurrentObject.value
next x

...the code does not work

where am i going wrong? please help!!! thanks

 

[SkipVought]

Hi,

Excel?

Forms controls or Control Toolbox controls?

On sheet or on UserForm?

Skip,

_{[red]Be advised:[/red] When you ignite a firecracker in a bowl of vanilla, chocolate & strawberry ice cream, you get...
Neopolitan Blownapart!}

 

[jluft]

hi skip,

on excel
control toolbox controls on a sheet

i appreciate any help you can provide!

 

[fumei]

Try:

for x = 1 to 5
   currentobject = "Data_TransferTo" & x
   currentvalue = Me.Controls(CurrentObject).Value
next x

Gerry

 

[fumei]

Darn - keep forgetting to close those code tags...

Gerry

 

[SkipVought]

something like this. May have to look at the mso type too.

    For Each shp In ActiveSheet.Shapes
        CurrentObject = shp.OLEFormat.Object.Object.Text
    Next

Skip,

_{[red]Be advised:[/red] When you ignite a firecracker in a bowl of vanilla, chocolate & strawberry ice cream, you get...
Neopolitan Blownapart!}

 

[jluft]

gerry,

unfortunately that returned the error "Invalid use of Me Keyword"

any additional thoughts?

 

[jluft]

skip,

great job thanks!
i manipulated waht you gave me a bit and it worked
did you know that from past experience or is there a reference that you have for that sort of minutia? thanks again

 

[SkipVought]

Yes and yes. ;-)

Skip,

_{[red]Be advised:[/red] When you ignite a firecracker in a bowl of vanilla, chocolate & strawberry ice cream, you get...
Neopolitan Blownapart!}

 

[fumei]

Ooops, i thought it was for UserForm dropdowns. Time for a nap.

Gerry

 

[SkipVought]

Set fumei = Me.Napster ;-)

Skip,

_{[red]Be advised:[/red] When you ignite a firecracker in a bowl of vanilla, chocolate & strawberry ice cream, you get...
Neopolitan Blownapart!}

 

[fumei]

You just crack me up sometimes. However, it is more like:

Set fumei = Nothing

Need a nap, as I have to jump on a plane and fly across the continent, and I NEVER can nap on planes. Nine hours...

Set fumei = GetMeOutOfThisCan.NeedADrink

Gerry

 

[SkipVought]

Bummer! I can pretty much sleep anywhere.

Skip,

_{[red]Be advised:[/red] When you ignite a firecracker in a bowl of vanilla, chocolate & strawberry ice cream, you get...
Neopolitan Blownapart!}

 

[fumei]

hate people who can sleep anywhere.....where do you live? I get - at most - 90 minutes per day. Many many brain studies have been done, and while definitely cool to get a CD of MRI images....I would rather be able to sleep.

where do you live?....just kidding.

Gerry

 

[SkipVought]

Texas, y'all! ;-)

Skip,

_{[red]Be advised:[/red] When you ignite a firecracker in a bowl of vanilla, chocolate & strawberry ice cream, you get...
Neopolitan Blownapart!}

 

[jluft]

guys,
thanks very much for the help yesterday
i must ask a favor though
please stop emailing each other over this network!! i have received abotu 10 notifications about your conversation. thanks in advance

 

[SkipVought]

Hey, jluft,

That's the "price of doing business."

You can always turn off notification on this thread.

Skip,

_{[red]Be advised:[/red] When you ignite a firecracker in a bowl of vanilla, chocolate & strawberry ice cream, you get...
Neopolitan Blownapart!}

 

[jluft]

ah skip,

you have all the answers

IF
answer = elusive
THEN
Call Skip
ELSE
skiparray = ("Awesome","Cool","Dude")
END IF

 

[SkipVought]

I'm actually...

nurdie, geekie, ol' fart! ;-)


Skip,

_{[red]Be advised:[/red] When you ignite a firecracker in a bowl of vanilla, chocolate & strawberry ice cream, you get...
Neopolitan Blownapart!}