Userformda Shift + F9 çalıştırmak

[cemilk]

Hocalarım Selamlar.

Private Sub Hesapla ()
Application.Calculate
End Sub

Yukarıdaki Kodla hesaplama Yaptırdığımda bütün Excelin içindeki sayfalarda hesaplama yapıyor.

Benim yapmak istediğim ise excelde Shift + F9 a basıldığında Sadece aktif sayfada hesaplama yapıyor. Yukarıdaki koda aktif sayfayı hesapla kodu nasıl olabilir.

Teşekkür ederim.

 

[Skorpiyon]

Denemedim ama,

Activesheet.Application.Calculate
veya
Application.Activesheet.Calculate


olarak bir deneyin.

 

[cemilk]

Sayın Şaban Sertkaya ilginize teşekkür ederim.

Application.Activesheet.Calculate

Oldu diğeri tamamını hesapladı.

Kolay gelsin.