filtrele aktar (aynı anda üç ayrı sutunda)

[muhammedmert]

sayın hocalarım ekteki örneği yine Excel Forumdan indirdim ancak acemilkten gönderen arkadaşın nikini alamadım yeniden de bulamadım.
eklentideki dosyada yalnızca "c " sütununa göre filtreleme yapıp sütündaki verilerin adıyla yeni sayfalar oluşturup verileri kenid adıyla olan sayfaya atmakta.
ben tahmini 70 sutundan oluşan ve 4-5 bin satırdan oluşan bir veri tabanı oluşturmak istiyorum. bu veri tabanındaki bilgileri de aynı anda " A" , " B" ve " C " sütunlarına göre filtreleyip sütündaki veri ile aynı isimde dosya açıp bilgileri bu sayfalara atmasını istiyorum. örneği inceleyip bana yardımcı olursanız sevinirim. Örneği hazırlayan arkadaşımızda eğer görürse ondna ayrıca özür diliyorum.

 

[baba_karabatak]

Set wsNew = Sheets.Add
wsNew.Move After:=Worksheets(Worksheets.Count)
wsNew.Name = c.Value
orada ismi olamayan bir banka ismi yaz yeni banka oluşturacaktır. yukardaki kod bunu yapıyor