Farklı sayıda satır içeren iki kolonun datalarını birleştirme

[delphoi]

Merhaba arkadaşlar,

Satır sayıları farklı olan iki sütunda bulunan dataları birleştirmek istiyorum.

Örnek datalar şu şekilde:

Yıl
2009
2010
2011

Çeyrek
Q1
Q2
Q3
Q4

Sonuç sütunu
2009 - Q1
2009 - Q2
2009 - Q3
2009 - Q4
2010 - Q1
2010 - Q2
2010 - Q3
.
.
.

gibi yıl ve çeyrek bazlı bütün kombinasyonları vermesini istiyorum.

düşeyara ve birleştir fonksiyonlarını kullanarak yapmaya çalıştığımda yıl satır sayısı çeyrek satır sayısından az olduğu için üç sonuçtan sonrasını vermiyor.

yardımcı olabilirseniz çok sevinirim...

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz.

Bu işlemi aşağıdaki kod ile rahatlıkla yapabilirsiniz.

Yıllar A sütununda , dönemler B sütununda yeni liste ise D sütununda olacak şekilde tasarlanmıştır.

Option Explicit
 
Sub LİSTELE()
    Dim X As Long, Y As Long, Satır As Long
 
    Columns("D:D").Clear
    Satır = 1
 
    For X = 1 To Range("A65536").End(3).Row
        For Y = 1 To Range("B65536").End(3).Row
            Cells(Satır, "D") = Cells(X, 1) & " - " & Cells(Y, 2)
            Satır = Satır + 1
        Next
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[muygun]

Merhaba;
Syn Korhan Ayhan soruyu çözümlemiş.
Hazırladığım ek işlevlerle çözüm için örnek olsun.
İyi çalışmalar.

 

[delphoi]

Korhan Bey öncelikle hoşbulduk, hakikaten forumun kalitesini çok beğendim
emeği geçen herkese teşekkürler

Kod yazmışsınız emeğinize sağlık, ama ben onu nasıl çalıştıracağımı bilmiyorum,
sadece farklı boyutlardaki iki sütundan oluşan bir dizide arama ve birleştirme
fonksiyonlarının nasıl çalıştığı ile ilgili fikir edinmek istemiştim.Çünkü sürekli kullanacağım metodlar olacak bu iki fonksiyon.

Syn Muygun, verdiğiniz örneği inceleyip çözmem zaman aldı biraz, ama anladım, farkında olmadan zor bir soru sormuşum galiba tek bir hamleyle çözüleceğini
sanıyordum, zamanınızı ve emeğinizi harcadınız çok teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajıma örnek dosya eklenmiştir. İncelermisiniz.

 

[delphoi]

Korhan Bey,

Verdiğiniz örnekle kodun nasıl çalıştığını daha iyi anladım.

Müthiş bir çalışma emeğinize sağlık.

Teşekkür ederim.