• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
22 Nisan 2010
Mesajlar
5
Excel Vers. ve Dili
microsoft ofice excel 2003 türkçe
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...
 

Ekli dosyalar

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.
 
İlgilendiğiniz için çok teşekkür ederim excel dosyamda istediğim belirttim bi bakabilirseniz sevinirim
 

Ekli dosyalar

Şu kodları deneyiniz;

Kod:
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
 
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.
 
Ek'teki dosyayı indirip TIKLA yazan butona basınız...
 

Ekli dosyalar

Ç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
 
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.
 
Bu kodu yazan arkadaşa da çok teşekkür ediyorum emeğinize sağlık...
 
Geri
Üst