Çözüldü Kayıt Adresini Hücreden Alma

[cavanoos]

Merhaba;

Makro ile masaüstüne dosya kaydetmek istiyorum.
Excelde tanımlamalar sayfasında B1 hücresinde dosya kayıt kısayolu var.
Bu kısayolu kod içine yerleştirmek için gerekli kod konusunda yardımcı olur musunuz ?

 

[Necdet]

Merhaba,
Kodlar ChatGPT'den

Sub DosyaKaydet()
    Dim DosyaYolu As String
    
    ' Dosya yolu hücresinden değeri al
    DosyaYolu = Sheets("Kayıtlar").Range("B1").Value
    
    ' Dosya yolu kontrolü yap
    If Len(DosyaYolu) > 0 Then
        ' Aktif çalışma kitabını belirtilen yola kaydet
        ThisWorkbook.SaveAs DosyaYolu
    Else
        MsgBox "Dosya yolu belirtilmedi."
    End If
End Sub

 

[cavanoos]

Necdet Bey;

Kod çalıştı, teşekkür ederim.
Excel içindeki belli bir sayfayı kaydetmek istedim ama olmadı.
Yazdığım kod altta
Bunu nasıl düzeltiriz ?

ThisWorkbook.Sheets("Mizan").SaveAs DosyaYolu

 

[Necdet]

Merhaba,
Yine ChatGPT'nin kodları

Sub SayfaKaydet()
    Dim DosyaYolu As String
    Dim SayfaAdi As String
    
    ' Kaydetmek istediğiniz sayfanın adını belirtin
    SayfaAdi = "Sayfa1" ' Örnek olarak "Sayfa1" olarak belirtildi
    
    ' Dosya yolu ve adı belirleyin
    DosyaYolu = "C:\Users\KullaniciAdi\Desktop\" & SayfaAdi & ".xlsx" ' Kaydedilecek dosyanın yolu ve adı
    
    ' Belirtilen sayfayı yeni bir dosya olarak kaydet
    Sheets(SayfaAdi).Copy
    ActiveWorkbook.SaveAs DosyaYolu
    ActiveWorkbook.Close False
End Sub

 

[cavanoos]

Teşekkür ederim.