Excelde çalışma sayfalarını ismi ile ayrı ayrı kaydetme

[velicosgun]

Arkadaşlar basit bir konu olduğunu düşünüyorum ama bir türlü bulamıyorum,
Ben öğrenmek istediğim şu;
içinde çok fazla çalışma sayfası olan (50) bir excel dosmız var,her bir çalışma sayfası kendi ismi ile farlı kaydetmek istiyorum,
nasıl yapabilirim,
Teşekkür Ederim

 

[security]

Arkadaşlar basit bir konu olduğunu düşünüyorum ama bir türlü bulamıyorum,
Ben öğrenmek istediğim şu;
içinde çok fazla çalışma sayfası olan (50) bir excel dosmız var,her bir çalışma sayfası kendi ismi ile farlı kaydetmek istiyorum,
nasıl yapabilirim,
Teşekkür Ederim

Sub security()
'Coder By Security 2012
'Sayfaları Çalışma Kitabı Yap
On Error Resume Next
Dim security As String
security = "Kaynak Dosyaları İçeren Klasörü Seçin"
Set Obj = CreateObject("shell.application")
Set Klasor = Obj.BrowseForFolder(0, security, 50, &H0)
Kaynak = Klasor.items.Item.Path
If Len(Kaynak) = 3 Then
Kaynak = Mid(Kaynak, 1, 2)
Else
Kaynak = Kaynak
End If
If Not Klasor Is Nothing Then
If InStr(1, Kaynak, "{") > 0 Then GoTo Atla
On Error Resume Next
Dim sayfa As Worksheet
For Each sayfa In Worksheets
sayfa.Copy
ActiveWorkbook.SaveAs Kaynak & "\" & sayfa.Name & ".xls"
[COLOR=red]MsgBox Kaynak & "\" & sayfa.Name & ".xls"[/COLOR]
ActiveWorkbook.Close False
Next sayfa
Else
Atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If
End Sub

Mesajla göstermesini istemeseniz, Kırmızı yazılı olan kısmı silin...

 

[Murat OSMA]

Şu kodlarda işinize yarayabilir;

Tüm sayfaları C:\yedek\ klasörü içine kaydeder....

[SIZE="2"]Sub BreakItUp()
    Dim sht As Worksheet
    Dim NFName As String
    Const WBPath = "C:\yedek\"
    For Each sht In ActiveWorkbook.Worksheets
    sht.Copy
    sht.Cells.Copy
    Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)
    Range("A1").Select
    Application.CutCopyMode = False
    NFName = WBPath & sht.Name & ".xls"
    ActiveWorkbook.SaveAs Filename:=NFName, _
    FileFormat:=xlNormal, CreateBackup:=False
    ActiveWindow.Close
    Next
End Sub[/SIZE]

 

[c_set]

ah bide şu kodları nasıl kullanıldıgını bi bilsem varya şhow yapacamda neyse .)))

 

[Murat OSMA]

Gerçekten öğrenme isteği ve buna bağlı olarak zaman ayırmak gerekiyor.

 

[velicosgun]

Teşekkür ederim ,deneyip sonuçları yazacağım

 

[betber]

harika elinize sağlık

 

[nane]

Güzel ve gerekli uygulama
Teşekkürler
Yb®