Sub SayfalariAyir()
Dim ws As Worksheet
Dim i As Integer
Dim hedefKlasor As String
hedefKlasor = ThisWorkbook.Path & "\"
For Each ws In ThisWorkbook.Sheets
sayfaAdi = ws.Name
dosyaAdi = hedefKlasor & sayfaAdi & ".xlsx"
Sheets(sayfaAdi).Copy
ActiveWorkbook.SaveAs dosyaAdi
ActiveWorkbook.Close False
Next ws
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.