• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

seçerek toplama yapmak

Katılım
4 Haziran 2008
Mesajlar
798
Excel Vers. ve Dili
Excel 2021 TÜRKÇE
Arkadaşlar hücrelere toplama yapacağım hücreleri yazarak makroyla toplama yapmak istiyorum.
 

Ekli dosyalar

Formülle daha kolay. Makro şart değilse.
=TOPLA(KAYDIR(DOLAYLI(J3);0;0;SAĞDAN(K3;UZUNLUK(K3)-1)-SAĞDAN(J3;UZUNLUK(J3)-1)+1))+TOPLA(KAYDIR(DOLAYLI(J4);0;0;SAĞDAN(K4;UZUNLUK(K4)-1)-SAĞDAN(J4;UZUNLUK(J4)-1)+1))
 
.

M3 hücresine:

Kod:
=SUM(INDIRECT(J3&":"&K3))

O3 hücresine:

Kod:
=SUM(INDIRECT(J4&":"&K4))

formüllerini yazın.

Dosyanız ekte.

.
 

Ekli dosyalar

Örnek makro,

Kod:
Sub test()
    tc1 = Range([j3]).Address
    tc2 = Range([K3]).Address
    MsgBox WorksheetFunction.Sum(Range(tc1 & ":" & tc2))
    
    te1 = Range([j4]).Address
    te2 = Range([K4]).Address
    MsgBox WorksheetFunction.Sum(Range(te1 & ":" & te2))
End Sub
 
İlginize teşekkür ederim
 
Geri
Üst