user form hatası

[acar57]

merhaba hocalar sizin sayenizde bi user form yaptım yalnız (F11 le açılıyor) formu çalıştırdaktan sonra hangi sayfayı seçsem gidiyor ama isim seçtiğim yerden bir harfi bile silersem hata veriyor ve userformla işim bittiği zaman esc basınca kapanmasını istiyorum yardım ederseniz sevinirim dosyayı ekliyorum tşimdiden teşekkürler

http://s3.dosya.tc/server12/myljpk/Sayfa_Sec.rar.html

 

[Ömer BARAN]

Merhaba.

Kırmızı renklendirdiğim kısımları ekleyerek deneyin isterseniz.
.

[B]Option Explicit

Private Sub ComboBox1_Change()[/B]
[COLOR="red"]On Error GoTo 10[/COLOR]
    Sheets([COLOR="Red"]ComboBox1.Value[/COLOR]).Activate
[COLOR="red"]10[/COLOR]
[B]End Sub
____________________________________________________

Private Sub UserForm_Initialize()[/B]
    Dim i As Integer
    For i = 1 To [COLOR="Red"]ActiveWorkbook.[/COLOR]Worksheets.Count
        ComboBox1.AddItem Sheets(i).Name
    Next i
[B]End Sub[/B]

 

[tactless]

Private Sub UserForm_Initialize()
CommandButton1.Cancel = True
End Sub

Private Sub Command_Click()
Unload Me
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = True
End Sub

Bide böyle birşey var.

 

[acar57]

hocam çok teşekkürler oldu peki userform açıldığında işim bitince esc çıkabilirmiyiz varmı böyle birşey