Farklı kaydetme... (makrosuz, formülsüz)

[sinbade]

Herkese selamlar...

Excel'e bi sürü makro, formül falan ekliyoruz. Acaba çalışma sayfasını ya da kitabını formüllerden ve makrolardan arındırarak salt veri içerecek şekilde kaydedebilir miyiz? Ya da Formüllerle bir takım işler yaptıktan sonra son halini biçimlendirme bozulmadan, salt veri olarak başka bir excel dosyasına aktarabilir miyiz?

Yardımcı olacaklara şimdiden teşekkürler...

 

[muygun]

Slm.
Tüm sayfayı yada gerekli yerleri seçin,
Taşıyacağınız hücreye mouseyi konumlandırın
Üst menülerden
Düzen/özel yapıştır
"değerler" i işaretleyin
Tamam a basın
Artık taşıdığınız alan sadece değerleri içerir.

 

[sinbade]

teşekkür ederim sayın muygun;
bunu daha önce denedim fakat ihtiyacıma cevap vermedi. Çünkü sayfa biçimlendirmesi bozuluyor... Şöyle söyliyelim, hem değerleri hem de biçimlendirmeleri başka bir dosyaya kaydetmek mümkün olmaz mı? teşekkür ederim.

 

[seismic]

Aşağıdaki linki inceleyiniz.Makrolu bir çözüm bilginize...

http://excel.web.tr/showthread.php?t=24497

 

[igulec]

elimde yüklü bir dosya var 50 sayfadan fazla her müşteriye ayrı sayfa. sayfalarda formül dolu. Dosyamı veri ve biçimlendirmeler kalacak şekilde makrosuz, formülden kurtulmuş yedek almak istiyorum. yardımlarınız için şimdiden teşekkürler

 

[Emir Hüseyin Çoban]

elimde yüklü bir dosya var 50 sayfadan fazla her müşteriye ayrı sayfa. sayfalarda formül dolu. Dosyamı veri ve biçimlendirmeler kalacak şekilde makrosuz, formülden kurtulmuş yedek almak istiyorum. yardımlarınız için şimdiden teşekkürler

. . .

Farkı kaydetme işlemini mi makrosuz yapmak istiyorsunuz yoksa

yeni oluşacak tablodamı makrolar olmayacak.

. . .

 

[igulec]

yeni oluşacak dosyada makro ve formül olmayacak. Dosyadaki sayfaların tümünde formülleri iptal etmek istiyorum. İlginize teşekkürler.

 

[Emir Hüseyin Çoban]

yeni oluşacak dosyada makro ve formül olmayacak. Dosyadaki sayfaların tümünde formülleri iptal etmek istiyorum. İlginize teşekkürler.

. . .

Sayfa isimlerini kendi tablonuza göre değiştirin.

Sub Kod()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next

Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
Dim Yedek_Dosya_Adı As String, Kayıt_Yeri As String
yer = ThisWorkbook.Path & "\"
uzanti = ".xlsx"
ActiveWorkbook.Save
Yedek_Dosya_Adı = "Yeni_" & ActiveWorkbook.Name
Kayıt_Yeri = yer & Yedek_Dosya_Adı
On Error Resume Next
If Dir(yer) = "" Then MkDir yer
On Error Resume Next
DosyaSistemi.CopyFile ThisWorkbook.FullName, Kayıt_Yeri

Workbooks.Open Filename:=Kayıt_Yeri
Sheets(Array([COLOR="DarkRed"]"GİRİŞ", "Sayfa2", "Sayfa3"[/COLOR])).Select
Sheets([COLOR="darkred"]"GİRİŞ"[/COLOR]).Activate
Cells.Copy
Range("A1").Activate
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Sheets([COLOR="darkred"]"GİRİŞ"[/COLOR]).Select
ActiveWorkbook.Save
ActiveWorkbook.Close

Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox " B i t t i ", vbInformation, " Hüseyin Çoban  |  huseyincobann@gmail.com  "
End Sub

. . .

 

[N.Faruk]

teşekkür ederim sayın muygun;
bunu daha önce denedim fakat ihtiyacıma cevap vermedi. Çünkü sayfa biçimlendirmesi bozuluyor... Şöyle söyliyelim, hem değerleri hem de biçimlendirmeleri başka bir dosyaya kaydetmek mümkün olmaz mı? teşekkür ederim.

Yapıştırma seçeneklerinden "Değerler"i seçin. bu sadece verileri alır. Biçimlendirme gelmez. biçimlendirme için "biçim boyacısı" nı kullanın.

kolay gelsin.

 

[mehmetmet]

Bu konuyu tekrar gündeme getirmek istedim. Belki 2016 sürümü için bir çözüm üretilmiştir diye sormak istedim. Var mıdır exceldeki veri ve biçimlendirme sabit kalmak kaydıyla formülsüz olarak kaydetmenin klay bir yolu var mıdır? Birden fazla exceli birbirine formüllediğim zaman özellikle yedek alırken verileri sabit olarak almasını tercih ederim.

 

[firat131]

Kendi denediğim yöntemi söyleyeyim. İllaki biliyorsunuzdur ama belki işinize yarar.

Yeni bir excel oluşturuyorum. Makrolu exceldeki herşeyi kopyalayıp buna yapıştırıyorum. Sonra tümünü seç- kopyala- değerleri yapıştır.

Bu şekilde bahsettiğiniz gibi oluyor.

 

[mehmetmet]

Bu konuyu tekrar gündeme getirmek istedim. Belki 2016 sürümü için bir çözüm üretilmiştir diye sormak istedim. Var mıdır exceldeki veri ve biçimlendirme sabit kalmak kaydıyla formülsüz olarak kaydetmenin klay bir yolu var mıdır? Birden fazla exceli birbirine formüllediğim zaman özellikle yedek alırken verileri sabit olarak almasını tercih ederim.

Bu konu hakkında yardımcı olabilecek birileri varsa memnun olurum. Dosya yedeklerini formülle almak istemiyorum. Elimde sadece biçim ve veriler kalsın istiyorum. Kopyala yapıştır biraz yorucu oluyor. Riskte içeriyor bence... Birden fazla sayfa ve gün içinde birden fazla yedek olunca benim için gerekli bir durum oldu bu.

yardımcı oabilirseniz memnun olurum.

 

[broodofqueen]

Sub mcrSet_All_Values_and_Save_XLSX()
    Dim w As Long
    For w = 1 To Sheets.Count
        Sheets(w).UsedRange = Sheets(w).UsedRange.Value
    Next w
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs _
      ThisWorkbook.Path & Chr(92) & _
        Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, Chr(46)) - 1) & Format(Date, "_yyyy-mm"), _
      xlOpenXMLWorkbook
End Sub

Bu kodu internette buldum arkadaşlar. işe yarıyor.

 

[ali_haber]

Sub mcrSet_All_Values_and_Save_XLSX()
    Dim w As Long
    For w = 1 To Sheets.Count
        Sheets(w).UsedRange = Sheets(w).UsedRange.Value
    Next w
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs _
      ThisWorkbook.Path & Chr(92) & _
        Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, Chr(46)) - 1) & Format(Date, "_yyyy-mm"), _
      xlOpenXMLWorkbook
End Sub

Bu kodu internette buldum arkadaşlar. işe yarıyor.

Allah senden razı olsun üstad.