CommanButton hata veriyo

[ahmett46]

Slm arkadaşlar
Bir UserForm üzerindeki CommandButton
Private Sub CommandButton61_Click()
Unload Me
UserForm9.Show 0
End Sub
Kodunu yazdım ama Run-time error '9':Subscript out of range hatası veriyor.
Diğer butonlarada aynı kodu yazdım problem çıkmıyor neden? Saygılar

 

[Archi]

Unload Me yazan satıra Break Point (kod penceresini solundaki sutuna mouse ile tıklayın; kırmızı bir nokta koyacaktır) yerleştirdikten sonra formu çalıştırıp buttona tıklayın. Kodun çalışması bu satırda duracaktır. sonra F8 basarak adım adım ilerletin. Hangi satırdan sonra mesaj veriyorsa ona göre durumu inceleyelim.

 

[ahmett46]

Teşekkürler kardeş dediğiniz gibi yaptım sayfa adında yanlışlık yapmışım. Sağolun.
Ayrıca size bir sorum daha olacak
Private Sub UserForm_Initialize()
Sheets("dershavuzu").Select
For a = 1 To 8
ComboBox2.AddItem a
Next
ComboBox3.AddItem "A"
ComboBox3.AddItem "B"
ComboBox3.AddItem "C"
End Sub
UserForm üzerinde 2 ve 3 nolu ComboBox lardan bu bilgileri seçiyorum. İsteğim aynı bilgileri ComboBox2 den 1 ile 8 arasındaki sayıları seçerken aynı anda ComboBox5 ilede bu sayıları ComboBox6 ile de A,B,C harflerini seçmek istiyorum. Tekrar teşekkürler

 

[Archi]

bunun gibi birşey olmalı:


For a = 1 To 8
ComboBox2.AddItem a
ComboBox5.AddItem a
Next
ComboBox3.AddItem "A"
ComboBox3.AddItem "B"
ComboBox3.AddItem "C"
ComboBox6.AddItem "A"
ComboBox6.AddItem "B"
ComboBox6.AddItem "C"

End Sub


Private Sub ComboBox2_Change()
ComboBox5.ListIndex = ComboBox2.ListIndex
End Sub