Sayfaları Kaydetmek

[hlojan]

Merhaba;

belirli sayfaları ayrı çalışma kitabı olarak kaydetmek istiyorum

Örnek :

Çalışma Kitabımda ( A-B-C ) sayfaları var.

Ben makro ile B-C sayfalarını belirli bir isimle kaydetmek istiyorum

Yardımlarınızı bekliyorum

 

[askm]

Aşağıdaki kodları deneyin.

Sub Askm_Sayfalari_Kaydet()
yol = ThisWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim Syf As Worksheet
Dim SayfaAd As String

For Each Syf In Worksheets
If Syf.Name <> "Anasayfa" Then
ad = Syf.Name
Syf.Copy
If Val(Application.Version) > 11 Then
ActiveWorkbook.SaveAs Filename:=yol & "\" & ad & ".xls", FileFormat:=xlExcel8
Else
ActiveWorkbook.SaveAs Filename:=yol & "\" & ad & ".xls"

End If
ActiveWorkbook.Close True
End If

Next

Application.ScreenUpdating = True
End Sub