If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#11
|
|||
|
|||
Userform combobox question
myVar = .List(.ListIndex, 1)
is the offending line in the debugger Office 2007 |
#12
|
|||
|
|||
Userform combobox question
"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 |
#13
|
|||
|
|||
Userform combobox question
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 |
#14
|
|||
|
|||
Userform combobox question
"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 |
#15
|
|||
|
|||
Userform combobox question
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 |
#16
|
|||
|
|||
Userform combobox question
"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. |
#17
|
|||
|
|||
Userform combobox question
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 |
#18
|
|||
|
|||
Userform combobox question
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 |
#19
|
|||
|
|||
Userform combobox question
Further investigation shows that it is the presence of the line
..List = myRng.Value that is causing the userform to not launch |
#20
|
|||
|
|||
Userform combobox question
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 |
Thread Tools | |
Display Modes | |
|
|