Aynı Şablonu Listedeki Bütün Mağazalara Yapıştırma

[sezgingultekin]

Merhaba,
Elimde 2 dosya bulunmaktadır. Birisi ürün adı dosyası, diğeri mağaza adları dosyası. Mağaza adı dosyasında 654 mağaza bulunmaktadır. Ürün dosyasında ise 75 ürün bulunmaktadır. Benim sizlerden ricam her bir mağazanın yanına belirlemiş olduğum 75 ürünün yapıştırma yöntemini bana söylemeniz. Mağazaların yanına manuel olarak yapıştırmaya kalktığımda 654 kez ayrı ayrı mağazaların yanındaki sütuna yapıştırdığımda çok uzun sürmektedir. Kısa yolunu bilen varsa lütfen yardımcı olursa çok sevinirim. Şimdiden çok teşekkür ederim.

 

[Tevfik_Kursun]

Merhaba,
Küçük bir örnek yapın. Uygun bir makro yazılır. Dosya yapınız bilinmeden kolay değil diye düşünüyorum.
İyi çalışmalar

 

[sezgingultekin]

Merhaba,
Küçük bir örnek yapın. Uygun bir makro yazılır. Dosya yapınız bilinmeden kolay değil diye düşünüyorum.
İyi çalışmalar

örnek.xlsx - 10 KB

Yardımcı olursanız gerçekten çok sevinirim

 

[veyselemre]

Sayfa1 e listenizi oluşturacaktır.

Sub test()
    With Sheets("Mağaza Adı")
        list1 = .Range("A2:A" & .Cells(Rows.Count, 1).End(3).Row).Value
    End With
    With Sheets("Ürün Adı")
        list2 = .Range("A2:A" & .Cells(Rows.Count, 1).End(3).Row).Value
    End With
    uz = UBound(list2)
    With Sheets("Sayfa1")
        sat = 2
        For i = 1 To UBound(list1)
            .Cells(sat, 1).Resize(uz, 1).Value = list1(i, 1)
            .Cells(sat, 2).Resize(uz, 1).Value = list2
            sat = sat + uz
        Next i
    End With
End Sub

 

[sezgingultekin]

Sayfa1 e listenizi oluşturacaktır.

Sub test()
    With Sheets("Mağaza Adı")
        list1 = .Range("A2:A" & .Cells(Rows.Count, 1).End(3).Row).Value
    End With
    With Sheets("Ürün Adı")
        list2 = .Range("A2:A" & .Cells(Rows.Count, 1).End(3).Row).Value
    End With
    uz = UBound(list2)
    With Sheets("Sayfa1")
        sat = 2
        For i = 1 To UBound(list1)
            .Cells(sat, 1).Resize(uz, 1).Value = list1(i, 1)
            .Cells(sat, 2).Resize(uz, 1).Value = list2
            sat = sat + uz
        Next i
    End With
End Sub

Veysel Bey deneyip hemen dönüş yapacağım. Çok teşekkür ederim

 

[sezgingultekin]

Sayfa1 e listenizi oluşturacaktır.

Sub test()
    With Sheets("Mağaza Adı")
        list1 = .Range("A2:A" & .Cells(Rows.Count, 1).End(3).Row).Value
    End With
    With Sheets("Ürün Adı")
        list2 = .Range("A2:A" & .Cells(Rows.Count, 1).End(3).Row).Value
    End With
    uz = UBound(list2)
    With Sheets("Sayfa1")
        sat = 2
        For i = 1 To UBound(list1)
            .Cells(sat, 1).Resize(uz, 1).Value = list1(i, 1)
            .Cells(sat, 2).Resize(uz, 1).Value = list2
            sat = sat + uz
        Next i
    End With
End Sub

Veysel Bey, size çoook ama çoook teşekkür ederim. Tamda istediğim gibi Allah razı olsun sizden