Hücre Değerini Yazdırma Kodu (ÇÖZDÜM)

[musti13]

Merhaba arkadaşlar;

aşağıdaki kodları "Ekle" butonuna macro olarak atayarak bir sekmeden(YENİ) diğer sekmeye(YATIRIMDAN) hücreleri kopyalıyorum. Kodların bir kısımını yazdım burada.
Her "Ekle" butonuna bastığımda YATIRIMDAN sekmesinde alt satıra geçiyor ve kopyalama yapıyor.
Buraya kadar bir sorunum yok

Sorunun şudur:

Syf3.Range("L13:L13").Copy Syf2.Range("A" & Say2)

Yukarıdaki kod satırındaki L13 hücresine =BUGÜN() yazdım.
Ekle butonuna basınca bu hücreyi formülüyle değil de sadece içerdiği tarih ile kopyalamak istiyorum

Bu kod satırına hangi kodu eklersem istediğimi yapabilirim.? Veya başka kod mu gerekiyor?

Şimdiden çok çok teşekkür ederim.

 Dim Say As Long
    Dim Syf2 As Worksheet
    Dim Syf3 As Worksheet
    Set Syf2 = Worksheets("YATIRIMDAN")
    Set Syf3 = Worksheets("YENİ")
    Say = Syf2.Cells(Rows.Count, "B").End(3).Row + 1
    Say2 = Syf2.Cells(Rows.Count, "A").End(3).Row + 1

    Syf3.Range("K6:L6").Copy Syf2.Range("B" & Say)
   
    Syf3.Range("L13:L13").Copy Syf2.Range("A" & Say2)

 

[musti13]

Arkadaşlar;
uğraşarak çözdüm.

Diğer arkadaşlarımıza faydalı olsun.

Worksheets("YATIRIMDAN").Range("A" & Say2).Value = Worksheets("YENİ").Range("L13").Value