makro içinde excel hücre adresi

[natura]

arkadaşlar, sizlerin sayesinde bir kaydetme makrosu oluşturdum. ancak yedekladiğim dosyanın adı mevcut doya adı vebugünkü tarihten oluşuyor. ben ise g23 hücresindeki rakam ve bugünkü tarih olmasını istiyorum. tesekkür ederim.
Dim dzn As String
Dim dosyayolu As String
Dim ws As Object

cevap = MsgBox("Bilgilerinizin son hali " & _
"bugunku tarihle farklı " & _
"kayıt edilerek yedeklenecektir. " & _
"Yedeklenen bilgilere :" & yedekyolu & _
" My Documents ''Belgelerim'' klasöründen erişebilirsiniz. " & _
"Devam etmek istiyor musunuz..?", vbYesNo, "Yedek Alma...")

If cevap = vbYes Then

Set ws = CreateObject("WScript.Shell")

dzn = ws.SpecialFolders("Desktop")

dosyayolu = dzn & Application.PathSeparator & "formlar-" & Str(Date) & ".xls"

Application.StatusBar = " Belgeniz: " & dosyayolu & " olarak kaydediliyor... Lutfen Bekleyiniz..!"

ActiveWorkbook.SaveAs dosyayolu

Set ws = Nothing

Application.StatusBar = ""

End If

 

[Korhan Ayhan]

Selamlar,

Kodunuzun aşağıdaki kısmına kırmızı renkli kısmı ekleyerek denermisiniz.

dosyayolu = dzn & Application.PathSeparator & [COLOR=red][G23][/COLOR] & Str(Date) & ".xls"

 

[natura]

tesekkür ederim denedim ancak sadece 09.05.2008 şeklinde kaydetti. g23 te formumun protokol nosu var onu alsın istiyorum.