Veri aktarma sorunu

[Barons]

Merhaba

Aşağıdaki kod ile Ana sayfasından database sayfasına veri aktarıyorum..ancak formülleride aktarıyor.Ben sadece değerleri aktarmasını istiyorum.Ama başaramadım.

Yardımlarınız için şimdiden teşekkürler


Sub veriaktar()
Application.ScreenUpdating = False
Sheets("Ana").Range("D312").Copy
sat = Sheets("database").Cells(65536, 2).End(xlUp).Row
Sheets("database").Cells(sat + 1, 2).PasteSpecial , , , True
Application.CutCopyMode = False
MsgBox ("Verileriniz kaydedilmiştir.")
Application.ScreenUpdating = True

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:3416aa1730]Sub veriaktar()
Application.ScreenUpdating = False
Sheets("Ana").Range("D312").Copy
sat = Sheets("database").Cells(65536, 2).End(xlUp).Row
Sheets("database").Cells(sat + 1, 2).PasteSpecial Paste:=xlValues, Transpose:=True
Application.CutCopyMode = False
MsgBox ("Verileriniz kaydedilmiştir.")
Application.ScreenUpdating = True
End Sub[/vb:1:3416aa1730]

 

[Barons]

Sn. LeventM çok teşekkürler

Problemim halloldu.

İyi çalışmalar