Bazı projeler için Excel dosyası içinde yer alan sekmeleri ayrı birer Excel dosyasına dönüştürmek gerekebiliyor.
Bu gibi durumlarda makro bizim için tek çözüm noktası oluyor. Çünkü onlarca hatta yüzlerce sekmenin manuel bir şekilde yapılması zaman yönetimi açısından hiç elverişli değildir.
Aşağıdaki kodlar bu sorununuzu çözecektir.
Faydalı olması dileğiyle…
Sub sekme_to_xlsx() Dim path As String path = "C:\Desktop" 'ayrılan dosyaları aktarmak istediğiniz path. Application.ScreenUpdating = False Application.DisplayAlerts = False For Each sekme In ThisWorkbook.Sheets sekme.Copy Application.ActiveWorkbook.SaveAs Filename:=path & "\" & sekme.Name & ".xlsx" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
