excel dosyasını böldürme

[Karanlik1]

Arkadaşlar ekteki dosyayı "g kodu"na göre böldürmek istiyorum. Yani "g kodu" aynı olan satırlarla 1.satırı kopyalayacak, başka bi sayfaya kopyalacak ve o dosyaya "g kodu" neyse o adı verip kaydedecek. Ben elle yaparken bi macro kaydettim belki yardımcı olacak arkadaşlara yarar.

Şimdiden çok saolun yardımlarınız için...

    Range("22:22,1:1").Select
    Range("A1").Activate
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Documents and Settings\user\Desktop\MAIL\134.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWindow.Close

 

[Karanlik1]

Teşekkür ederim arkadaşlar, yapabildim sonunda...