sayfadan sayfaya 2 kritere göre veri alma

[memuru_m]

Arkadaşlar herkese kolay gelsin.
Üstadlar için çok basit bana göre biraz zor bi sorunum var.
Daha iyi anlatmak için excel dosyası üzerinde gösterdim.Dosya ekte.Yardımcı olabilecek arkadaşlara şimdiden teşekkürler.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub rapor()
Sheets("Sayfa2").Select
Set s1 = Sheets("veri")
Application.ScreenUpdating = False
Range("B2:D100").ClearContents
For i = 2 To s1.Cells(65536, "A").End(xlUp).Row
    If s1.Cells(i, "C").Value = Range("H2").Value _
    And s1.Cells(i, "D").Value = Range("H3").Value Then
        For k = 2 To 100
            If Cells(k, "A").Value = s1.Cells(i, "A").Value Then
                Cells(k, "B").Value = Cells(k, "B").Value + s1.Cells(i, "B").Value
                Cells(k, "C").Value = s1.Cells(i, "C").Value
                Cells(k, "D").Value = s1.Cells(i, "D").Value
            End If
        Next
    End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub