Dosya adını otomatik verip kaydetme hakkında yardım lutf

[smach]

c1 hücresine yazılan tarihi ve a1 hücresindeki metni birleştirerek dosya adı olarak kaydetmek istiyorum.denedim ama basarılı olamadım sizlerden yardım bekliyorum.
acıklayıcı olması acısından;
A1 hücresinde "Raporları" metni bulunuyor farzedelim
C1 hücresindede "=bügün()-1" yani dünün tarihi olacak
sonucta "23.02.2006 Raporları" adı cıkıyor ben bunu macro kullanarak dosya adı olarak kullanıp kaydetmek istiyorum. birde Xp dosya adında / işaretini kabul etmedigi için tarih ayıracı olarak "." kullanmakta gerekiyo.
bana bu konuda yardımcı olursanız sevirinim.

 

[smach]

neyse gerek kalmadı arkadaslar
ben kendim yaptım forumdaki bi kodu kendime uyarladım ve eklemeler yaptım
kodu asagıda veriyorum işine yarayacak birisi olabilir.
5 sutundan olusan ve satır sayısı belirsiz bi tabloda d hücresine gore sıralama yapıp dolu olan hucreleri secerek bunu yazıcıdan cıkarıyor.ayrıca a1 hücresinde ki metini ve c1 hücresindeki tarihide birleştirerek dosya adı olarak kaydediyor.


Sub allinone()
Range("A2:E61").Select
ActiveWindow.SmallScroll Down:=-34
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("a1").Select
Range("A1:B1").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.PrintOut Copies:=1, Collate:=True
dosya = Range("c1") & " " & Range("a1")
dosya = WorksheetFunction.Substitute(dosya, "/", ".") ' / ları nokta yapsın.
isim = dosya & "." & "xls"
ChDrive "k:" ' kendi surucunuzu secin
ChDir "K:\Belgelerim\yeni" ' kendi klasorunuzu secin
ActiveWorkbook.saveas Filename:=isim
End Sub