Makro Tarih Formül Düzeltme

[hb3102]

Sub Mail_At()

Dim OutApp As Object, OutMail As Object, FSO As Object, MySignature As Object
Dim baslik As String, metin As String, yol As String, dosya As String

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

Set FSO = CreateObject("Scripting.FilesystemObject")

yol = CreateObject("Wscript.Shell").SpecialFolders.Item("Desktop") & Application.PathSeparator

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "\" & [D13] & "_" & Format(Now, "dd.mm.yy_hh.nn") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False ', OpenAfterPublish:=True

baslik = "Sipariş_Teyit_Formu"
metin = "Sayın Yetkili," & Chr(10) & "Ekteki sipariş teyitlerini en kısa sürede tarafımıza " _
& "ulaştırmanızı rica ederiz." & Chr(10) & "İyi Çalışmalar"

dosya = yol & "\" & [D13] & "_" & Format(Now, "dd.mm.yy_hh.nn") & ".pdf"

On Error Resume Next
With OutMail
.To = "" 'bu bölüme firma mail adresini yazın.
.CC = "" 'bu bölüme bilgi için gönderilecek mail adresini yazın.
.Subject = baslik
.Body = metin
.Attachments.Add dosya
.Display
'.Send
End With
On Error GoTo 0

Kill dosya

Set OutMail = Nothing
Set OutApp = Nothing

End Sub

Merhaba dosya = yol & "\" & [D13] & "_" & Format(Now, "dd.mm.yy_hh.nn") & ".pdf" formülünde Now yerine hangi formül 1 gün öncesinin tarihini verir.
Örneğin bugün 10.12.2021 ben düne ait tarih vermesini istiyorum Now yerine hangi kelime yazılmalı bilgi verirseniz sevinirim.

 

[ÖmerFaruk]

Now-1

 

[hb3102]

Makro yukarıda tam metni var Now-1 yazınca formul hata veriyor.
Rica etsem makro tam metnini yazabilir misiniz

 

[ÖmerFaruk]

dosya = yol & "\" & [D13] & "_" & Format(Now-1, "dd.mm.yy_hh.nn") & ".pdf"

 

[hb3102]

Sorun çözülmüştür ilginize teşekkür ederim.