Makroya ilave yapmak istiyorum.

[abbasonline]

Option Explicit
Sub toplayalım()
Dim ts, trabzonspor, hamsi As Date
Dim s1, s2, s3
Set s1 = Sheets("GİRİŞ")
Set s2 = Sheets("ÇIKIŞ")
Set s3 = Sheets("SONUÇ")
trabzonspor = MsgBox("Sonuçları Topluyorum, ...........", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
For ts = 3 To s3.Cells(Rows.Count, "B").End(xlUp).Row
s3.Cells(ts, "C") = WorksheetFunction.VLookup(s3.Cells(ts, "B"), _
s1.Range("G:I"), 2, 0)
s3.Cells(ts, "D") = WorksheetFunction.VLookup(s3.Cells(ts, "B"), _
s1.Range("G:I"), 3, 0)
s3.Cells(ts, "I") = WorksheetFunction.VLookup(s3.Cells(ts, "B"), _
s1.Range("G:I"), 3, 0)
s3.Cells(ts, "O") = s3.Cells(ts, "D")
s3.Cells(ts, "E") = WorksheetFunction.SumIf(s1.Range("G:G"), s3.Cells _
(ts, "B"), s1.Range("J:J"))
s3.Cells(ts, "J") = WorksheetFunction.SumIf(s2.Range("G:G"), s3.Cells _
(ts, "B"), s2.Range("J:J"))
s3.Cells(ts, "P") = s3.Cells(ts, "E") - s3.Cells(ts, "J")
s3.Cells(ts, "F") = WorksheetFunction.SumIf(s1.Range("G:G"), s3.Cells _
(ts, "B"), s1.Range("K:K"))
s3.Cells(ts, "G") = WorksheetFunction.SumIf(s1.Range("G:G"), s3.Cells _
(ts, "B"), s1.Range("L:L"))
s3.Cells(ts, "L") = WorksheetFunction.SumIf(s2.Range("G:G"), s3.Cells _
(ts, "B"), s2.Range("L:L"))
s3.Cells(ts, "R") = s3.Cells(ts, "G") - s3.Cells(ts, "L")
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& ".............., Sürede Toplamları Çıkardım", Application.ScreenUpdating = True
MsgBox "İşlem Tamamlanmıştır, ................", vbOKOnly + vbInformation, "..............."
End


Makro düzgün çalışıyor teşekkürler, ancak birde "DEVİR" sayfası eklendi bunuda yukarıdaki makroya nasıl dahil edebilirim, "GİRİŞ" sayfası ile "DEVİR" sayfasının tüm özellikleri aynı sadece "DEVİR" ile "GİRİŞ" i toplayıp "ÇIKIŞ" dan çıkaracak ve "SONUÇ" sayfasına yazacak (Not: DEVİR sayfasındaki verilerde GİRİŞ sayfasındaki ile aynı.

 

[efeksk]

Örnek dosyanı ekle arkadaşım. Bu kadar kod okuyup düşünmek beyinde fosforu tüketir. ÖRNEK

 

[abbasonline]

dosya ekte;

dosya ekte;