Çö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.

 

[Adnan]

348500 firması için ilk satır 300 ise sku sayfasına 300 satır 348500 mü yazılacak bu firma için toplamda 5660 satır

 

[Refaz]

Merhaba.
Bir modüle ekleyip deneyin.

HTML:

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

 

[halily]

dosyanızı makro çalıştırabilen excel dosyası - xlsm, xlsb gibi- olarak kaydederseniz aşağıdaki kodu da kullanabilirsiniz
HTML:

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

 

[halily]

yada
HTML:

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

 

[blacxtar]

Hepinize sonsuz teşekkürler. tüm hepsi istediğim soncuu verdi. dosyada tek bir güncellemem kaldı onun içinde yardımcı olursanız çok sevinirim.

=EĞER(H2="M1";DÜŞEYARA(B2;'Raf Ömrü'!$D$3:$AD$391;15;YANLIŞ);EĞER(H2="M2";DÜŞEYARA(B2;'Raf Ömrü'!$D$3:$AD$391;17;YANLIŞ);EĞER(H2="M3";DÜŞEYARA(B2;'Raf Ömrü'!$D$3:$AD$391;17;YANLIŞ)-1;EĞER(H2="M4";DÜŞEYARA(B2;'Raf Ömrü'!$D$3:$AD$391;17;YANLIŞ)-2;EĞER(H2="C1";DÜŞEYARA(B2;'Raf Ömrü'!$D$3:$AD$391;19;YANLIŞ);EĞER(H2="C2";DÜŞEYARA(B2;'Raf Ömrü'!$D$3:$AD$391;21;YANLIŞ);EĞER(H2="C3";DÜŞEYARA(B2;'Raf Ömrü'!$D$3:$AD$391;21;YANLIŞ)-1;EĞER(H2="C4";DÜŞEYARA(B2;'Raf Ömrü'!$D$3:$AD$391;21;YANLIŞ)-2;EĞER(H2="D1";DÜŞEYARA(B2;'Raf Ömrü'!$D$3:$AD$391;23;YANLIŞ);EĞER(H2="D2";DÜŞEYARA(B2;'Raf Ömrü'!$D$3:$AD$391;25;YANLIŞ);EĞER(H2="D3";DÜŞEYARA(B2;'Raf Ömrü'!$D$3:$AD$391;25;YANLIŞ)-1;EĞER(H2="D4";DÜŞEYARA(B2;'Raf Ömrü'!$D$3:$AD$391;25;YANLIŞ)-2))))))))))))

yukarıdaki excel formulunu

aslında hepsi kullanılabilir durumda fakat örnek vermek gerekirse

bu kodun içerisinde macro olarak nasıl çalıştırabilirim.

Sub Aktar()
Dim say As Long, i As Long
Dim syfSku As Worksheet, syfFirma As Worksheet

Set syfSku = ThisWorkbook.Sheets("sku")
Set syfFirma = ThisWorkbook.Sheets("firma no")

With ThisWorkbook.Sheets("ana veri")
say = WorksheetFunction.CountA(syfSku.Range("A2:A" & Rows.Count))
.Range("A2:B" & Rows.Count).Clear

If say = 0 Or WorksheetFunction.CountA(syfFirma.Range("A:A")) = 0 Then
MsgBox "Aktarma basarisiz.", vbCritical, "Hata"
Exit Sub
End If

For i = 1 To syfFirma.Cells(Rows.Count, 1).End(3).Row
.Range("A" & Rows.Count).End(3).Offset(1).Resize(say, 1).Value = syfFirma.Cells(i, "a").Value
.Range("B" & Rows.Count).End(3).Offset(1).Resize(say, 1).Value = syfSku.Cells(2, "a").Resize(say).Value
Next
End With
MsgBox "Tamam"
End Sub

 

[Refaz]

Rica ederiz ama dosya ekleseniz daha iyi olur.

Örnek için alttaki kodu çalıştırın formül hangi sayfadaysa ve koda eklemeler yaparsınız.
Sonuç olumlu ise koda eklenir.
"Sonuc" yerine sayfa adını yazınız formül olan.

HTML:

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

 

[blacxtar]

ben sanırım yukarıda anlatmayı beceremedim

dosyada anlattım ama inşallah anlatabilmişimdir.

 

[Refaz]

Formülünüzü makro kaydet ile aldım ve düzenledim biraz.
Resimdeki yere yapıştırın.

HTML:

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

 

[Refaz]

Yada select case ile yapılanı alttaki gibi deneyin.Ve gerisini tamamlayın şartların.

HTML:

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

 

[Refaz]

Yada önceki yavaş olursa alttakini deneyin.

HTML:

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

 

[halily]

Refaz hocam ben mi yanlış anladım bilemedim ama 2 kodu birleştirmek nasıl mümkün olabilir ki?
ilk kod zaten ana veri sayfasına veri yükleyen kod ve bu kod H sütunundaki verileri içermiyor.
bu nedenle de 2 kod birleştirilemez gibime geliyor!

 

[blacxtar]

Yada önceki yavaş olursa alttakini deneyin.

HTML:

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

Çok teşekkürler süper hızlı ve uyum sağladı dosyaya Allah razı olsun. Siz yaptıkca ufkum genişliyorda birşey daha rica edebilirmiyim.

aynı formmulun çalıştığı dosyada sadece "Ana veri" sekmesini Dosyaya "Ana veri ismi" vererek tek bir sekme halinde farklı bir dosya olarak dışarıya(Masa üstüne) kaydedebilirmiyiz?

 

[Refaz]

Çok teşekkürler süper hızlı ve uyum sağladı dosyaya Allah razı olsun. Siz yaptıkca ufkum genişliyorda birşey daha rica edebilirmiyim.

aynı formmulun çalıştığı dosyada sadece "Ana veri" sekmesini Dosyaya "Ana veri ismi" vererek tek bir sekme halinde farklı bir dosya olarak dışarıya(Masa üstüne) kaydedebilirmiyiz?

Rica ederim,sizdende.
Bugün hallederim inşAllah.

 

[Refaz]

Refaz hocam ben mi yanlış anladım bilemedim ama 2 kodu birleştirmek nasıl mümkün olabilir ki?
ilk kod zaten ana veri sayfasına veri yükleyen kod ve bu kod H sütunundaki verileri içermiyor.
bu nedenle de 2 kod birleştirilemez gibime geliyor!

Abey sadece düşeyara olarak düşünebilirsiniz ve sadece bir veri arıyor sanıyorum b stunundakiydi.

 

[Refaz]

Refaz hocam ben mi yanlış anladım bilemedim ama 2 kodu birleştirmek nasıl mümkün olabilir ki?
ilk kod zaten ana veri sayfasına veri yükleyen kod ve bu kod H sütunundaki verileri içermiyor.
bu nedenle de 2 kod birleştirilemez gibime geliyor!

Şimdi pc açtım şöyle anlatayım abey.Döngüye sokunca eğer H2 deki M1 ise B2 deki aranıyor Raf Ömrü sayfasının D sütununda.
Varsa varsa Raf Ömürü sayfasının D sütunundan 15.sütun değeri getiriliyor aynı şekilde H2 deki M2 ise aynı durum abey.

syf.Range("D3:AD" & Rows.Count) burda D den başladığı için D de arıyor ve D den itiberen 15.stütunbulunuyor.Dediğim gibi sadece düşeyara kodu diğerleri şart kodu.
Yani D3:AD için 15 sütun R sütunu oluyor.

 

[Refaz]

Çok teşekkürler süper hızlı ve uyum sağladı dosyaya Allah razı olsun. Siz yaptıkca ufkum genişliyorda birşey daha rica edebilirmiyim.

aynı formmulun çalıştığı dosyada sadece "Ana veri" sekmesini Dosyaya "Ana veri ismi" vererek tek bir sekme halinde farklı bir dosya olarak dışarıya(Masa üstüne) kaydedebilirmiyiz?

Alttaki kodu deneyin.

HTML:

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

 

[halily]

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

 

[Refaz]

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

Evet abey bu durumda iş karıştı heralde Ben H sütunları dolu görünce öyle yaptım.
Bir daha bakayım belki değişir kod.

 

[Refaz]

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

Neyse abey başka olmuyor heralde kod çalışmadan önce H sütunu dolduruluyor.
Başka türlü oluyorsa üstad yorum yazar heralde.