Açılır Takvimi Ortalama

[ormann]

İyi günler ;
Ekli dosyada j5 ,H42 hücrelerini tıkladığımda takvim açılıyor.Fakat takvim H42 hücresinde ekranın en alt kısmında gözüküyor.Bunu devamlı olarak hangi hücreye takvimi uygularsam takvim sayfanın ortasında açılabilir mi?
http://dosya.co/kz97z6jufd3c/örnek.xlsm.html

 

[Korhan Ayhan]

Merhaba,

"UserForm_Activate()" olayını aşağıdaki gibi değiştiriniz.

Private Sub UserForm_Activate()
    Dim a As Long, b As Long
    Dim c As String, ad As String
    
    a = ActiveWindow.Selection.Row
    b = ActiveWindow.Selection.Column
    c = ActiveWindow.RangeSelection.Address
    ad = Worksheets(ActiveSheet.Name).Cells(a, b).Select
End Sub

 

[ormann]

Korhan bey çok teşekkür ederim