Süzülen Verileri Makroyla Grup Adıyla Dosyaya Kaydetme

[mertatakan3838]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Sayfa1 isimli çalışma sayfama makrolar sayesinde veri getirtiyorum. Getirttiğim verileri olduğu hali ile mevcut makro ile yaz isimli sayfama kopyalayıp oradan da masa üstündeki LİSTE isimli klasörüme taşıyorum. Taşıdığım sayfa, ismini Sayfa1 isimli sayfanın T8 hücresinden alıyor. Benim yapmak istediğim Sayfa1 ismli sayfaya getirttiğim verileri süzerek süzülmüş hali ile yaz isimli sayfaya oradan da LİSTE isimli klasöre T8 hücresinden ismini alarak taşımak istiyorum. Tabiki şuan ki yaptığım işi kısaltacak makro varsa oda olabilir yani doğrudan süzülmüş hali T8 hücresinden ismini alarak doğrudan masa üstündeki LİSTE isimli klasöre de kopyalayabiliriz. Yardımlarınız için şimdiden Teşekkürler Örneğin T8 hücresinde gruplar var. A grubunu süzdük diyelim. Bu hali ile T8 hüçresinden ismini alarak LİSTE isimli klasöre kopyalamak istiyorum. Tabiki son dolu satırı alacak şekilde kopyalayacak.

 

[mertatakan3838]

kullandığım makrolar

Bu kodu görmek için giriş yapmanız gerekmektedir (61 satır). Giriş Yap

 

[ExcelDepo]

Merhaba, Sayfa1'de süzme yapıldıktan sonra aşağıdaki makro yalnız görünen satırları başlık satırıyla birlikte yaz sayfasına aktarır, ardından yaz sayfasını masaüstündeki LİSTE klasörüne süzülen grubun adıyla kaydeder. Mevcut iki makronun yerine tek başına kullanılabilir.

Bu kodu görmek için giriş yapmanız gerekmektedir (37 satır). Giriş Yap

Makro nasıl çalışır?

1. A sütunundaki son görünen dolu satır bulunur; süzme uygulanmışsa yalnız süzülen satırlar dikkate alınır.
2. A8:T aralığındaki görünen satırlar SpecialCells(xlCellTypeVisible) ile alınır. Görünen satır yoksa uyarı verilir ve işlem durur.
3. Dosya adı, ilk görünen satırın T (GRUBU) hücresinden alınır; A grubu süzüldüğünde dosya A.xlsx olur. T8 hücresi süzme sırasında gizlenebildiği için ad doğrudan T8'den okunmaz.
4. yaz sayfası temizlenir; başlık satırı ve görünen satırlar biçim ve kenarlıklarıyla birlikte tek seferde kopyalanır, hücre hücre döngüye gerek kalmaz.
5. Masaüstündeki LİSTE klasörü yoksa oluşturulur. yaz sayfası yeni bir dosyaya kopyalanır ve grup adıyla .xlsx olarak kaydedilir; aynı adlı dosya varsa üzerine yazılır.

Notlar

• Süzme yapılmadan çalıştırılırsa tüm liste aktarılır ve dosya adı ilk satırın grubundan alınır (örnek dosyada B).
• Süzme T dışındaki bir sütunda yapılırsa dosya adı yine ilk görünen satırın grubundan alınır.
• Kaydedilen dosya tek sayfadan oluştuğu ve makro içermediği için .xlsx biçimi kullanılmıştır.
• Klasör yolu makro içinde belirlendiği için U1 hücresine yol yazdırmaya gerek kalmaz.