formülleri silmeden veri silme

[çetin sönmez]

Merhaba arkadaşlar.Excel tablolarım var ve bunlara yılboyunca veri girişleri yaptım.Bu verileri formüllere dokunmadan pratik bir şekilde silip tabloyu temizlemek istiyorum.400 yakın tablo ve içindeki veriler silinecek.Yardımcı olurmusunuz.İyi bayramlar.

 

[Korhan Ayhan]

Selamlar,

Yardımcı olabilmemiz için örnek bir dosya ekleyebilirmisiniz.

 

[çetin sönmez]

bir örnek gönderiyorum.yardımcı olursanız sevinirim.

 

[Ali]

Amacınız A5:F149 aralığındaki verileri silmek ise

Sub aralıksil()
Range("A5:F149").Select
Selection.ClearContents
End Sub

işiniz görecektir.

 

[Korhan Ayhan]

Selamlar,

Sn. Ali beyin cevabına "I" sütununuda eklersek aşağıdaki kod işinizi görecektir.

Sub TABLOYU_TEMİZLE()
    [A5:F149,I5:I149] = ""
End Sub

 

[çetin sönmez]

Ali bey bu konularda fazla bir bilgim yok.Sadece mantık ve matematik bilgimi kullanarak formül yazabiliyorum.Bu makro nasıl uygulanıp kullanılıyor.Bu konuda bir bilgim yok.Birde bu çalışma kitabı yaklaşık 150 sayfadan oluşan bir kitap ve 3 tane ayrı kitap.Ayrıca başka makrolar içeriyor.Bu makroların çalışmasını bozmadan sizin yazdığınız makroyu nasıl uygulayabilrim.Biraz uzun oldu ama.

 

[mehmett]

Verileri temizlemenin çeşitli yolları var. Ali beyin verdiği makro bunlardan biri.

Ben de hücre rengine göre verileri temizleyen kodları ve uygulanmış dosyayı veriyorum. Silimesini istemediğiniz hücrelere bu üç rengi vermeyin.

Private Sub CommandButton1_Click()
For t = 1 To Sheets.Count
Sheets(t).Select
For Each hucre In [a1:j200]
If hucre.Interior.ColorIndex = 15 Then hucre.ClearContents
If hucre.Interior.ColorIndex = 40 Then hucre.ClearContents
If hucre.Interior.ColorIndex = 33 Then hucre.ClearContents
Next
Next
End Sub

Not: Bu makro 150 sayfayı da temizleyecektir.

 

[Korhan Ayhan]

Selamlar,

Eğer dosyanızdaki bütün sayfalardaki tablolar örnek dosyanızdaki formatta ise yani birebir aynı ise döngü ile önerdiğimiz kodları kullanabiliriz. Bu konuda detaylı bilgi verirseniz yardımcı olabiliriz.

 

[Ali]

Mehmet Bey ve Sn COST_CONTROL bu ne hız iki dakika boş bırakmaya gelmiyor,yağmur gibi cevapları yazıyorsunuz.

 

[Necdet]

Başka bir öneri :

1. F5 (yada Ctrl+G, yada Düzen-Git)
2. Special (Özel)
3. Constants (Sabitler)
4. OK (Tamam)

Dedikten sonra formülsüz sabit hücreler seçilir, bu aşamada Delete Tuşuna basarak bilgileri silebilirsiniz

 

[mehmett]

Verdiğim ilk dosya çoklu sayfalarda sorun çıkarıyor.

Bu sefer sayfa sayısını üçe çıkarıp gönderiyorum. Makroyu da biraz değiştirdim.

 

[mehmett]

Necdet beyin önerdiği yöntemi makro haline getirmeyi düşündüm ama bu sefer TARİH, ADET, TUTAR gibi başlıklar da siliniyor.

Eğer bu başlıklar ="TARİH" , ="TUTAR" şeklinde yazılabilirse bu yöntem de alternatif bir çözüm olarak kullanılabilir.

 

[çetin sönmez]

Ben bu foruma şubat - mart 2006 aylarında takılıyordum.Bir cari programa ihtiyacım vardı.Forumdan tanıştığım bir arkadaşla uzun mailleşmeler sonucu programı yaptık ve şimdi 7-8 aydır programı verimli şekilde kullanıyorum.Programı her açtığımda Allah razı olsun diye o arkadaşı anıyorum.Görüyorumki forumdaki dayanışma ve yardımlaşma aynı süratle devam ediyor.Soruma anında olumlu yanıtlar aldım.Herkese teşekkür ederim.Yalnız bu kodları yazmayı bırak nasıl uygulanacağını bile bir türlü öğrenemedim.Forumda bu konuyu öğreten başlıkların linkini bana verirmisiniz.

 

[mehmett]

Yalnız bu kodları yazmayı bırak nasıl uygulanacağını bile bir türlü öğrenemedim.Forumda bu konuyu öğreten başlıkların linkini bana verirmisiniz.

Excel Dersanesi bölümüne bakın.

 

[Ali]

Mehmet Bey kodlarınız şu şekildede kullanılabilir.
Necdet Bey'in önerdiği sistemin makro halidir.

Sub sabitlerisil()
For t = 1 To Sheets.Count
Sheets(t).Select
Sheets(t).Range("A5:J149").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants, 23).ClearContents
Next
End Sub

 

[Necdet]

Bende Sayın Ali ile aynı sonuca ulaşmıştım.
Basit olarak şöyle düşünmüştüm

Sub Macro1()
Range("A5:j149").Select
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    Selection.ClearContents
End Sub

 

[Merhum İdris SERDAR]

400 dosyayı hangi amaçla silip kullanacağınızı bilmiyorum.

Eğer bunları tekrar kullanmak amacıyla yapıyorsanız, bence bunlara gerek yok.

Herhangi birisini, hangi yöntemle olursa olsun boşaltın. Şablon dosya olarak kaydedin. Bu şablon dosya size her zaman boş gelecektir.

Böylece geriye kalan 399 dosyayı ve bundan sonra oluşacak dosyaları da boşaltmanıza gerek kalmayacaktır.

Örnek dosyanız ekte.