Sayfadan sayfaya, yinelenen değerleri süzerek, alfabetik sırayla veri taşıma

[akyyuc]

Arkadaşlar merhaba,
Excelde birçok şeyi yapabiliyorum ancak sistem kilitleniyor formüllerle, bu yüzden 50 yaşımda makro öğrenmeye karar verdim. Ancak bu konuda son derece cahilim. Sorabileceğim ve size aptalca gelebilecek sorular için önceden özür diliyorum. Bilgi paylaşıldıkça değer kazanır ümidiyle, gerek bu konuda ve gerekse sonrasında sizi sürekli rahatsız edeceğimi dikkate alarak yardımlarınızı bekliyorum.
Hepinize kolaylıklar dilerim...

 

[Korhan Ayhan]

Merhaba,

Özür dilemenize gerek yok. Hepimiz burada sürekli yeni bir şeyler öğreniyoruz. Öğrenmenin yaşı yok.

Forum kurallarına uygun olduğu sürece dilediğiniz kadar soru sorabilirsiniz. Gerçi forumumuzda oldukça geniş bir arşiv var. Arama yaparsanız birçok sorunuza yanıt bulabilirsiniz.

Aşağıdaki kod "Sayfa1" isimli sayfanın "A" sütunundaki verileri istediğiniz şekilde "Sayfa2" isimli sayfanın "A" sütununa listeler.

Sub Benzersiz_Alfabetik_Liste()
    Dim S1 As Worksheet, S2 As Worksheet
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    S2.Range("A:A").Clear
    S1.Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=S1.Range("Z1"), Unique:=True
    S1.Range("Z:Z").Cut S2.Range("A1")
    S2.Range("A2:A" & S2.Rows.Count).Sort S2.Range("A1"), xlAscending
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[akyyuc]

Korhan Bey çok teşekkürler...

İşin sistematiğini öğrenene kadar konu başlıklarından çok fazla yararlanamayacağım sanırım... Çabuk öğrenirim ama önce bu matematiği çözmem lazım...

Sayfa aktarımı oldu sayenizde... şimdi biraz daha detay rica ediyorum sizden...

Şöyle ki;

Öncelikle bu aktarımın, sayfa1 'e her yeni liste yapıştırdığımda, sayfa2 'de otomatik olarak algılanmasını ve işlemesini arzu ediyorum.
Öte yandan; sayfa1 ilk satırda ama herhangi bir sütunda yer alan "ürün adı" başlıklı sütunun baz alınarak filtrelenmesi ve alfabetik sıralanması ve diğer sütunlardaki tüm bilgilerin de bu ana sütun referans alınarak eşleşmesini hedefliyorum. Bu mümkün müdür?

 

[Korhan Ayhan]

Merhaba,

Son istekleriniz için örnek dosya eklerseniz nokta atışı yapabiliriz. Yoksa konu gereksiz yere uzayabilir.

Paylaşım sitelerine dosyanızı yükleyip link verebilirsiniz.

 

[akyyuc]

Merhaba Koray Bey,

Ekte göndermeye çalıştım ancak gönderi limitiniz yeterli olmadı. Dosyanın boyutu 7,2 mb. Size iletmemin başka bir yolu varsa lütfen yönlendiriniz.

Dediğim üzere, bu konuyu excel ile hallettim zaten. Ancak, makro ile daha hızlı ve daha az formülle yapılabilmesi durumu söz konusu ise onu öğrenmek peşindeyim. Çünkü ekteki dosya, kurguladığım sistematiğin sadece başlangıcı ve diğer çalışma kitapları da işe dahil olunca hesaplama hızı yarım saati buluyor.

Daha ilk sayfada yaklaşık 250 bin hücreyi kapsayan bir formül ağından söz ediyoruz.

"STOK GİRİŞ" sayfasına farklı zamanlarda yeni stok verilerini ana sistemden alıp yapıştıracağız. Bu yüzden, diğer sayfaların her daim bu yeni bilgi girişini referans alarak çalışması gerekiyor, şu anda olduğu gibi.Ve zaman zaman ana sistemdeki sütunlar yer değiştirebildiğinden, sütun başlıklarını dikkate alan bir hesaplama gerekliliği söz konusu.

Yardımcı olursanız memnun olurum

İyi çalışmalar dilerim...

 

[vardar07]

Merhaba Koray Bey,
Ekte göndermeye çalıştım ancak gönderi limitiniz yeterli olmadı. Dosyanın boyutu 7,2 mb. Size iletmemin başka bir yolu varsa lütfen yönlendiriniz.

Merhaba. Dosyanızın yapısını bozmadan sadece örnek bir kaç satırlık vede sütunluk olarak hazırlayıp eklerseniz yeterlidir.

 

[Korhan Ayhan]

Paylaşım sitelerine yükleyip link verebilirsiniz.

 

[akyyuc]

Merhaba. Dosyanızın yapısını bozmadan sadece örnek bir kaç satırlık vede sütunluk olarak hazırlayıp eklerseniz yeterlidir.

Teşekkür ederim...

 

[akyyuc]

Dosyayı yükledim Korhan Bey,

http://s2.dosya.tc/server3/yrsvdo/ALFABETIK_SIRALAMA.xlsx.html

Teşekkür ederim...

 

[Korhan Ayhan]

Eklediğiniz dosyada yapılacak işlemleri adım adım açıklar mısınız?

 

[akyyuc]

Eklediğiniz dosyada yapılacak işlemleri adım adım açıklar mısınız?

Başka sıkıntılar vardı o yüzden geç cevap verdim özür dilerim... İlginize teşekkür ederim.