makro verilerle birlikte formülleride aktarıyor

[jambow]

Sub aktarma()
boshücre = Sheets("FULL").[A65536].End(3).Row + 1
Sheets("SATIŞ").Range("a6:h32").Copy Sheets("FULL").Cells(boshücre, 1)
MsgBox " Aktarma işlemi  gerçekleşmiştir."
End Sub

makro verilerle birlikte formülleride aktarıyor sadece verileri aktarmasını sağlıyabilirmiyiz

 

[Necdet]

Merhaba,

Kodları dener misiniz?

Sub Makro1()
Sheets("SATIŞ").Range("A6:H32").Copy
Sheets("FULL").Range("A" & Sheets("FULL").[A65536].End(3).Row + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
End Sub