KOD DERLEME KİLİTLENİYOR

[oerbas]

KOD DERLEME KÝLÝTLENÝYOR

Herkese iyi akşamlar ;

Çalışma kitabı evrak defteri sayfası A1 Hücresini tıklayınca UserForm1 açılıyor.

Kod :

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
UserForm1.Show
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$A$1" Then UserForm3.Show (Modal)
End Sub

UserFormdan çıkıp sayfaya geliyorum, burada aşağı katlanmış diğer açık olane excel kitaplıklarını tıkladığım zaman açılmıyor vs. bazı hatalar oluşuyor. VB. Ortamına düşüp araç çubuklarından reset düğmesini tıkladığım zaman sorun çözülüyor.

ekte gönderdiğim belgede detaylı olarak konuyu açıkladım yardımcı olursanız sevinirim

 

[Korhan Ayhan]

Selamlar;

Bu şekilde çözüme ulaşmak çok zor dosyanızı ekleyebilirseniz. Çözümlerde kısa sürede gelecektir. :hey: