VBA Kod yardımı

[Mehmet Sait]

Merhaba,

Aşağıdaki kod yardımı ile dosya yedeğimi alıyorum.

Sub Yedekle()

Dim FSO As Object, Yol As String, Klasor As Object
    Dim Dosya_Adi As String, Dosya As Object, Tarih As Date
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    ThisWorkbook.Save
    Call YedekKlasoruOlustur
 
   Yol = "\\192.168.1.242\ortak\Üretim\Üretim Takip\Vardiya Yedek\" & Format(Date, "dd.mm.yyyy") & " - " & "Üretim Raporu"
    
    If FSO.FolderExists(Yol) = False Then
        FSO.CreateFolder Yol
    Else
        Set Klasor = FSO.GetFolder(Yol)
        
        For Each Dosya In Klasor.Files
            If Left(Dosya.Name, 1) <> "~" Then
                Tarih = Split(Dosya.Name, " ")(0)
                If Tarih < Date - 2 Then
                    Dosya.Delete
                End If
            End If
        Next
    End If
    
    If ThisWorkbook.Path = Yol Then Exit Sub
    
    'If MsgBox("Dosyanın yedeğini almak istiyor musun?", vbInformation + vbYesNo, "DURUM") = vbYes Then
        Dosya_Adi = Yol & Application.PathSeparator & Replace(Now, ":", "_") & "  -  " & Range("G3").Value & " " & Range("G5").Value & ".xlsm"
        FSO.CopyFile ThisWorkbook.FullName, Dosya_Adi
    'End If

    Set Klasor = Nothing
    Set FSO = Nothing
End Sub

Public Sub YedekKlasoruOlustur()
    On Error GoTo Son
    MkDir ("\\192.168.1.242\ortak\Üretim\Üretim Takip\Vardiya Yedek\" & Format(Date, "dd.mm.yyyy") & " - " & "Üretim Raporu")
Son:

End Sub

Yol = "\\192.168.1.242\ortak\Üretim\Üretim Takip\Vardiya Yedek\" & Format(Date, "dd.mm.yyyy") & " - " & "Üretim Raporu"
Bu satırda bulunan Format(Date, "dd.mm.yyyy") tarih kısmını dosyanın G3 satırından alması için ne yapmam gerekir?

Yardımlarınız için teşekkür ederim.

 

[hamitcan]

Date yerine [G3] yazıp dener misiniz ?

 

[Mehmet Sait]

Date yerine [G3] yazıp dener misiniz ?

Denedim oldu. Teşekkür ederim.