Sayfalara aktar

[orkuncan5]

Butona bastığımda sayfa1 deki verileri belirli aralıklarla sayfa2 ye aktarabiliyorum.İstediğim ise butona bastığımda şehir sütunundaki şehir isimlerine göre sayfa eklenip,o şehre ait verilerin o sayfaya aktarımını nasıl yaparım.Örnek olarak uşak sayfası oluşturulup uşakta kimler varsa o isimler uşak sayfasına aktarılıp hali hazırdaki kod ile belirli aralıklarda aktarma yapmak istiyorum.

 

[Murat OSMA]

Deneyiniz;

Sub SayfaAktar()
Dim i, j As Long, Sayfa As String, S1 As Worksheet
Set S1 = Sheets("Sayfa1")
Application.ScreenUpdating = False
For j = 2 To Worksheets.Count
    Sheets(j).Cells.Delete Shift:=xlUp
Next j
For i = 2 To S1.[A65536].End(3).Row
    Sayfa = Cells(i, "E")
        If Not SayfaVarMi(Sayfa) Then
            Sheets.Add After:=Worksheets(Worksheets.Count)
            ActiveSheet.Name = Sayfa
            S1.Select
        End If
    S1.Range("A1:F1").Copy Sheets(Sayfa).Range("A1")
    S1.Range("A" & i & ":F" & i).Copy Sheets(Sayfa).Range("A" & _
    Sheets(Sayfa).[A65536].End(3).Row + 1)
    Sheets(Sayfa).Range("A:F").EntireColumn.AutoFit
Next i
Set S1 = Nothing
Application.ScreenUpdating = True
End Sub

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

 

[orkuncan5]

Teşekkür ederim.Şehir adına göre sayfaların açılması ve o şehre ait kişilerin aynı sayfada olmasına kadar herşey tamam.Aynı sayfadaki kişileri benim vermiş olduğum koddaki gibi belirli aralıkta yazdırabilirmiyiz.

 

[Murat OSMA]

Rica ederim...
Pek vaktim yok, birazdan çıkacağım. O nedenle net yanıt veremeyeceğim ama, istediğiniz tabloyu kodla değil de, Özet Tablo ile de alabilirsiniz...

İyi akşamlar...

 

[orkuncan5]

Sağolun.....

 

[orkuncan5]

Arkadaşlar her iki kodu birbirine uyarlayamadım.Yardımcı olabilecek birisi varmı.

 

[orkuncan5]

olmasını istediğim görüntü

 

[orkuncan5]

resim ektedir

 

[Korhan Ayhan]

Merhaba,

Daha anlaşılır olması açısından resim olarak eklediğiniz sonucu dosyanıza uyarlayıp mesajınıza eklermisiniz. Bu şekilde daha anlaşılır olacaktır.