dolu hücre kopyalamada sadece formüller geliyor

[MAYKMAYKMAYK]

Sub DOLU_HUCRELERI_KOPYALA3()
Dim Veri As Range, Alan As Range

For Each Veri In Range("G48:J58")
If Veri.Value <> "" Then
If Alan Is Nothing Then
Set Alan = Veri
Else
Set Alan = Application.Union(Alan, Veri)
End If
End If
Next

If Not Alan Is Nothing Then Alan.Copy Range("v2")
End Sub


bu makrodan aynı sayfada 1,2,3 olarak 3 adet var 1 ve 2 düzgün calışıyor 3 sadece formülleri getiriyor metni getirmiyor 1 makro aralığı g2:j23 yazdırma sütun başlangıcı k2 ; 2 nolu makro aralığı g26:j46 yazdırma sütun başlangıcı Q2 ; 3 nolu makro aralığı g48:j58 yazdırma sütun başlangıcı v2 . 1,2 düzgün calışıyor 3 sadece formülleri yazıyor aralıkların hepsine dışarıdan formül ile veri geliyor

 

[Korhan Ayhan]

Merhaba,

Dosyanızı eklerseniz inceleme şansımız olabilir.