Excel makro kullanarak belge kaydetme

[Mumtaz55]

Merhaba 500 satırlık 6 kolonluk bir excel sayfam var. İşlerimde kolaylık sağlaması açısından bir takım formüller bulunmakta, lakin istediğim şu şekilde,

Makroyu çalıştırdığım da tüm çalışma sayfasını copy+pasta yapacak (formüllerden kurtarıp yalın veriyi yapıştırmak için)
Ardından formüllerden arındırılmış belgeyi farklı kaydet ile kaydedecek. Böyle birşey mümkün müdür acaba? Teşekkürler

 

[Mumtaz55]

Merhaba makro butonu ekleyip komutları yazdım. butona tıkladıgımda excel beyaz ekranda bir süre dönüyor sonra Runtime Error "7" Out Of Memory hatası ile karşılıyorum.

.Value = .Value alanı hatalı gösteriyor sanırım

 

[Mumtaz55]

veri yoğunluğunu azaltmak için formüle ilave şunu da ekleyebilir miyiz Sayın Hocam?

kaydederken yalnızca;
- A ve J kolonları arasında ilk 600 satırı kaydet

 

[Mumtaz55]

hocam çok teşekkür ederim tam istediğim gibi oldu. elinize sağlık

İlave olarak şöyle birşey sorabilir miyim.. ilk formülde kaydederken uzun sürdü ama formülleri kaydedip aynı sayfa düzeninde kaydetti.
İkinci ve son verdiğiniz kod daha hızlı ve işlevsel oldu ama onda kaydettiğimde satır aralıkları, yükseklikleri orantısız kaydediyor. Sayfa aralıkları satır yükseklikleri ilk formüldeki hangi kod ile ikinci attıgınız koda ekleyebilirim??

 

[Mumtaz55]

Teşekkürler hocam tam istediğim gibi oldu

 

[hamitalper]

Merhaba hocam emeğinize sağlık öncelikle çok teşekkürler, aktarım yaparken grafikleri kopyalamıyor bunun için bir alternatif çözüm varmı

 

[hamitalper]

Dönüşünüz için teşekkürler Hocam, denedim ama grafikler, Şekiller ve metin kutuları olan görselleri kopyalamıyor malesef

 

[Biolightant]

Merhaba,
Alternatif kod olarak.

Fazla veri içeren sayfada
Kopyala + Özel yapıştır + Değerleri
Problem yaratıyor mu, kontrol edermisin.

Test edip geri dönüş yaparmısınız.

Sub FormulsuzSayfa()
    Dim RaporYolAd As String
    RaporYolAd = ActiveWorkbook.Path & "\Rapor.xlsx"
  
    Application.ScreenUpdating = False
    ActiveSheet.Copy
    ActiveSheet.Cells.Copy
    ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Range("A1").Select
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=RaporYolAd, FileFormat:=xlOpenXMLWorkbook
    Application.DisplayAlerts = True
    ActiveWorkbook.Close SaveChanges:=False
    Application.ScreenUpdating = True
  
    MsgBox "Rapor Oluşturuldu.", vbInformation, "Rapor OK"
End Sub

 

[hamitalper]

Merhaba,
Alternatif kod olarak.

Fazla veri içeren sayfada
Kopyala + Özel yapıştır + Değerleri
Problem yaratıyor mu, kontrol edermisin.

Test edip geri dönüş yaparmısınız.

Sub FormulsuzSayfa()
    Dim RaporYolAd As String
    RaporYolAd = ActiveWorkbook.Path & "\Rapor.xlsx"
 
    Application.ScreenUpdating = False
    ActiveSheet.Copy
    ActiveSheet.Cells.Copy
    ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Range("A1").Select
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=RaporYolAd, FileFormat:=xlOpenXMLWorkbook
    Application.DisplayAlerts = True
    ActiveWorkbook.Close SaveChanges:=False
    Application.ScreenUpdating = True
 
    MsgBox "Rapor Oluşturuldu.", vbInformation, "Rapor OK"
End Sub

HOCAM SAYGILAR TÜM SAYFAYI KOPYALADI

 

[Biolightant]

HOCAM SAYGILAR TÜM SAYFAYI KOPYALADI

Kodlarin ise yaramasına sevindim.
Kolay gelsin.