Seçilen Hücrelerin Toplamını Hafızaya Alma

[y.selim]

Merhaba,

Seçilen alanın toplamının hafızaya alınmasını ve istediğimiz yere yapıştırma işlemini nasıl yapabiliriz?

F3 ‘ e bastığımızda seçilen alanın toplamını hafızaya almalı, F4 ‘ e bastığımızda istediğimiz hücreye yapıştırmalı. Bunu bir eklenti haline getirerek istediğim kitapta kullanmak

istiyorum. Aşağıdaki gibi bir başlangıç yaptım ama sonuca ulaşamadım.

Sub Auto_open() Application.OnKey "{F3}", "SecimiTopla" End Sub Sub SecimiTopla() topla = WorksheetFunction.Sum(Selection) End Sub

 

[hamitcan]

Şöyle bir şey yapabilirsiniz;

-Gizli bir sayfa oluşturun.
-Toplamı bu sayfada bir hücreye kopyalayın.
-Toplamı kopyalamak istediğinizde ise bu hücreyi kopyalayabilirsiniz.

 

[y.selim]

Merhaba,
Tavsiyenizi uygulayamadım.
Bahsettiğiniz yöntem eklenti olarak yapılabilir mi ? Ben eklenti haline getirmek istiyordum.

 

[necati]

Merhaba,
Bu işlem için "pano" menüsünü kullanabilirsiniz.

 

[hamitcan]

Sorunuzu cevabı aşağıdaki linkte geçmiş. İncelemenizi tavsiye ederim.

SaveSetting & GetSetting VBA Macro Help | MrExcel Message Board

 

[y.selim]

@ Necati bey teşekkürler. Pano çoklu kopyalamaya yarıyor, bu yöntemle çözülmüyor.


@ Sayın hamitcan çok teşekkürler. Kodlar tam istediğim gibi işimi görüyor.

Kodları bir kitapta deniyorum Ctlr + Shift + C seçili alanı toplayıp, Ctlr + Shift + V kısayolu istenen hücreye toplamı yapıştırıyor.

Fakat ilginç bir şekilde kodları eklentiye dönüştürünce kısayollar çalışmıyor. Hızlı erişim araç çubuğundan ilgili eklentileri seçince de çalışıyor.

Kısayolların çalışmasını nasıl sağlayabiliriz ? OnKey metodunda tuşları tanıtmak için özel bir şey mi yapmamız gerekiyor.

Kodlar aşağıdaki gibidir.

Public Sub Create_Shortcuts()

'Ctrl + Shift + C
Application.OnKey "^+C", "StoreSum"
'Ctrl + Shift + V
Application.OnKey "^+V", "PasteSum"

End Sub

Sub StoreSum()
Dim mySum As String

mySum = WorksheetFunction.Sum(Selection)

SaveSetting "SelectionSum", "Section1", "Key1", mySum

End Sub

Sub PasteSum()

ActiveCell.Value = GetSetting("SelectionSum", "Section1", "Key1")

End Sub

 

[Korhan Ayhan]

Boş bir modüle aşağıdaki kodları uyguladım.

Sonra dosyayı eklenti olarak kaydettim. Sizin bahsettiğiniz işlemleri yapabildim.

Option Explicit
Dim My_Total As Double

Sub Auto_Open()
    Application.OnKey "{F3}", "Selection_Sum"
    Application.OnKey "{F4}", "Write_Sum"
End Sub

Sub Selection_Sum()
    My_Total = WorksheetFunction.Sum(Selection)
End Sub

Sub Write_Sum()
    Selection = My_Total
End Sub

Sub Auto_Close()
    Application.OnKey "{F3}"
    Application.OnKey "{F4}"
End Sub

 

[y.selim]

Korhan bey, aklınıza sağlık. Kusursuz çalışıyor.