Makro ile rapor alma

[ofisci]

Merhaba Arkadaşlar,
Öncelikle hepinize saygılar sunarım, bir excel kitabında veri sayfasında birçok verilerim var. Diğer bir sayfada iki koşulla ve diğer sayfada ise 3 koşulla veri sayfasından verileri çağırmak istiyorum. bu mümkün müdür? Üstadlarım yardımcı olursanız çok memnun kalacağım. Örnek dosyam ektedir. Dualarım sizinle. Hoşçakalın.

 

[askm]

Rapor2 ye

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F2")) Is Nothing Then Exit Sub
Dim s1, s2 As Worksheet
Set s1 = Sheets("veri")
Set s2 = Sheets("RAPOR_2")
Dim SonSat As Long
Application.ScreenUpdating = False
s2.Range("B11:N65000").Clear
SonSat = s1.Range("A" & Rows.Count).End(xlUp).Row
Satir = 11
For i = 2 To SonSat
    If s2.Range("B2") = s1.Cells(i, 1) And UCase(s2.Range("D2")) = UCase(s1.Cells(i, 2)) And s1.Cells(i, 4) = s2.Range("F2") Then
        Stn = 2
        For x = 1 To 13
            If x = 4 Then GoTo 10
                s2.Cells(Satir, Stn) = s1.Cells(i, x)
                Stn = Stn + 1
10:
        Next x
        Satir = Satir + 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

Rapor1 e

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D2")) Is Nothing Then Exit Sub
Dim s1, s2 As Worksheet
Set s1 = Sheets("veri")
Set s2 = Sheets("RAPOR_1")
Dim SonSat As Long
Application.ScreenUpdating = False
s2.Range("B11:N65000").Clear
SonSat = s1.Range("A" & Rows.Count).End(xlUp).Row
Satir = 11
For i = 2 To SonSat
    If s2.Range("B2") = s1.Cells(i, 1) And UCase(s2.Range("D2")) = UCase(s1.Cells(i, 2)) Then
        For x = 1 To 13
            s2.Cells(Satir, x + 1) = s1.Cells(i, x)
        Next x
        Satir = Satir + 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

 

[muygun]

Merhaba;
Alternatif olsun.
İnceleyin.
İyi çalışmalar.

 

[ofisci]

Üstadlarım ellerinize sağlık, beni rahatlattınız. Çok teşekkürler ederim. Saygılar.