Userform combobox question

myVar = .List(.ListIndex, 1)

is the offending line in the debugger
Office 2007

"teepee" wrote in message
...
myVar = .List(.ListIndex, 1)

is the offending line in the debugger

and it also says 'can't get the list property. Invalid argument.' when I
hover the cursor over .list

It worked for me.

Did you make any changes to the other code?

If you did, you may want to post that code.

teepee wrote:

"teepee" wrote in message
...
myVar = .List(.ListIndex, 1)

is the offending line in the debugger

and it also says 'can't get the list property. Invalid argument.' when I
hover the cursor over .list

--

Dave Peterson

"Dave Peterson" wrote in message
...
It worked for me.

Did you make any changes to the other code?

If you did, you may want to post that code.


Hmm the other code refers to command buttons. I put both in verbatim (just
changing the formula addresses) but then it won't let me launch the userform
at all but calls a bug at UserForm2.Show

In the userform

Private Sub UserForm_Initialize()
Dim myRng As Range

With ThisWorkbook.Worksheets("graphs")
Set myRng = .Range("fa1:fb" & .Cells(.Rows.Count,
"A").End(xlUp).Row)
End With
With Me.ComboBox1
.ColumnCount = myRng.Columns.Count
.List = myRng.Value
.ColumnWidths = "33;0"
End With

Me.CommandButton18.Caption = "Cancel"
Me.CommandButton19.Caption = "Ok"
End Sub

and

Option Explicit
Private Sub CommandButton18_Click()
Unload Me
End Sub
Private Sub CommandButton19_Click()
With Me.ComboBox1
If .ListIndex 0 Then
Beep
Else
'pick out the second column
MsgBox .List(.ListIndex, 1)
End If
End With
End Sub

and in the combobox code

Private Sub Combobox1_change()



Dim myVar As Variant
With Me.ComboBox1
If .ListIndex 2 Then
Beep
Else
'pick out the second column
myVar = .List(.ListIndex, 1)
MsgBox myVar



End If
End With

MP.CurrentPosition = myVar

End Sub

But I still have no idea what MP.CurrentPosition is. Until you share that, I'm
not sure how to help.

teepee wrote:

"Dave Peterson" wrote in message
...
It worked for me.

Did you make any changes to the other code?

If you did, you may want to post that code.

Hmm the other code refers to command buttons. I put both in verbatim (just
changing the formula addresses) but then it won't let me launch the userform
at all but calls a bug at UserForm2.Show

In the userform

Private Sub UserForm_Initialize()
Dim myRng As Range

With ThisWorkbook.Worksheets("graphs")
Set myRng = .Range("fa1:fb" & .Cells(.Rows.Count,
"A").End(xlUp).Row)
End With
With Me.ComboBox1
.ColumnCount = myRng.Columns.Count
.List = myRng.Value
.ColumnWidths = "33;0"
End With

Me.CommandButton18.Caption = "Cancel"
Me.CommandButton19.Caption = "Ok"
End Sub

and

Option Explicit
Private Sub CommandButton18_Click()
Unload Me
End Sub
Private Sub CommandButton19_Click()
With Me.ComboBox1
If .ListIndex 0 Then
Beep
Else
'pick out the second column
MsgBox .List(.ListIndex, 1)
End If
End With
End Sub

and in the combobox code

Private Sub Combobox1_change()

Dim myVar As Variant
With Me.ComboBox1
If .ListIndex 2 Then
Beep
Else
'pick out the second column
myVar = .List(.ListIndex, 1)
MsgBox myVar

End If
End With

MP.CurrentPosition = myVar

End Sub



--

Dave Peterson

"Dave Peterson" wrote in message
...
But I still have no idea what MP.CurrentPosition is. Until you share that,
I'm
not sure how to help.

mp.currentposition won't have any impact on the rest of the code - I just
included it for completeness. The userform has an embedded media player and
mp.currentposition = 10 would tell it to jump to 10 seconds into a video or
audio.

It could be lots of things.

Can you be more specific about which line causes the error?

teepee wrote:

"Dave Peterson" wrote in message
...
But I still have no idea what MP.CurrentPosition is. Until you share that,
I'm
not sure how to help.

mp.currentposition won't have any impact on the rest of the code - I just
included it for completeness. The userform has an embedded media player and
mp.currentposition = 10 would tell it to jump to 10 seconds into a video or
audio.

--

Dave Peterson

In this case it's where I invoke the userform itself

Sub startt()
UserForm2.Show
End Sub

I get

run time error 70
permission denied

but it does launch if I take out

Private Sub UserForm_Initialize()

Dim myRng As Range

With ThisWorkbook.Worksheets("graphs")
Set myRng = .Range("fa1:fb" & .Cells(.Rows.Count,
"A").End(xlUp).Row)
End With
With Me.ComboBox1
.ColumnCount = myRng.Columns.Count
.List = myRng.Value
.ColumnWidths = "33;0"
End With

Me.CommandButton18.Caption = "Cancel"
Me.CommandButton19.Caption = "Ok"


End Sub

and replace it with

Private Sub UserForm_Initialize()

End Sub

"Dave Peterson" wrote in message
...
It could be lots of things.

Can you be more specific about which line causes the error?

teepee wrote:

"Dave Peterson" wrote in message
...
But I still have no idea what MP.CurrentPosition is. Until you share
that,
I'm
not sure how to help.

mp.currentposition won't have any impact on the rest of the code - I just
included it for completeness. The userform has an embedded media player
and
mp.currentposition = 10 would tell it to jump to 10 seconds into a video
or
audio.

--

Dave Peterson

Further investigation shows that it is the presence of the line

..List = myRng.Value

that is causing the userform to not launch

Maybe you assigned the rowsource to the combobox.

You could either remove that assignment in the properties window for that
combobox (while you're in the VBE).

Or you could clean it up in code:

Add a single line right after the with statement:

With Me.ComboBox1
.RowSource = ""



teepee wrote:

In this case it's where I invoke the userform itself

Sub startt()
UserForm2.Show
End Sub

I get

run time error 70
permission denied

but it does launch if I take out

Private Sub UserForm_Initialize()

Dim myRng As Range

With ThisWorkbook.Worksheets("graphs")
Set myRng = .Range("fa1:fb" & .Cells(.Rows.Count,
"A").End(xlUp).Row)
End With
With Me.ComboBox1
.ColumnCount = myRng.Columns.Count
.List = myRng.Value
.ColumnWidths = "33;0"
End With

Me.CommandButton18.Caption = "Cancel"
Me.CommandButton19.Caption = "Ok"

End Sub

and replace it with

Private Sub UserForm_Initialize()

End Sub

"Dave Peterson" wrote in message
...
It could be lots of things.

Can you be more specific about which line causes the error?

teepee wrote:

"Dave Peterson" wrote in message
...
But I still have no idea what MP.CurrentPosition is. Until you share
that,
I'm
not sure how to help.

mp.currentposition won't have any impact on the rest of the code - I just
included it for completeness. The userform has an embedded media player
and
mp.currentposition = 10 would tell it to jump to 10 seconds into a video
or
audio.

--

Dave Peterson

--

Dave Peterson