bul ve sil

[emraha]

Selamlar. Excell sayfamda "()" verilerinin hepsini bir makroyla silmek istiyorum. Makro kaydet butonundan "bul" a girip "()" yazıp tümünü bul dediğimde altta çıkan sonuçların üzerinde Ctrl+A yaparak hepsini seçip, seçilmiş hücre alanlarının üzerine sağ tıklayıp "içeriği temizle" den temizleyebiliyorum ama yoğun bir işlem yapmam gerekiyor verileri bu şekilde dönüştürmek benim için çok zaman kaybı oluyor. makroyla bana yardımcı olurmusunuz. İlginize şimdiden teşekkürler... kolay gelsin iyi çalışmalar

 

[Mahmut Kök]

Selamlar. Excell sayfamda "()" verilerinin hepsini bir makroyla silmek istiyorum. Makro kaydet butonundan "bul" a girip "()" yazıp tümünü bul dediğimde altta çıkan sonuçların üzerinde Ctrl+A yaparak hepsini seçip, seçilmiş hücre alanlarının üzerine sağ tıklayıp "içeriği temizle" den temizleyebiliyorum ama yoğun bir işlem yapmam gerekiyor verileri bu şekilde dönüştürmek benim için çok zaman kaybı oluyor. makroyla bana yardımcı olurmusunuz. İlginize şimdiden teşekkürler... kolay gelsin iyi çalışmalar

Bul komutu yerine değiştir komutunu kullanabilirsiniz.

Aranan= ()
Yeni değer = boş

Tümünü değiştir.

 

[emraha]

yeni değer olarak "boş" bırakıldığında hücrelerde gene değer kalıyor. ben tamamen içeriğinin silinmesini istiyorum ayırca bu işi yapacak bir makro lazım bana... uzun bir işlem beni bekliyor yoksa...

 

[Recep İpek]

Siz "()" işaretinin bulunduğu hücredeki tüm veriyi mi silmek istiyorsunuz?

Örneğin A1 hücresinde ali() var ise bu hücredeki tüm bilgilerin silinmesi gibi..

 

[Mahmut Kök]

Cells.Replace What:="()", Replacement:=Empty, LookAt:=xlPart

Sayın Ripek'in dikkat çektiği husus da önemli tabi. Bu kodlar sadece () değerlerini siler. Bu değerlerin bulunduğu hücredeki tüm değerleri silmez.

 

[emraha]

Sayın Ripek;
Ben sadece içinde "()" verisi bulunan hücreleri silmek istiyorum yani hücrenin içinde ali() verisi varsa silmesin, ama () verisi varsa silsin...

 

[Mahmut Kök]

Aşağıdaki kod ile hücrede sadece () varsa silinir.

[LEFT]Cells.Replace What:="()", Replacement:=Empty, LookAt:=xl[COLOR=red]whole[/COLOR][/LEFT]

 

[emraha]

ayrıca hücredeki bütün değeri silmesini sağlamak istiyorum. sanki o hücreye hiç veri girişi yapılmamış gibi olsun.

 

[Recep İpek]

Aşağıdaki kodları kullanabilirsiniz.

Sub BulSil()
deg = "()"
For Each sil In Range("a2:z100")
If sil = deg Then sil.Value = Empty
Next
MsgBox "Bitti"
End Sub

 

[N.Ziya Hiçdurmaz]

Yanıt

inputboxtan seçilen hücre aralığında işlem yapar.

Sub SIL()
HUC = InputBox("HUCRE ARALIĞINI SEÇİNİZ.")
For Each DEG In Range(HUC)
If DEG = "()" Then
DEG.Clear
End If
Next
End Sub

 

[emraha]

çok teşekkür ederim ripek.. ve dier arkadaşlar.. gerçekten çok işime yaradı bu makro sağolun yardımlarınız için

 

[irfancantr]

iyi akşamlar,

Sayın üstadlar, bulsil makrosunu denedim ama bir türlü makronun hata vermesini engelleyemedim

Yapmaya çalıştığım fakat beceremediğim makro B4:AF644 arasındaki sayı harici olan her hücreyi nasıl temizleyebilirim?

 

[Orion1]

iyi akşamlar,

Sayın üstadlar, bulsil makrosunu denedim ama bir türlü makronun hata vermesini engelleyemedim

Yapmaya çalıştığım fakat beceremediğim makro B4:AF644 arasındaki sayı harici olan her hücreyi nasıl temizleyebilirim?

Sub temizle()
Dim hcr As Range
For Each hcr In Range("B4:AF644")
    If IsDate(hcr.Value) Or Not IsNumeric(hcr.Value) Then hcr.Clear
Next
MsgBox "Silme tamamlandı"
End Sub

 

[irfancantr]

Hazırladığınız kod için teşekkür ederim fakat hücrede #YOK değerleride bulunuyorsa eğer (hiçbir hücrede formül yoktur) bunlarıda temizlemek mümkün müdür acaba?

 

[Orion1]

Hazırladığınız kod için teşekkür ederim fakat hücrede #YOK değerleride bulunuyorsa eğer (hiçbir hücrede formül yoktur) bunlarıda temizlemek mümkün müdür acaba?

Hiç bir hücrede formül yoktur diyorsunuz.
O zaman #YOK hatası nerden geliyor?

 

[Orion1]

Hazırladığınız kod için teşekkür ederim fakat hücrede #YOK değerleride bulunuyorsa eğer (hiçbir hücrede formül yoktur) bunlarıda temizlemek mümkün müdür acaba?

Buyurun.

Sub temizle()
Dim hcr As Range
For Each hcr In Range("B4:AF644")
    If IsDate(hcr.Value) Or IsError(hcr.Value) Or _
    Not IsNumeric(hcr.Value) Then hcr.Clear
Next
MsgBox "Silme tamamlandı"
End Sub

 

[irfancantr]

B4:AF644 hücrelerine makrolar sayesinde formülleri yazdırıp daha sonrada
With [B4:AF646]
.Formula = .Value
End With

ile hücreleri formüllerden kurtarıyorum ki dosya fazla şişmesin diye.

ama siz ozaman formülleri düzeltiniz ki bu hatayı almayın diyebilirsiniz, fakat ben sadece böyle bir işlem söz konusumu acaba diye sordum.

Formülleri düzeltmek çok fazla makroyu değiştirmek anlamına geldiğinden size zahmet verdim kusura bakmayın sayın Gizlen, ifademi daha net anlattığımı umuyorum :redface:

 

[Orion1]

Kodlar 16 numaralı mesajdadır.

 

[irfancantr]

Sub temizle()
Dim hcr As Range
For Each hcr In Range("D10:AF644")
If IsDate(hcr.Value) Or IsError(hcr.Value) Or _
Not IsNumeric(hcr.Value) Then hcr.Clear
Next
MsgBox "Silme tamamlandı"
End Sub

Kodda bir hata var diyemiyorum ama "hcr.Clear" kısmında bir problem gözüküyor bende , neden olabilir acaba?

 

[Orion1]

Sub temizle()
Dim hcr As Range
For Each hcr In Range("D10:AF644")
If IsDate(hcr.Value) Or IsError(hcr.Value) Or _
Not IsNumeric(hcr.Value) Then hcr.Clear
Next
MsgBox "Silme tamamlandı"
End Sub

Kodda bir hata var diyemiyorum ama "hcr.Clear" kısmında bir problem gözüküyor bende , neden olabilir acaba?

Problem deiğiniz nedir.Birleştirilmiş hücre varmı.Bu ararlıkta.Varsa oz aman hcr.clear yerine hcr.value="" kullanın.