Kopyalarken Formülleri de Kopyalıyor,

[sabri şirin]

Merhaba,
Aşşağıda ki kod la yapılan kopyalamada, Hücrede ki formülleride kopyaladığından hataya neden oluyor.Formülleri kopyalamadan sadece Hücrede yazılı olan Veriyi kopyalaması için nasıl ilave yapabiliriz?
Saygılarımla...

Sub Günlükgelir()
Call KALDIR
Dim i As Integer
For i = 5 To Sayfa12.Range("C13").End(3).Row
If Sayfa12.Cells(i, "I") <> "" Then
Sayfa12.Cells(i, 3).Resize(, 7).Copy Sayfa28.Range("B65536").End(3)(2, 1)
End If
Next i
i = Empty
Call KORU
End Sub

 

[Ömer]

Merhaba,

Kodlarınızda,

Sayfa12.Cells(i, 3).Resize(, 7).Copy Sayfa28.Range("B65536").End(3)(2, 1)

yukarıdaki satırın yerine aşağıdaki satırı yazın.

Sayfa12.Cells(i, 3).Resize(, 7).Copy
Sayfa28.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

 

[sabri şirin]

Ömer bey,
Teşekkür ederim.Sorun düzeldi Ellerinize sağlık.
Saygılarımla...