Sayfalara kişiye göre veri dağıtımı

[curcuna551]

Merhaba arkadaşlar;

bir excell dosyam var ben bu listede tüm kişiler sayfasına hergün kişi ve veri eklemekteyim ve hafta da bir de kişiye göre veri çekmekteyim ben her hafta süzgeç kullanarak veri çekiyorum ve buda kişi sayısı fazla olduğu için zaman alıyor ben ilgili kişi sayfasında eğer ve düşeyara ile formül yazarak yapmaya çalıştım fakat olmadı farklı isimde boş olarak veriyi veriyor... bi türlü beceremedim yardımcı olabilirseniz çok sevinirim iyi günler...

 

[Necdet]

Merhaba,

Kişi eklemeyi anladım da kişiye göre veri çekmeyi pek anlamadım.

Örnek dosyanızda veri çekmeyi anlatır mısınız? yardımcı olacak arkadaşların farklı düşünmesini engellemek için gerekli bu.

 

[curcuna551]

İlgilendiğiniz için çok teşekkür ederim excel dosyamda istediğim belirttim bi bakabilirseniz sevinirim

 

[Murat OSMA]

Şu kodları deneyiniz;

Sub SayfaAktar()
Dim i, j As Long, Sayfa As String, S1 As Worksheet
Set S1 = Sheets("TÜM DOSYALAR")
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, "A")
        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

 

[curcuna551]

bu makro kodumudur daha önce hiç kullanmadım nasıl kullanıcağımıda bilmiyorum bunu eğer ile yapamazmıyız acaba
cevabınız için teşekkür ederim.

 

[Murat OSMA]

Ek'teki dosyayı indirip TIKLA yazan butona basınız...

 

[curcuna551]

Çok teşekkür ederim elinize sağlık. Son bişi öğrenbilir miyim sizden, ben bu listeyi örnek olsun diye sundum benim listem 5000 küsür satırlık ve hergün artıyor şuan sizin yaptığınız butona bastığımda güncelliyor bu güncellemenin sınırı varmı siz herhangi bir satır belirttiniz mi acaba

 

[Murat OSMA]

Rica ederim, bana değil de kodları yazan arkadaşa teşekkür etmek gerek. Ben de bu tür sayfalara veri aktarma konusunda bu kodları kullanıyorum ve arkadaşlara öneriyorum.

65536. satırda biter.

 

[curcuna551]

Bu kodu yazan arkadaşa da çok teşekkür ediyorum emeğinize sağlık...