seddur
Altın Üye
- Katılım
- 12 Nisan 2012
- Mesajlar
- 531
- Excel Vers. ve Dili
- Microsoft office professional plus 2019
- Altın Üyelik Bitiş Tarihi
- 18-12-2024
Merhaba.Ekran alıntısından görüldüğü üzere aşağıdaki kod ile VERİLER sayfası "L" sutunundaki toplamları "C" sutunundaki aylara göre Anasayfa "O" sutununda ay ay listeliyorum.Yapmak istediğim Anasayfa "G2" sutununda bulunan yıl verisine göre toplam alsın.Yani 2022 yılıni ayrı 2023 yılını ayrı toplasın.Yıllar VERİLER sayfası "D" sutununda bulunmaktadır.Yardımcı olacak arkadaşa Teşekkür ederim.
Dim i As Integer
Dim ShV As Worksheet
Dim ShA As Worksheet
Dim s1 As Worksheet
Dim s2 As Worksheet
Dim j As Byte
Set ShV = Sheets("VERİLER")
Set ShA = Sheets("ANASAYFA")
i = ShV.Cells(Rows.Count, "B").End(3).Row
ShA.Select
For j = 3 To 14
Range("O" & j).Formula = "=SUMIF(VERİLER!C2:C" & i & ",G" & j & ",VERİLER!L2:L" & i & ")"
Next j
Dim i As Integer
Dim ShV As Worksheet
Dim ShA As Worksheet
Dim s1 As Worksheet
Dim s2 As Worksheet
Dim j As Byte
Set ShV = Sheets("VERİLER")
Set ShA = Sheets("ANASAYFA")
i = ShV.Cells(Rows.Count, "B").End(3).Row
ShA.Select
For j = 3 To 14
Range("O" & j).Formula = "=SUMIF(VERİLER!C2:C" & i & ",G" & j & ",VERİLER!L2:L" & i & ")"
Next j
Ekli dosyalar
-
39.7 KB Görüntüleme: 22
-
43.5 KB Görüntüleme: 21
Son düzenleme: