Tabloları birleştirme makrosu

[kaydina]

Merhaba arkadaşlar iki tablom var birinde ürünlerim diğerinde renklerim var. İSteğim ürünler tablomdaki ürünleri renkler tablomda ki renk adeti kadar çoğaltmak. Örnek olarak ürünler ilk kolonda a1 yazsın renklerde ki tüm renk kadar birleştirme işlemi. A1 mavi , A1 sarı gibi. Örnek dosyayı ekliyorum https://yadi.sk/i/WA_Ti7Yg3SR5VR

 

[alicimri]

Sayfa3'de verileri birleştiriyor.

Sub Makro1()
say = Sheets("Sayfa2").Cells(Rows.Count, "A").End(3).Row
say1 = Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row
For i = 2 To say1
say2 = Sheets("Sayfa3").Cells(Rows.Count, "A").End(3).Row
Sheets("Sayfa3").Range("A" & say2 + 1 & ":A" & (say2 + say) - 1).Formula = "=Sayfa1!$a$" & i & "&"" "" &Sayfa2!a2"
Next
Sheets("Sayfa3").Columns(1).Copy
Sheets("Sayfa3").Columns(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

 

[kaydina]

Merhaba Üstad öncelikle cevabınız için teşekkür ederim. Gönderdiğiniz kodları visual basic de açtığımda Run time Error : 9 Subscript out of range hatası alıyorum sanırım bir aşamada hata yapıyorum

hatanın resmi https://yadi.sk/i/72FlBNsq3STDBN

 

[alicimri]

http://s7.dosya.tc/server3/tiud09/urun_renk.xls.html
Kodları, Sayfa2'nin modülüne yapıştırmışsınız, yeni boş modül "insert" ekleyerek kodları ona yapıştırın, bir de yukardaki linkten dosyayı indirip deneyin