Farklı Dosyaya formülsüz aktarma

[RALKAN]

Arkadaşlar merhaba ,

Forumdan aldığım farklı dosyaların aktarımında kullandığı aşağıda ki aktar makrosunu aktardığım sayfadaki formülleri almadan aktarmak için değişiklik yapılması konusunda yardımlarınızı rica ediyorum.



Sub VERİLERİ_AKTAR()
Dim Dosya_Yolu As String, Asıl_Dosya As Workbook, Kaynak_Dosya As Workbook
Application.ScreenUpdating = False
Set Asıl_Dosya = ThisWorkbook
Asıl_Dosya.ActiveSheet.[A:Q].ClearContents
Dosya_Yolu = ThisWorkbook.Path & "\"
Set Kaynak_Dosya = Workbooks.Open(Dosya_Yolu & "NakıtDurumAlacakTakıp.xlsm", False, False)
Kaynak_Dosya.ActiveSheet.Cells.Copy
Asıl_Dosya.Activate
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
Kaynak_Dosya.Close True
Set Kaynak_Dosya = Nothing
Set Asıl_Dosya = Nothing
Application.ScreenUpdating = True
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Orion1]

igili satırları aşğıdaki satırla değiştiriniz.

Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)

Aşağıdaki satırları yukarıdaki ile değiştiriniz.

Range("A1").Select
    ActiveSheet.Paste

 

[RALKAN]

Evren hocam merhaba ,

Çok teşekkür ederim , işlem tamamdır.

 

[Orion1]

Evren hocam merhaba ,

Çok teşekkür ederim , işlem tamamdır.

Rica ederim.
İyi çalışmalar.

 

[Yavuzdan]

Rica ederim.
İyi çalışmalar.

Evren Hocam bu işlem komple Sayfayı kopyalıyor. Peki sadece kaynak dosyadan yukardan aşağı A:B:C:E sütünlarını alıp hedef dosyada yine A:B:C:E sütünlarına aktarmak istesek ne gibi bir değişiklik yapmalıyız kod da.

Ben biraz uğraştım ama hep MVB 400 hatası veriyor.

 

[tncyc]

Merhaba, içinde çok sayıda sayfa bulunan bir excel dosyasını, icindeki tüm formulleri kaldırırarak nasıl kaydedebilirim?