ChatGPT ile Her Sayfayı Ayrı Bir Dosya Haline Getirme

Bir Excel dosyasının her sayfasını ayrı bir dosya olarak kaydetmek için aşağıdaki adımları izlemeniz gerekir. 

C sürücüsünde EGE isminde bir klasör oluşturun.

Bunu başka bir isimde de oluşturabilirsiniz. ChatGTP ekranında yazdığınız promptta bunu belirtmeniz gerekir. 

ChatGPT ekranında geçiş yapın ve ChatGTP prompt kısmına

“C sürücüsünde EGE isminde bir klasörüm var bir excel dosyasındaki her sayfayı ayrı bir excel dosyayı olarak c sürücüsündeki ege klasörüne kaydeden vba kodlarını yazar mısın.” şeklinde bir prompt yazın.,

Karşınıza gelen mesaj penceresindeki kodu kopyalayın ve aşağıdaki adımları izleyin.

1. Her bir sayfasını dosya olarak kaydetmek istediğiniz Excel dosyanızı açın. 
2. Geliştirici Sekmesine geçin Visual Basic düğmesine tıklayın. Geliştirici sekmesini görmüyorsanız Dosya-Seçenekler-Şeridi Özelleştir düğmesine basın ve sağ taraftan Geliştirici seçeneğini işaretleyin. 

• Geliştirici sekmesine geçin ve en solda yer alan Visual Basic düğmesine basın. Bu, VBA kodunu yapıştıracağımız pencereyi açar. 
• Insert menüsünden yararlanarak Module seçeneğini seçin. 
• ChatGPT ekranından aldığınız aşağıdaki kodu direk bu ekrana yapıştırın.

Sub HerSayfayiAyriDosyaOlarakKaydet()
    Dim ws As Worksheet
    Dim wb As Workbook
    Dim folderPath As String

    ‘ Kaydetmek istediğiniz klasör yolunu belirtin
    folderPath = “C:\EGE\”

    ‘ Klasörün mevcut olup olmadığını kontrol edin, yoksa oluşturun
    If Dir(folderPath, vbDirectory) = “” Then
        MkDir folderPath
    End If

    Application.ScreenUpdating = False

    ‘ Her çalışma sayfasını döngüye alın
    For Each ws In ThisWorkbook.Sheets
        ‘ Yeni bir çalışma kitabı oluşturun ve sayfayı kopyalayın
        Set wb = Workbooks.Add
        ws.Copy Before:=wb.Sheets(1)
        ‘ Yeni çalışma kitabını kaydedin ve kapatın
        wb.SaveAs folderPath & ws.Name & “.xlsx”
        wb.Close SaveChanges:=False
    Next ws

    Application.ScreenUpdating = True
End Sub

Bu kodu module penceresine yapıştırdıktan sonra ekranda yer alan Excel simgesine basarak Excel sayfanıza geri dönün.ve Makrolar düğmesine basın ve Çalıştır düğmesine basın. Herbir sayfanın C sürücüsünde EGE isimli klasöre dosya olarak kaydedildiğini görürsünüz. 

Kodunuz her çalışma sayfasını ayrı bir Excel dosyası olarak “C:\EGE” klasörüne kaydedecektir. Dosyaların kaydedildiğini kontrol etmek için “C:\EGE” klasörünü açabilirsiniz.