3 sütundaki verileri üst üste toplayarak aktarma makrosu

[sirkülasyon]

Veri Giriş Sayfasının CV4:CV50 hücrelerinde bulunan rakamları
Veri Giriş Sayfasının DY4 : DY50 hücrelerinde bulunan rakamları
Ekders Bordro Sayfasının V5:V50 hücrelerinde bulunan rakamları

toplayarak Veri Giriş Sayfasının EA4:EA50 hücrelerine aktarmasını sağlayacak makro kodu için yardımcı olabilir misiniz?

Teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Sub Toplam_Al()
    With Sheets("Veri Giriş")
        .Range("EA4:EA50").Formula = "=SUM('Veri Giriş'!CV4,'Veri Giriş'!DY4,'Ekders Bordro'!V4)"
        .Range("EA4:EA50").Value = .Range("EA4:EA50").Value
    End With
End Sub

 

[sirkülasyon]

Korhan Abi
Teşekkür Ederim. Ellerine Sağlık. Sıkıntısız aktarıyor ama Üst üste toplamıyor.

 

[Korhan Ayhan]

Ben boş bir excel dosyasında kodu deneyerek gönderdim. Asıl dosyanızda farklı bir durum olabilir. Kontrol etmek gerekir.

 

[sirkülasyon]

Korhan Abi
İlgili sütunlarda olan değerleri topluyor icmal ederek ilgili sütuna aktarıyor. Ancak üstüste aktarma yapmıyor.
Toplama işlemi sıkıntısız, Aktarma işlemi sıkıntısız, üstüste toplama da sıkıntı var.

 

[Korhan Ayhan]

"EA4:EA50" aralığında daha önceden bulunan verilerin üstüne mi toplam alınacak?

 

[sirkülasyon]

Korhan Abi
Veri Giriş Sayfasında ki CV4:CV50
Veri Giriş Sayfasında ki DY4 : DY50 ve Ekders Bordro Sayfasının V5:V50 hücrelerinde bulunan rakamları EA4:EA50" ye üst üste toplayacak.

Kusura bakma zahmet verdim hakkını helal et

 

[Korhan Ayhan]

Örnek dosya üzerinde açıklar mısınız?

 

[sirkülasyon]

Korhan abi aslına uygun olarak dosya ekledim.

Veri Giriş "CX sütunu" 4-150 arası,
Veri Giriş "DZ sütunu" 4-150 arası ve
"Ekders Bordro W sütunu" 5-150 arası
toplatılarak Veri Giriş "EC sütunu" 4 - 150 arasına butona her tıklandığında üst üste toplayarak aktaracak

Teşekkür eder saygı ve hürmetlerimi sunarım abi

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub TOPLA()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim X As Long, Veri As Double
    
    Set S1 = Sheets("VERİ GİRİŞ")
    Set S2 = Sheets("Ekders Bordro")
    
    For X = 4 To 150
        Veri = S1.Cells(X, "CX") + S1.Cells(X, "DZ") + S2.Cells(X + 1, "W")
        S1.Cells(X, "EC") = S1.Cells(X, "EC") + Veri
        Veri = 0
    Next

    Set S1 = Nothing
    Set S2 = Nothing

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[sirkülasyon]

Korhan abi sağolasın. Ellerine sağlık.
Hakkını helal et. Verdiğim zahmet için de affına sığınıyorum Kabul et