düşeyara formülünü rakamsal kopyala yapıştır

[Gold_Savt]

A1-Z1 arasında bulunan düşeyara formüllerinin 'değerlerini' A10-Z10 aralığına taşıyan bir CommandButton'um var.
Aşağıdaki kodla kopyala-yapıştır yapıyorum. Ancak hücrede rakam görünmesine rağmen "rakamsal değer" taşımıyor. Ne yapmalıyım.
Not: Eğer A1-Z1 arasında "0" rakamı değer olarak varsa "boş" kalması lazım

Sheets("Anasayfa").Range("A1:Z1").Copy
Sheets("Anasayfa").Range("A10:Z10").PasteSpecial xlValues

 

[YUSUF44]

Aşağıdaki gibi deneyin:

Sub degerlendir()
Dim hucre As Range
For Each hucre In [A1:Z1]
    If hucre <> 0 Then hucre.Offset(9, 0) = hucre.Value
Next
End Sub

 

[Gold_Savt]

Teşekkür ediyorum hocam.