• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Kod ve formülleri aynı anda kaldırmak

M

magnesia

Yasaklı üye
Katılım
1 Ocak 2018
Mesajlar
351
Excel Vers. ve Dili
Excel 2010 Türkçe
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..
 
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.
 
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.
 
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.
 
1EKER arkadaşım.
Bu konuyu buraya yazmanızın amacı ney?
 
magnesia' Alıntı:
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.
Genişletmek için tıkla ...

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.
 
1EKER arkadaşım.
Yeni Konu Aç başlığı altına konu açıp isteğinizi anlatabilirsiniz.
 
ataköylü-59 arkadaşım.
İlgine ve emeğine teşekkür ederim.
 
1 excel kitapcığının içinde çok sayıda sayfa mı var? Yoksa birkaç tane sayfa mı var
 
Bir çok excel kitapçığı, bu kitapçıkların içinde de bir çok sayfa var..
Hepsini aynı anda tek bir defada kaldırmak istiyorum.
 
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.
 
Kod: 
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
 
Tahsin Ararat arkadaşım.
İlginize ve emeğinize teşekkür ederim.
İşimi gördü.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst