İstimal Kartı

[finansman_38]

Kart Sayfasındaki grup kodunu N2 hücresine yazıp, düğmeye tıklayınca o gruba ait bilgileri (rapor) bu sayfaya sıralayacak şekilde bir makro yazmak mümkünmüdür acaba

Teşekkürler.

 

[Necdet]

Merhaba,

Bir kısmını yazdım, diğerlerini siz tamamlayınız.

Sub Listele()
    Dim sk  As Worksheet, _
        sr  As Worksheet, _
        i   As Long, _
        j   As Long, _
        Kod As Variant
    
    
    Set sk = Sheets("Kart")
    Set sr = Sheets("Rapor")
    Kod = sr.Range("N2")
    
    Application.ScreenUpdating = False
    
    j = sr.Cells(Rows.Count, "B").End(3).Row
    If j < 4 Then j = 4
    
    sr.Range("A4:O" & j).ClearContents
    
    j = 3
    
    For i = 2 To sk.Cells(Rows.Count, "B").End(3).Row
        If sk.Cells(i, "B") = Kod Then
            j = j + 1
            sr.Cells(j, "A") = j - 3
            sr.Cells(j, "B") = sk.Cells(i, "B")
            sr.Cells(j, "C") = sk.Cells(i, "C")
            sr.Cells(j, "D") = sk.Cells(i, "D")
            sr.Cells(j, "E") = sk.Cells(i, "E")
            'Diğer hücreleri siz ekleyiniz.
        End If
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "Listeleme Tamamlanmaştır....", vbInformation, "N. YEŞERTENER ---> [URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]"
End Sub

 

[finansman_38]

Necdet bey teşekkür ederim. İstediğim gibi olmuş.