Çözüldü farklı sekmelerden sekmedeki hücre sayısı kadar kopyala yapıştır yapmak

[blacxtar]

Merhaba,

ekteki dosyaya istinaden.

yapmak istediğim şey, FİRMA NO sekmesinden her firma numarasını SKU sekmesindeki dolu satır sayısı kadar ANA VERİ sekmesine kopyalamak ve daha sonrasında SKU sekmesindeki tüm sku sayılarını her firma numarasına kopyala yapıştır yapmak. Ekli dosyadada örneği bulunmakta , umarım anlatabilmişimdir.

Değerli desteklerinizi rica ederim.

 

[blacxtar]

Alttaki kodu deneyin.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Buda mükemmel çalıştı eline sağlık

sadece yazmayı unutmuşum anaveri sekmesindeki A'dan E'ye tüm dolu olan satırların kopyalanmasınıda sağlayabilirmiyiz.

ThisWorkbook.Sheets("ana veri").Copy

birde SpecialFolders("Desktop") & Application.PathSeparator & _

bu koddaki desktop yerine desktopta örneğin abc isimli klasörün içine kopyalatabilirmiyiz.

 

[blacxtar]

Kullanılan eğer formülünün mantığını anladım sadece 2 kodun birleşmesi kısmi soru işaretli,
başlangıçta veri sayfası boş olacak oraya veriler kodla aktarılacak dolayısıyla H sütunu da boş olacak diye düşünmüştüm

aslında ben eğer ve düşey arayı birleştirerek bir mantık kurmuştum anaveri sayfasındaki "B" sütünundaki veriyi Raf ömrü d sütünundaki veri ile match ediyor bulduktan sonra eğer "ana veri" sekmesindeki H sütünunda örneğin M1 varsa Raf ömrü sekmesindeki 15. kolona giderek sorgulaa yapıyor eğer M2 ise 17. kolona gidiyor bu şekilde sürekli sıralıyor.

Sağolsun Refaz kardeşim beni tüm formul yığınından ve dosya şişkinliğinden kurtardı Allah razı olsun.

 

[Refaz]

bu koddaki desktop yerine desktopta örneğin abc isimli klasörün içine kopyalatabilirmiyiz

Rica ederim.

excelAd bunu silip alttakini ekleyin.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

yani alttaki gibi olmalı normalde yanlışlık yoksa tabii abc klasör yoksa hata verir bunun için koda klasör ekletme eklenebilir.Yaparsam onuda ekleyeyim.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Buda mükemmel çalıştı eline sağlık

sadece yazmayı unutmuşum anaveri sekmesindeki A'dan E'ye tüm dolu olan satırların kopyalanmasınıda sağlayabilirmiyiz.

ThisWorkbook.Sheets("ana veri").Copy

birde SpecialFolders("Desktop") & Application.PathSeparator & _

bu koddaki desktop yerine desktopta örneğin abc isimli klasörün içine kopyalatabilirmiyiz.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[blacxtar]

Rica ederim.

excelAd bunu silip alttakini ekleyin.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

yani alttaki gibi olmalı normalde yanlışlık yoksa tabii abc klasör yoksa hata verir bunun için koda klasör ekletme eklenebilir.Yaparsam onuda ekleyeyim.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Malesef bu sefer olmadı

 

[Refaz]

Malesef bu sefer olmadı

24.Mesajdakini deneyin abey.

 

[blacxtar]

24.Mesajdakini deneyin abey.

Süper bu oldu kardeşim hakkını helal et dosyam biçimlendi sayende birde 21.mesajda bahsettiğim Kopyalamadan önce anaveri sekmesindeki sadece A sütünundan E sütünuna kadar içi dolu satırları kopyalayarak dosyaya atması artık bu son vallahi

 

[Refaz]

Helal olsun abey.Kodu deneyin.
Olumlu olursa sizin için dosyanın son halinide eklerseniz düzenli olur.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[blacxtar]

Helal olsun abey.Kodu deneyin.
Olumlu olursa sizin için dosyanın son halinide eklerseniz düzenli olur.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Kardeşim çok sağol hepsi dosyama uydu ve tam istediğim gibi oldu.

Senden aldığım kodları hep diğer bir dosyaya uyarladım.

Bir firmaya ait olduğu için burada paylaşamıyorum fakat ilk başta paylaştığım veri dosyası üzerinden bir örnek oluşturup buraya atmaya çalışacağım.

Tekrar emeğin iiçin teşekkürler.

 

[Refaz]

Kardeşim çok sağol hepsi dosyama uydu ve tam istediğim gibi oldu.

Senden aldığım kodları hep diğer bir dosyaya uyarladım.

Bir firmaya ait olduğu için burada paylaşamıyorum fakat ilk başta paylaştığım veri dosyası üzerinden bir örnek oluşturup buraya atmaya çalışacağım.

Tekrar emeğin iiçin teşekkürler.

Rica ederim abey.
Kolay gelsin.

 

[Refaz]

Bu arada makrosuz formatta kaydetsin iserseniz excelAd = "Ana veri ismi.xlsx"

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.