Kopyala Yapıştır Formuller Yerine Verileri Alma

[burak2385]

Merhaba Aşağıdaki Kod İle Başka Bir Hücreden Başka Bir Hücreye Veri Kopyalaması Yapıyorum. Fakat Kopyalama Yaparken Kopyalanılan Yerdeki Veriler (Sayılar) yerine Formul Bilgilerini Yapıştırıyor Nasıl Bir Düzeltme Uygulamam Gerekiyor Verileri Almak İçin

Sub Verilerikopyala()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Günlük T.") ' Sayfa Adınıza Göre Değiştirin
    If Application.CountA(ws.Range("a4:j4")) <> 0 Then
        ws.Range("a4:j4").Insert Shift:=xlDown
    End If
    ws.Range("L1:S1").Copy ws.Range("A4")
End Sub

 

[DoğanD]

Merhaba,

Aşağıdaki gibi değiştirebilirsiniz.

ws.Range("L1:S1").Copy
ws.Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

 

[ozbinici07]

Elinize Sağlık Teşekkürler

Merhaba,

Aşağıdaki gibi değiştirebilirsiniz.

ws.Range("L1:S1").Copy
ws.Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False