Geniş listeden istenilen değerdeki satırları yan sayfalara getirme

[Tanemesin0911]

arkadaşlar;

ekteki dosyada genel raporda listelenen verileri örnegin B sütunundaki mehmet verilerine ait tüm satırları mehmet sayfasına,ahmet verilerine ait satırları ahmet sayfasına olduğu gibi otomatik raporlama konusunda desteğinizi rica ederim...

 

[anemis]

Böyle birşey mi istiyorsunuz?

 

[Murat OSMA]

Sn. anemis'in müsadesiyle alternatif bir kod paylaşmak istiyorum..

Bu kodları kullanabilirsiniz..

[SIZE="2"]Sub Emre()
    Dim Sayfa$, a%, i&
    Application.ScreenUpdating = False
    For a = 2 To Worksheets.Count
        Sheets(a).Range("A2:I10000").Delete Shift:=xlUp
    Next a
    For i = 2 To Sayfa1.Range("B65536").End(3).Row
        Sayfa = Sayfa1.Cells(i, "B")
        If Not SayfaVarMi(Sayfa) Then
            Sheets.Add After:=Worksheets(Worksheets.Count)
            ActiveSheet.Name = Sayfa
            Sayfa1.Rows(1).Copy ActiveSheet.Rows(1)
        End If
        If Sayfa1.Cells(i, 2).Value = Sayfa Then
            Sayfa1.Range("A" & i & ":I" & i).Copy _
            Sheets(Sayfa).Range("A" & Sheets(Sayfa).Range("A65536").End(3).Row + 1)
        End If
    Next i
    Application.ScreenUpdating = True
    i = Empty: a = Empty: Sayfa = vbNullString
End Sub

Function SayfaVarMi(SayfaAdi As String) As Boolean
    On Error Resume Next
    SayfaVarMi = CBool(Len(Worksheets(SayfaAdi).Name) > 0)
End Function[/SIZE]

 

[Tanemesin0911]

Dosyayı basit halde attım genel rapor sayfası yaklaşık 10000
civarı satır verilerden oluşmakta...amacım her isim için sayfaları oluşturacağımm genel rapora 10000 civari veriden oluşan raporu attığımda isme ait olan her veriyi genel rapordan ayıklayıp her sayfaya otomatik sıralayacak şekilde bir koşullama yada makro kodu yazılması gerekmekte...yani genel rapordan b sütunundaki tüm ahmetleri seç ahmet sayfasına listele gibi bir formül yazılması gerekiyor...macro konusunda cok bi bilgim yok ama araştırmalarıma göre makro kodu yazmak daha işlevsel olacak...yada tahminim ekteki dosyada gibi ahmet dosyasına aranacak ismi sayfa başına birebir yazıp,bu başlık üzerinden hücrede tanımlı ismi
(örneğin; ahmet) tümünü bul satır olarak listele gibi bir formülleme...

Desteğinize çok çok teşekkür ederim...bu açıdan da paylaşabileceğiniz bilgiler varsa çok minnettar kalırım