commandbutton gives fault

[DB73]

hi guys,

i've got al little (big) problem
got 2 commandbuttons (cmdb1, cmdb2)
cmdb1 is working and opens my userform
cmdb2 (factuur) is on the same sheet but doesnt seem to work ??
i use these 2 codes to call my userforms;

Private Sub CommandButton1_Click()
    MyForm.Show
End Sub

Private Sub commandbutton2_Click()
    Factuur.Show
End Sub

tried to remove the buttons and make new
checked 100 times if the name was correct.
i use office365
fault code is "Subscript Out of Range Runtime Error (Error 9)"
also noticed that as i open the userform the window is just out of my screen, i make it fit everytime but after openening the spreatsheet again, its too wide again
what could it be ?

thanks in advance

 

[Anthony47]

In which vba module is the Sub CommandButton1_Click and in which the Sub commandbutton2_Click?
Is Factuur a userform? Can you share Factuur's UserForm_Activate and UserForm_Initialize code?
If you add a Stop in the Sub commandbutton2_Click code, does the code stop on that instruction when you press Command_Button_2?

Private Sub commandbutton2_Click()
    Stop                                 '<<< ADD FOR TESTING
    Factuur.Show
End Sub

(if the code stops you may restart execution by pressing F5)

Let us know...

 

[DB73]

Hi anthony,
thamks for reply

In which vba module is the Sub CommandButton1_Click and in which the Sub commandbutton2_Click?

i didnt put it in a module, just opened a new sheet and added to buttons (activeX)
then i opened the sheet in vbe editor and put in the code.

Is Factuur a userform?

Yes

Can you share Factuur's UserForm_Activate and UserForm_Initialize code?

Activate ?? that what i made that button for.
Initialize:

'laad de klanten in de combobox
Private Sub UserForm_Initialize()
       Me.ComboBox1.List = ActiveSheet.ListObjects("adressen").ListColumns(1).DataBodyRange.value
End Sub
'zet de adres gegevens in de textboxen
Private Sub ComboBox1_Change()
    TextBox1.Text = Application.VLookup(ComboBox1.value, Worksheets("adressen").Range("adressen"), 3, False)
    TextBox2.Text = Application.VLookup(ComboBox1.value, Worksheets("adressen").Range("adressen"), 4, False)
    TextBox3.Text = Application.VLookup(ComboBox1.value, Worksheets("adressen").Range("adressen"), 5, False)
    TextBox4.Text = Application.VLookup(ComboBox1.value, Worksheets("adressen").Range("adressen"), 6, False)
    TextBox5.Text = Application.VLookup(ComboBox1.value, Worksheets("adressen").Range("adressen"), 7, False)
    TextBox6.Text = Application.VLookup(ComboBox1.value, Worksheets("adressen").Range("adressen"), 8, False)
End Sub

If you add a Stop in the Sub commandbutton2_Click code, does the code stop on that instruction when you press Command_Button_2?

still got the same error then

 

[mikerickson]

That error might be because of a problem in the code in factuur.

 

[DB73]

Found someting myself

changed this

Private Sub UserForm_Initialize()
       Me.ComboBox1.List = ActiveSheet.ListObjects("adressen").ListColumns(1).DataBodyRange.value
End Sub

into this

Private Sub UserForm_Initialize()
       ComboBox1.List = Application.Range("adressen").value
End Sub

dont know why, but this works

 

[Anthony47]

Found someting myself

changed this

[...]

into this

Private Sub UserForm_Initialize()
       ComboBox1.List = Application.Range("adressen").value
End Sub

dont know why, but this works

Any failure in the UserForm_Initialize code results in the form not loaded.

Maybe "adressen" is not a ListObject (a structured Table) but simply a "named range"
But the important point is that "this works!"

 

[DB73]

Any failure in the UserForm_Initialize code results in the form not loaded.

Maybe "adressen" is not a ListObject (a structured Table) but simply a "named range"
But the important point is that "this works!"

actualy 'adressen" is a table, thats why i found it a strange thing.

but what u said....it works..

anyway..thanks for the help