Sayfalara Aktar

[Mdemir63]

Selamlar
Detaylı bilgiyi dosyamda açıklamaya çalıştım.
Yapmak istediğim kısaca; Ekteki dosyamda firma adlarına göre sayfa oluşturup ya da sayfa varsa direkt bilgileri Array(Dizi) yöntemi ya da Scripting Dictionary yöntemleri ile Yapmak . Şimdiden herkese çok teşekkür ederim.

Saygılar

 

[muygun]

Merhaba;
Döngü yöntemi ile çözüm alternatif olsun.
İnceleyin.
İyi çalışmalar.

 

[Mdemir63]

Sayın @muygun hocam çok teşekkür ederim .

Saygılar

 

[Ziynettin]

Dizi yöntemi alternatif.

 

[veyselemre]

Sub sayfalaraVeriAktar()
    Dim veri, i, ky, s1 As Worksheet
    Set s1 = Sheets("Veri")
    veri = s1.Range("A2:C" & s1.Cells(Rows.Count, 1).End(3).Row).Value
    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(veri)
            If Not .Exists(veri(i, 1)) Then
                .Item(veri(i, 1)) = Null
                If Evaluate("ISREF('" & veri(i, 1) & "'!A1)") = False Then
                    Sheets.Add(, Sheets(Sheets.Count)).Name = veri(i, 1)
                Else
                    Sheets(veri(i, 1)).Cells.Clear
                End If
            End If
        Next i
        s1.Select
        veri = .Keys
        For Each ky In .Keys
            s1.Range("A1:C1").AutoFilter Field:=1, Criteria1:=ky
            s1.Range("A1").CurrentRegion.Copy Sheets(ky).Range("A1")
        Next ky
        s1.Range("A1:C1").AutoFilter
    End With
End Sub

 

[Mdemir63]

Sayın: @Ziynettin Hocam
Sayın: @veyselemre Hocam

Çok teşekkür ederim. Ellerinize sağlık.

 

[Mdemir63]

Dizi yöntemi alternatif.

@Ziynettin Hocam
Bu benim dosyama dizi ile uyarladığınız kodu anlatma imkanınız var mı?

Saygılar

 

[Mdemir63]

@veyselemre Hocam kodlarda ki renkli kısmı anlayamadım zahmet olmazsa açıklayabilir misiniz?

Sub sayfalaraVeriAktar()
    Dim veri, i, ky, s1 As Worksheet
    Set s1 = Sheets("Veri")
    veri = s1.Range("A2:C" & s1.Cells(Rows.Count, 1).End(3).Row).Value
    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(veri)
            If Not .Exists(veri(i, 1)) Then
                .Item(veri(i, 1)) = Null
                If Evaluate("ISREF('" & veri(i, 1) & "'!A1)") = False Then
                    Sheets.Add(, Sheets(Sheets.Count)).Name = veri(i, 1)
                Else
                    Sheets(veri(i, 1)).Cells.Clear
                End If
            End If
        Next i
        s1.Select
        veri = .Keys
        For Each ky In .Keys
            s1.Range("A1:C1").AutoFilter Field:=1, Criteria1:=ky
            s1.Range("A1").CurrentRegion.Copy Sheets(ky).Range("A1")
        Next ky
        s1.Range("A1:C1").AutoFilter
    End With
End Sub

 

[Necdet]

Merhaba,

Dizi ve Collection kullanarak bir çözüm de ben önereyim.
Ekli dosyada illa verilerinizi bu dosyaya aktarmanız gerekmiyor.
isterseniz herhangi bir dosyadaki veriyi alabilirsiniz, ya da bu dosya açıkken, sizin dosyanızı açarak, eklediğim dosyadaki makroyu çalıştırabilirsiniz.
İstediğiniz bir sütuna göre ister sayfalara isterse dosyalara ayırabilirsiniz.
Deneyiniz ve sonucu da paylaşırsanız sevinirim.
Hep örnek bir kaç satırlık verilerle denediğim için hız konusunda bir fikrim yok.

 

[Mdemir63]

@Necdet Hocam
Çok Teşekkür ederim. Emeğinize sağlık

 

[Necdet]

Merhaba,

Bu da array ve array sıralama ile yapılmış sadece sayfalara ayıran çalışma.
yine arka planda ekteki dosyanın kodlarını çalıştırabilirsiniz.

 

[Mdemir63]

Necdet Hocam
Emeğinize sağlık, böyle alternatifli çözümler veriyorsunuz. Çok teşekkür ederim.

 

[m.ensar]

Merhaba,

Dizi ve Collection kullanarak bir çözüm de ben önereyim.
Ekli dosyada illa verilerinizi bu dosyaya aktarmanız gerekmiyor.
isterseniz herhangi bir dosyadaki veriyi alabilirsiniz, ya da bu dosya açıkken, sizin dosyanızı açarak, eklediğim dosyadaki makroyu çalıştırabilirsiniz.
İstediğiniz bir sütuna göre ister sayfalara isterse dosyalara ayırabilirsiniz.
Deneyiniz ve sonucu da paylaşırsanız sevinirim.
Hep örnek bir kaç satırlık verilerle denediğim için hız konusunda bir fikrim yok.

