Farklı sayfalardaki listelerden yeni bir liste oluşturmak

[ockucukay]

Merhaba arkadaşlar

Ekteki dosyada gördüğünüz gibi elimde 3 ayrı liste var. Benim bu 3 ayrı listeden tarih sırasına göre tek bir liste oluşturmam lazım. Sorun şu ki her listede ortak alanlar farklı yerlerde, nasıl birleştireceğimi çözemedim, sanırım makroluk bir iş, yardımcı olursanız sevinirim.

 

[Levent Menteşoğlu]

Dosyanıza bir kaç veri ekleyip, bu verilerin ana listede nasıl yerleştirleceğini gösterirseniz daha kolay cevap alabileceğinizi düşünüyorum.

 

[ockucukay]

Merhaba

İstediğiniz gibi dosyayı ekledim. Umarım bir çözüm buluruz.

 

[ockucukay]

Kimse yok muuuu????

 

[ockucukay]

Arkadaşlar herkes izine mi çıktı????

 

[veyselemre]

Aşağıdaki kodu deneyin, Yalnız "Liste 3" sayfasında müşteri adını işaretlememişsiniz. Aşağıda kımızıyla işaretli sıfır yerine "Liste 3" sayfasındaki karşılığının sütun numarasını yazın.

Option Base 1
Sub SayfalardanAktar()
Set sA = Sheets("Ana Liste")

sat = 2
sA.[a2.IV65536].ClearContents

Sheets("Liste1").Select
liste = Array(1, 6, 5, 4, 3, 13, 0, 80, 12, 57, 81)
GoSub basla

Sheets("Liste 2").Select
liste = Array(1, 15, 9, 5, 22, 18, 0, 51, 21, 40, 49)
GoSub basla

Sheets("Liste 3").Select
liste = Array(1, [COLOR=Red][B]0[/B][/COLOR], 5, 3, 2, 12, 0, 72, 11, 57, 71)  ' liste 3 sayfasında müşteri adı işaretlenmemiş
                                                    ' o yüzden sütun noya sıfır yazdım.
GoSub basla

sA.Select
MsgBox "Aktarım Tamamlandı"
Exit Sub


basla:
For x = 2 To [a65536].End(3).Row
    Aktar = False
    For t = 1 To 11
        If liste(t) <> 0 Then
            sA.Cells(sat, t) = Cells(x, liste(t))
            Aktar = True
        End If
    Next t
        If Aktar Then
            sA.Cells(sat, 7) = Format(CDate(sA.Cells(sat, 5) + 14), "dd.mm.yyyy")
            sat = sat + 1
        End If
Next x

Return
End Sub

 

[ockucukay]

Sayın Veysel Emre

Yardımlarınız için çok teşekkür ederim, kod çok işime yaradı. Yalnız benim bir sorum olacak. Size gönderdiğim dosyada liste kayıtları 2. satırdan başlıyordu, elimdeki dosyada 57.satırdan başlıyor, ne gibi değişiklikler yapmam lazım??

 

[veyselemre]

Hangi sayfadaki kayıtlar 57 den başlıyor, ana sayfamı, yoksa liste sayfalarımı?

 

[ockucukay]

Merhaba Veysel Emre

Gerçekteki dosya formatımı ekledim.Bütün alanları görebilirsiniz. Bu dosyayı koymamamın nedeni makro yazmayı inceleyerek öğrenmek, hazıra konmamaktı. Ama ne yaptıysam beceremedim. Liste sayfalarının hepsinde (Liste1,Liste2 ve Liste3) veriler 57.satırdan başlıyor.Ayrıca benim elimdeki ana liste sayfasında 229.satıra kadar veri var. Sizden aldığım makroyu uyguladığımda önceki verileri kaybediyorum. Makroda düzenleme yaptığımda ise (yine yanlış yerlerde düzenliyorum sanırım)
sA.Cells(sat, 7) = Format(CDate(sA.Cells(sat, 5) + 14), "dd.mm.yyyy")
satırında "Type Mismatch" hatasıyla karşılaşıyorum.Hoşgörünüze sığınarak bana düzenlemeleri nasıl yaptığınızı açıklamanızı rica ediyorum. Bu şekilde ancak bende sizler gibi olabileceğim. Şimdiden ilginize teşekkürler ediyorum.

 

[veyselemre]

Göndermiş olduğunuz dosyanın önceki dosyayla alakası yok,

1. Set sA = Sheets("Ana Liste")
satırında aktarılacak sayfanın ismini değiştirin.

2. Yazmaya 230. satırdan başlaması için, aşağıdaki düzenlemeyi yapın.
sat=230

3. Veri alınacak satırların başlangıcı için, aşağıdaki düzenlemeyi yapın.
For x = 57 To [a65536].End(3).Row


4. Yeni dosyada aktarılacak sütun sayısı fazla, önceki dosyada 11 idi.
For t = 1 To 11
satırını kaç sütun ise 15 herhalde (boş sütun dahil)
For t = 1 To 15 yapın.

5.

Sheets("Liste1").Select
liste = Array(1, 6, 5, 4, 3, 13, 0, 80, 12, 57, 81)

satırlarında "Liste1" sayfasından sırasıyla "Ana Liste" liste sayfasına aktarılacak sütun numaralarını düzenleyin. (15 sütun ise 15 rakam olacak, 0 yazdığınız satırı aktarmaz.)

Diğer liste sayfalarını da bu şekilde düzenleyin.

6. Sayfadaki verileri silmemesi için aşağıdaki satırı kaldırın.
sA.[a2.IV65536].ClearContents

7. sA.Cells(sat, 7) = Format(CDate(sA.Cells(sat, 5) + 14), "dd.mm.yyyy")
satırı aktarılan sayfadaki 5.sütuna 14 gün ekleyerek 7.sütuna yazıyordu. Sizin yeni düzeninize göre 5 ve 7 rakamlarını değiştirin.

 

[ockucukay]

İlginize çok teşekkür ederim. Umarım sizi sıkmamışımdır...

 

[veyselemre]

Rica ederim, kolay gelsin.