Kod ve formülleri aynı anda kaldırmak

[magnesia]

Arkadaşlar selam.
Yüzlerce excel dosyam var. (Uzantıları *.xls ve *.xlsx)Bunların hemen hepsinde kod ve formüller var.
Bütün bu dosyalardaki kod ve formülleri aynı anda kaldırmanın kolay yolu var mıdır?
Formüllere; kopyala-özel yapıştır-değerler işlemini uygulasın, kodları da tamamen kaldırıp, dosya manuel kullanılabilir hale gelsin..
Umarım anlatabilmişimdir.
Şimdiden teşekkürler..

 

[ataköylü-59]

Sayın magnesia
Bunun için sayfanızın A1 hücresinin sol üst başındaki içinde ok işareti bulunan kutuyu tıklayın bütün hücreler seçili hale gelir. Sonra bu alanda herhangi bir yere sağ tık yapıp "Kopyala > Özel yapıştır > Değerler" yaptığınız zaman sayfanız bütün formül ve fonksiyonlardan arınmış olur.

 

[magnesia]

Sayın ataköylü-59. Ben de onu söylüyorum işte.
Bunu zaten yapabiliyorum. Derdim sadece formül ve fonksiyonlar değil, kodlar da var.
Benim isteğim, yüzlerce dosyadaki bu kod, formül ve fonksiyonları aynı anda kaldırmak.

 

[1EKER]

iyi günler
işimin kolaylaşması için bir program yapmam gerek ama nasıl yaparım bilemedim.
depozito programı yapmak istiyorum.şöyle olmasını isterdim.
5 çeşit 100g tatlı var isimleri farklı ama herbiri
90013 denen kasada, 1 kasada 48 adet bulunmaktadır. şimdiden teşekkürler.

 

[magnesia]

1EKER arkadaşım.
Bu konuyu buraya yazmanızın amacı ney?

 

[1EKER]

nereye yazmalıyım ?

 

[ataköylü-59]

Sayın ataköylü-59. Ben de onu söylüyorum işte.
Bunu zaten yapabiliyorum. Derdim sadece formül ve fonksiyonlar değil, kodlar da var.
Benim isteğim, yüzlerce dosyadaki bu kod, formül ve fonksiyonları aynı anda kaldırmak.

Sanırım bunu "Çalışma Kitabını Makro ve Kodlardan Arındırmak" Başlığı ile WBA bölümünde yeni bir konu açarsanız üstad kardeşlerim size bir çözüm sunarlar. Gerçi bunun için de aklıma şöyle bir şey geliyor. Çalışma kitabını "Makroları devre dışı bırak" seçeneği ile bu istediğiniz olur diye düşünüyorum.

 

[magnesia]

1EKER arkadaşım.
Yeni Konu Aç başlığı altına konu açıp isteğinizi anlatabilirsiniz.

 

[magnesia]

ataköylü-59 arkadaşım.
İlgine ve emeğine teşekkür ederim.

 

[magnesia]

Yardımcı olabilecek arkadaş var mı?

 

[ismailmustafa]

1 excel kitapcığının içinde çok sayıda sayfa mı var? Yoksa birkaç tane sayfa mı var

 

[magnesia]

Bir çok excel kitapçığı, bu kitapçıkların içinde de bir çok sayfa var..
Hepsini aynı anda tek bir defada kaldırmak istiyorum.

 

[magnesia]

Konu güncel arkadaşlar.

 

[ismailmustafa]

aynı konuda benim de yardıma ihtiyacım var o yüzden sordum. bir kitapçıkta yaklaşık 500 sayfam var hepsini teker teker kopyalamak çok zor olacak. size konuyu açtığınız için ve yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[magnesia]

Konu günceldir..

 

[magnesia]

Konuyu güncelliyorum.

 

[magnesia]

Konuyu güncelliyorum

 

[magnesia]

Konuyu güncelliyorum

 

[tahsinanarat]

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
    hepsini_sil
End Sub

Sub hepsini_sil()
If MsgBox("Projedeki bütün kodları siliyor dikkat etmek lazım." & vbCrLf & "Bütün kodlar silinsin mi?", vbYesNo, "AMAN DİKKAT!!!") = vbNo Then Exit Sub
For Each modul In ThisWorkbook.VBProject.VBComponents
With modul.codemodule
.deletelines 1, .countoflines
End With
Next
End Sub

 

[magnesia]

Tahsin Ararat arkadaşım.
İlginize ve emeğinize teşekkür ederim.
İşimi gördü.