DblClick Olayında Userformun Kilitlenmesi ?

[dEdE]

Merhaba Xl Dostları,

Aşağıdaki kodlarla kayıtlı verilerden birini değiştirmek istediğimde UserForm kilitleniyor, klavye ve mousun hiçbir hareketine yanıt vermiyor. Ancak Ctrl+Break ile çıkabiliyorum. Label1_Click olayında aynı sorun olmuyor. Sorun DblClick'ten kaynaklanıyor ama bir türlü çözemedim.

Önerilerinizi bekliyorum. Saygılar.

Private Sub Label1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim SertifikaNo As String

SertifikaNo = Application.InputBox("Lütfen Yeni Sertifika Numarasını Yazınız.", "SERTİFİKA NUMARASI DEĞİŞTİRME")
If SertifikaNo = False Then Exit Sub
Cells(ActiveCell.Row, 1).Value = SertifikaNo
End Sub

 

[snx111]

Private Sub Label1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim SertifikaNo As String

SertifikaNo = Application.InputBox("Lütfen Yeni Sertifika Numarasını Yazınız.", "SERTİFİKA NUMARASI DEĞİŞTİRME")
If SertifikaNo = false Then GoTo son
Sayfa2.Cells(ActiveCell.Row, 1).Value = SertifikaNo
son:
UserForm1.Hide
UserForm1.Show

End Sub

sayfadan userforma dönüşde zaman kaybı yaşanıyor...

 

[dEdE]

Sayın snx111, Teşekkürler.
Sorun bu şekilde aşıldı.

Ancak aklıma takılan sorular var.

-Click olayında sorun yaşanmazken DblClick olayında neden yaşanıyor?
-İlk mesajdaki kodları (DblClick) tek başına bir UserFormda çalıştırdığımda sorun yaratmıyor. Yaptığım çalışma oldukça uzun kodlara sahip ama başka DblClick olayı da yok. Bu durumda diğer kodlarla bir sorun yaşanıyor.
-Ne olabilir? diye merak ediyorum.

Saygılar.

 

[snx111]

O çok Derin bir mevzu .....

 

[dEdE]

Merhaba,

Cancel = True ile sorun çözüldü.

Private Sub Label1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim SertifikaNo As String

SertifikaNo = Application.InputBox("Lütfen Yeni Sertifika Numarasını Yazınız.", "SERTİFİKA NUMARASI DEĞİŞTİRME")
If SertifikaNo = false Then GoTo son
Sayfa2.Cells(ActiveCell.Row, 1).Value = SertifikaNo
son:
Cancel = True
End Sub

Sorunun DblClick olayının kendisinden kaynaklandığını düşünüyorum. Kodun başlangıcındaki bu ifadeden olmalı.
Private Sub Label1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Üstadlar bir açıklama yaparlarsa sevinirim.

Saygılar.