Bir Sonraki Sutunun Ikinci Hucresine Yapistirmak

[thegreen]

Selam arkadaslar,

Makro ile kopyala yapistir yapmak istiyorum, elimde 2 sayfa var , birinci sayfanin adi VBA MACRO ve ikinci sayfanin adi PRODUCTS diye.
VBA MACRO sayfasinda A sutununda 1`den 1000`e kadar listelenmis urunler var, B sutununda ise bunlara karsilik gelen sayilar var.
Benim yapmak istedigim bir makro yardimi ile sadece B sutununda olan sayilari, diger PRODUCTS olan sayfadaki bir sonraki bos sutunun ikinci hucresine yapistirmak.
Gunluk guncellenen bir envanter takip sistemidir, bu yuzden her zaman bir sonraki bos sutunun ikinci hucresine yapistirilmasi gerekiyor.

Saygilar.

 

[thegreen]

?

 

[thegreen]

yardimci olabilecek arkadaslar var mi acaba?

 

[ÖmerFaruk]

Yapmak istediğinizi 1000 satır yerine 5 satır için örnek bir dosya hazırlayarak, almak istediğiniz sonucu da manuel olarak dosyanıza işleyerek dosyayı paylaşırsanız hem sorunuz daha iyi anlaşılacak hem de çabucak çözüm bulabileceksiniz.

 

[thegreen]

Ornek dosyayi linkten indirebilirsiniz, yardimci olabilirseniz cok sevinirim.

 

[thegreen]

https://easyupload.io/m331wv

 

[ÖmerFaruk]

Aşağıdaki kodu kullanabilirsiniz.

Sub Kopyala()
Sütun = Worksheets("PRODUCTS").Range("A2").End(xlToRight).Column
SonSatır = Worksheets("VBA MACRO").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("VBA MACRO").Range("B2:B" & SonSatır).Copy Worksheets("PRODUCTS").Cells(2, Sütun + 1)
End Sub

 

[thegreen]

Cok ama cok tesekkur ederim.