Dosya adını ve formülü bir önceki çalışma kitabında kullanma

[mrs303]

17.03.06 isimli bir dosyam var, ben bu dosyadaki bir hücrede bir gün önceki tarihi kullanmak istiyorum.Örnek. 17.03.06 dosyasında A1 deki formül: =[16.03.2006.xls]arac'!$F$17)

Dosyayı farklı kaydettiğimde ismini 18.03.06 olarak verdiğimde A1 deki formül : [17.03.2006.xls]arac'!$F$17) olarak değişmesini istiyorum.

Ve bu şekilde her gün kaydettiğim dosyalar bir gün önceki formülü versin..Şimdiden Teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu thisworkbook sayfasına kopyalayarak deneyin. Dosyayı kaydettiğinizde A1 hücresine gerekli formülü yazacaktır.

[vb:1:4fcb0ac9a7]Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ad = ActiveWorkbook.Name
deg = Left(ad, Len(ad) - 4)
If IsDate(deg) = False Then Exit Sub
[a1] = "=[" & CDate(deg) - 1 & ".xls]arac!$F$17"
End Sub
[/vb:1:4fcb0ac9a7]