Select Case Problemi

[gurcan21]

Arkadaşlar merhaba,

Kod içine:

Select Case KULLANICI
'KULLANICI bir Public değişken.Bu sayfaya gelmeden önce değer alıyor.
Case 1:Userform1.Show
Case 2:Userform2.Show
.
.
.
Case8:Userform8.Show
End Select
End Sub

Yazıyorum.Fakat CommandButton'a tıkladığımda beni bir userforma yönlendirmesi gerekirken excelden atıyor (Alt tarafta ikon olarak da küçültmüyor,ekranda excele ait hiçbirşey kalmıyor). Exceli tekrar açmaya çalıştığımda ise excel dosyası zaten açık tekrar açmak istiyor musunuz diyor?Problem nerede acaba?

 

[Necdet]

Merhaba,

Dosyayı inceler misiniz?

Sub FormAc()
 
    Dim Kullanıcı As Integer
    
    Kullanıcı = Range("A1")
    
    Select Case Kullanıcı
    Case 1:         UserForm1.Show
    Case 2:         UserForm2.Show
    Case 3 To 10:   UserForm3.Show
    Case Else:      MsgBox "Kullanıcı Hatalı...."
    End Select
    
End Sub