Süzülen veri ile raporlama

[muratsaraldi]

Ekte veri girişi sayfasından girdiğim verileri RAPOR sayfasında SARI olarak belirttiği yere tezgah adını ve YIL girdiğimde yapılan işlemleri nasıl çekebilirim.
Bir nevi iki şartlı süzülen verileri aktarma olarak olabilir istediğim şey.
Ekte örnek dosyam var.

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
    Application.ScreenUpdating = False
    Dim s1 As Worksheet: Set s1 = Sheets("Veri Giriş")
    Dim s2 As Worksheet: Set s2 = Sheets("Raporlama")
    
    s2.Range("c11:l" & Rows.Count).ClearContents
    sat = 11
    For i = 2 To s1.Cells(Rows.Count, "A").End(3).Row
        
        If UCase(Replace(Replace(s1.Cells(i, "A"), "ı", "I"), "i", "İ")) = _
        UCase(Replace(Replace(s2.Range("C8"), "ı", "I"), "i", "İ")) And _
        (Year(s1.Cells(i, "D")) * 1) = (s2.Range("F8") * 1) Then
        
        s2.Cells(sat, "C") = s1.Cells(i, "E")
        s2.Cells(sat, "D") = s1.Cells(i, "D")
        s2.Cells(sat, "E") = s1.Cells(i, "G")
      [COLOR="Green"]  's2.Cells(sat, "G") = s1.Cells(i, "F")[/COLOR]
        s2.Cells(sat, "I") = s1.Cells(i, "F")
        s2.Cells(sat, "K") = s1.Cells(i, "K")
        s2.Cells(sat, "L") = s1.Cells(i, "M")
        sat = sat + 1
        
    End If
Next i

Application.ScreenUpdating = True
MsgBox "B i t t i "
End Sub

. . .

 

[muratsaraldi]

çok teşekkürler.