Necdet Hocam Merhaba;
Bu çalışmanızda hücre seçiniz dediğimiz zaman örneğin B sütunundan bir hücre seçtiğimizde O sütundaki verileri dosya adı olarak kabul edip dosyalara ayırıyor. B sütununda olan verilerin adında çalışma kitaplarımızın var olduğunu saysak o kitaplarda olan Örneğin AHMET adlı kitabın Veri sayfasını değiştirebilir mi? Bunu şablon kabul edip her güncellediğimde DOSYALARA DAĞIT dediğimizde B sütununda var olan Dosyalarda ki veri sayfasını değiştirebilir miyiz? Asıl sormak istediğim bu.

 

[Necdet]

Necdet Hocam
Emeğinize sağlık, böyle alternatifli çözümler veriyorsunuz. Çok teşekkür ederim.

Teşekkürler Sayın Mdemir63,
Denemenizi merak ediyorum, büyük verilerde hızı nasıl?

 

[Necdet]

Necdet Hocam Merhaba;
Bu çalışmanızda hücre seçiniz dediğimiz zaman örneğin B sütunundan bir hücre seçtiğimizde O sütundaki verileri dosya adı olarak kabul edip dosyalara ayırıyor. B sütununda olan verilerin adında çalışma kitaplarımızın var olduğunu saysak o kitaplarda olan Örneğin AHMET adlı kitabın Veri sayfasını değiştirebilir mi? Bunu şablon kabul edip her güncellediğimde DOSYALARA DAĞIT dediğimizde B sütununda var olan Dosyalarda ki veri sayfasını değiştirebilir miyiz? Asıl sormak istediğim bu.

Merhaba.
Dosya adının olup olmadığını kontrol etmedim. Hatta aynı dosya adı varsa kod hata da verir.
Bunlar da koda eklenebilir.
İkinci sorunuz da aynı adla dosya olsa da hangi sayfayı değiştirecek olayı baya sıkıntılı. Tabi belirli bir yöntem varsa o da olabilir.

 

[m.ensar]

Hocam belirli bir klasörde Örneğin LİSTELER adlı klasör içerisinde Örnek1 Örnek2 diye listeler var diyelim bu isimleri çalışmanızın B Sütununa alt alta yazdık her kitapta da VERİ adlı sayfa var DOSYALARA dağıt dediğimizde listede ismi olan çalışma kitaplarının VERİ sayfaları ya güncellenmeli yada silinip yeni hali eklenmeli. Böyle bir çalışmayı uzun zamandır arıyorum ama bulamadım burada konu da açmıştım. Sizin çalışmanız bu sorunun çözülebileceğini gösterdi ama tabi ki benim yapabileceğim bir şey değil
Ayrıca çalışmanızı kalabalık bir dosyada denedim hızı mükemmel yaklaşık 60 sayfa ve 15 sütunda 6-7 sn bulmadan işlem yaptı

 

[sward175]

Necdet Hocam,
Ellerine beyninize sağlık, Ben de dosyanızı indirdin Aylık 18 sütün ve 785 satır olan bir dosyam var G sütun seçerek 2 yada3 saniyede 2 sayfaya ayırdı gayet başarılı bir iş yaptım.
Saygı ve sevgiler diliyorum.

 

[Mdemir63]

Teşekkürler Sayın Mdemir63,
Denemenizi merak ediyorum, büyük verilerde hızı nasıl?

Hocam benim dosyamda sıkıntı yok.
Gayet iyi. Ama benim dosyamın boyutu çok büyük değil

 

[Necdet]

Hocam belirli bir klasörde Örneğin LİSTELER adlı klasör içerisinde Örnek1 Örnek2 diye listeler var diyelim bu isimleri çalışmanızın B Sütununa alt alta yazdık her kitapta da VERİ adlı sayfa var DOSYALARA dağıt dediğimizde listede ismi olan çalışma kitaplarının VERİ sayfaları ya güncellenmeli yada silinip yeni hali eklenmeli. Böyle bir çalışmayı uzun zamandır arıyorum ama bulamadım burada konu da açmıştım. Sizin çalışmanız bu sorunun çözülebileceğini gösterdi ama tabi ki benim yapabileceğim bir şey değil
Ayrıca çalışmanızı kalabalık bir dosyada denedim hızı mükemmel yaklaşık 60 sayfa ve 15 sütunda 6-7 sn bulmadan işlem yaptı

Mükerrar dosya durumunda önceki dosyayı silme işlemini vakit bulduğumda yapayım.
Aslında sadece bir dosya kontrolü.

 

[m.ensar]

Hocam ilginize çok teşekkür ediyorum. asıl meramım halihazırda var olan çalışma kitaplarının veri sayfalarını değiştirmek. Şöyle ki yapıları tamamen aynı olan bir gruba ait 8 çalışma kitabı bir klasör içerisinde, yine yapıları aynı olan bir başka gruba ait 8 çalışma kitabı bir başka klasörde ve bunun gibi 5 farklı grup var. bunların veri sayfalarında bir değişiklik yaptığım zaman her birini tek tek güncellemem gerekiyor. Sizin çalışmanızda bana lazım olan B sütununa ben bu çalışma gruplarında bulunan kitapların adını yazacağım ve 8 kitabın veri sayfası yaptığım güncellemeyi almış olacak. Diğer sütunlardan hücre seçip değişik şekillerde dağıtım yapmasa da olur. Vaktiniz olurda ilgilenirseniz minnet duyarım.