Formül içinde değişken kullanma

[crpzz37]

selamunaleyküm arkadaşlar benim sorunum şu

ben şimdi vba da örneğin a1 hücresine bir formül yazdırıcam makro ile benim bir tarih değişkenim var ben bu hücreye =" tarih-TODAY() " şeklinde yazdırmayı deniyorum ama yazmıyor. yardımlarınız için teşekkür ederim

 

[mancubus]

mesela:

Sub xlTR_174779_tarih_fomul()

    Dim tarih As String
    
    tarih = "31/Ara/2018"
    
    Range("A1").Formula = "=DateValue(""" & tarih & """)-Today()"

End Sub

 

[crpzz37]

Allah sizden razı olsun çok saolun hocam

 

[mancubus]

hepimizden.
rica ederim.