Sayfalar Toplamı

[Bakigemlik]

Merhaba,

Elimde araçların km takip ettiğim ekteki gibi bir dosya mevcut, bu dosyadaki özet sayfasına sayfalardaki plakaların toplam km toplatmak istiyorum.
Bunu Düşeyara ile yapabiliyorum ama 31 sayfa için tek tek yazmak çok uzun bunun daha kolay bir yolu var mıdır,

Teşekkürler,

 

[halit3]

Alternatif olarak makrolu çözüm sunulmuştur.

kod:

Sub verileri_topla()
sayfa = "öZET"
Set s1 = Sheets(sayfa)

s1.Range("C2:C" & Rows.Count).ClearContents

For r = 2 To s1.Cells(Rows.Count, "A").End(3).Row
aranan1 = s1.Cells(r, "A").Value & s1.Cells(r, "b").Value
say1 = 0
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name <> sayfa Then
For j = 3 To Sheets(Sheets(i).Name).Cells(Rows.Count, "A").End(3).Row
bulunan1 = Sheets(Sheets(i).Name).Cells(j, "a").Value & Sheets(Sheets(i).Name).Cells(j, "b").Value
If bulunan1 = aranan1 Then
say1 = say1 + CDbl(Sheets(Sheets(i).Name).Cells(j, "h").Value + Sheets(Sheets(i).Name).Cells(j, "n").Value)
End If
Next j
End If
Next i
s1.Cells(r, "c").Value = say1
Next r

MsgBox "işlem tamam"

End Sub

 

[Bakigemlik]

Alternatif olarak makrolu çözüm sunulmuştur.

kod:

Sub verileri_topla()
sayfa = "öZET"
Set s1 = Sheets(sayfa)

s1.Range("C2:C" & Rows.Count).ClearContents

For r = 2 To s1.Cells(Rows.Count, "A").End(3).Row
aranan1 = s1.Cells(r, "A").Value & s1.Cells(r, "b").Value
say1 = 0
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name <> sayfa Then
For j = 3 To Sheets(Sheets(i).Name).Cells(Rows.Count, "A").End(3).Row
bulunan1 = Sheets(Sheets(i).Name).Cells(j, "a").Value & Sheets(Sheets(i).Name).Cells(j, "b").Value
If bulunan1 = aranan1 Then
say1 = say1 + CDbl(Sheets(Sheets(i).Name).Cells(j, "h").Value + Sheets(Sheets(i).Name).Cells(j, "n").Value)
End If
Next j
End If
Next i
s1.Cells(r, "c").Value = say1
Next r

MsgBox "işlem tamam"

End Sub

Çok teşekkürler Halit Bey 3B-3D formül kullanarak yaptım hatalı sonuç vermedi kodu alternatif olarak elimde bulunduracağım,

Saygılarımla,