Filtreleme, Sonucu Masaüstüne Kaydetme, Tüm veriler için aynısını uygulama

[IsmailCem1]

Arkadaşlar,

Ekteki dosyada bulunan veriyi bölgelere göre filtreleyip sonrasında da filtrelenmiş seçeneği bölge adına göre ayrı ayrı
"Ege.xls", "Akdeniz.xls", "Karadeniz.xls" olarak masaüstüne kaydedebilen makro yazılımı konusunda yardımınıza ihtiyacım var. Makro kaydederek Office 2007'de bunu sağlayamadım.
VBA Code üzerinde de oynadım ancak uyumlu olmadı. Bu listeyi başka tablolarda da uygulamak istiyorum. Veriler örnek tabloma göre çok daha büyük, bölge sayısı da çok daha fazla, yüzlerce farklı bölge var. Farklı farklı tablolarda bu makroyu çalıştırmak istiyorum. Konuyla ilgili yardımlarınızı bekliyorum

 

[Hakantasal]

formda buna benzer cevaplar verilmiş bi inceleyiniz derim

http://www.excel.web.tr/f48/excel-dosyasyny-makro-ile-masaustune-kaydetme-t90112.html

 

[IsmailCem1]

Üzgünüm ama sorumun tamamını karşılayabilen bir çözüm bulunmamaktadır. Sadece masaüstüne kaydetme içeriği olan ya da sadece sorular içerisinde bulunan eklere özel çözümler geliştirilmiş. Benim talebim ise birçok tabloya uyarlanabilecek bir makro çözümüne dair.

Yine de ilginize teşekkür ederim.

formda buna benzer cevaplar verilmiş bi inceleyiniz derim

http://www.excel.web.tr/f48/excel-dosyasyny-makro-ile-masaustune-kaydetme-t90112.html

 

[IsmailCem1]

Makroyla buraya kadar getirebildim

Sub Makro1()
'
' Makro1 Makro
'

'
Selection.AutoFilter
Sheets("Sayfa2").Select
Range("A2").Select
ActiveCell.FormulaR1C1 = "Ege Bölgesi"
Sheets("Sayfa1").Select
ActiveSheet.Range("$A$1:$E$167").AutoFilter Field:=1, Criteria1:= _
"=Ege Bölgesi", Operator:=xlAnd
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Kitap1").Activate
ActiveSheet.Paste
Burada kırmızı ile belirtilen hücrelerde yeni bir excel sayfası açıp seçimi yapıştırmaya çalışıyorum.
Application.CutCopyMode = False
Range(Selection, Selection.End(xlDown)).Select
Columns("A:E").EntireColumn.AutoFit
Range("A1").Select
ChDir "C:\Documents and Settings\CO62571\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\CO62571\Desktop\Ege Bölgesi.xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
Range("A1").Select
Selection.AutoFilter
End Sub

--------------------------------------------------------------------------
Referans almak için yeni bir sayfa (Sayfa2) açtım. Sayfa 2'ye kopyaladığım bütün bölge isimlerine göre bu işlemi gerçekleştirmeye çalışıyorum. Yukarıda kırmızı ile belirttiğim kısım(kopyalanan hücrelerin yeni bir excel sayfası açıp seçimi yapıştırılması) ve sayfa 2'deki bütün bölgeler için yapılması için yazılacak kod kısmında takılıp kaldım.
--------------------------------------------------------------------------
Şimdiden teşekkürler