Bölerek Kaydetme

[sert_unsuz]

Merhaba.
Şöyle bir şey mümkünmüdür?
Ekte gönderdiğim excelde 2 kolondaki il isimlerine göre fonksiyon exceli o isimlere göre bölecek ve farklı şekilde kaydedecek.
Yani Ankara isminde bi excel oluşturacak ve içinde sadece 2.kolonda Ankara yazan kayıtlar olacak.
Şimdiden teşekkür ederim

 

[mustafaine1]

 Columns("A:B").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$B$115").AutoFilter Field:=2, Criteria1:="Ankara"
    Range("A:B").Select
    Selection.Copy
    Sheets("Sayfa2").Select
    Columns("A:B").Select
    ActiveSheet.Paste
    Columns("A:A").EntireColumn.AutoFit
    Sheets("Sayfa2").Select
    Application.CutCopyMode = False
    Sheets("Sayfa2").Copy
    ActiveWorkbook.SaveAs Filename:=("C:\Documents and Settings\[B]kullanici adin[/B]\Desktop\" & "Ankara" & " .xls")

ankaralari listelemek icin bu sekilde yazabilirsin ama bu sekilde her kriter icin ayri makro calistirmak zorunda kalicaksin.. Criteria1`i bi turlu atamak lazim yardimci olucak ustalar varsa kodun uzerinde sana yardimci olabilir sanirim ben atayamadim bir turlu atasamda kayitta sorun verdi kolay gelsin

 

[sert_unsuz]

Teşekkür ederim.
Sayın ustalardan varmı bi öneri acaba ?