Seçim yapıldığında toplam alınması

[k0081]

Merhaba arkadaşlar;

belirli bir hücreyi seçtiğimde mesela B3:E9 E1 e toplam aldırabilirmiyim..?

detaylı açıklama ornek dosyada mevcuttur..

Ekli dosyayı görüntüle ornek.xlsm

 

[Ömer]

Merhaba,

Seçili alanda sadece D ile E sütunlarını mı çarpıp toplanacak.

 

[k0081]

Merhaba,

Seçili alanda sadece D ile E sütunlarını mı çarpıp toplanacak.

Evet hocam. D ve E çarpıp toplanacak.

 

[Ömer]

Bu şekilde deneyin.

Sub Topla()
 
    Dim a As String, b As String
 
    On Error Resume Next
    
    a = Replace(Replace(Selection.Address, "B", "D"), "E", "D")
    b = Replace(Selection.Address, "B", "E")
    
    Range("E1") = Evaluate("=SUMPRODUCT((" & a & "*" & b & "))")
 
End Sub

.

 

[k0081]

Ömer;

Hocam çok teşekkürler tamamdır..