Belirli hücreleri temizleyen kodlara altarnetif varmı.

[sinan05]

Herkese Hayırlı günler. Yardımlarınızı rica edebilirmiyim.
Aşağıya eklemiş olduğum kodlar, belirlenen aralıklarda nokta ve sıfır içeren hücreleri temizliyor. Ben bu kodları başka dosyalardan veri getiren makronun sonuna ekledim fakat işlem çok uzun sürüyor. Bu kodlara altarnetif daha hızlı çalışan kodlar varmı acaba. Yardımcı olursanız sevinirim.

For Each hucre In [a2:k2000]
If hucre = "." Or hucre = 0 Then hucre.ClearContents
Next

 

[alicimri]

Değiştir ile yapabilirsiniz.
Dosyanızı yedekledikten sonra, aşağıdaki öneri veya kodu deneyin.
"Aranan"a 0 yazın
"Yeni Değer"e hiç bir şey yazmayın
Seçeneklerde
Tüm hücre içeriğini eşleştir işaretleyin.
Hepsini değiştire tıklayın.
nokta içinde aynı işlemi uygulayın.
kodu aşağıda

 Range("a2:k2000").Replace What:="0", Replacement:="", LookAt:=xlWhole
Range("a2:k2000").Replace What:=".", Replacement:="", LookAt:=xlWhole

 

[sinan05]

Değiştir ile yapabilirsiniz.
"Aranan"a 0 yazın
"Yeni Değer"e hiç bir şey yazmayın
Seçeneklerde
Tüm hücre içeriğini eşleştir işaretleyin.
Hepsini değiştire tıklayın.
nokta içinde aynı işlemi uygulayın.

Hocam dönüşünüz için teşekkürler. Nasıl yapıldığını biraz daha detaylı anlatırmısınız.

 

[sinan05]

hocam yaptım ama bunu koda çevirmek lazım. makro kaydet denemeliyim değilmi.

 

[sinan05]

Değiştir ile yapabilirsiniz.
Dosyanızı yedekledikten sonra, aşağıdaki öneri veya kodu deneyin.
"Aranan"a 0 yazın
"Yeni Değer"e hiç bir şey yazmayın
Seçeneklerde
Tüm hücre içeriğini eşleştir işaretleyin.
Hepsini değiştire tıklayın.
nokta içinde aynı işlemi uygulayın.
kodu aşağıda

 Range("a2:k2000").Replace What:="0", Replacement:="", LookAt:=xlWhole
Range("a2:k2000").Replace What:=".", Replacement:="", LookAt:=xlWhole

Hocam kodları görmemişim çok teşekkür ederim sağolun.
Birde şöyle bir sorunum var, Aşağıdaki kodlarla belirlenen aralıkların hem içeriğini hemde açıklamalarını temizlemek istiyorum fakat hata veriyor. Bu iki işlemi aynı anda yapacak kodlar varmı.

Worksheets("Sayfa1").Range("a3:L65536").ClearConte nts ,ClearComments

 

[sinan05]

Değiştir ile yapabilirsiniz.
Dosyanızı yedekledikten sonra, aşağıdaki öneri veya kodu deneyin.
"Aranan"a 0 yazın
"Yeni Değer"e hiç bir şey yazmayın
Seçeneklerde
Tüm hücre içeriğini eşleştir işaretleyin.
Hepsini değiştire tıklayın.
nokta içinde aynı işlemi uygulayın.
kodu aşağıda

 Range("a2:k2000").Replace What:="0", Replacement:="", LookAt:=xlWhole
Range("a2:k2000").Replace What:=".", Replacement:="", LookAt:=xlWhole

Hocam sağolun fakat kodlar başvuru içeren hücrelerde işe yaramıyor ama normal hücrelerde çalışıyor, başvuru içeren hücreler için revize edilebilirmi acaba.

 

[alicimri]

Birde aşağıdaki gibi deneyin

Worksheets("VERİLER").Range("a2:k2000").Replace What:="0", Replacement:="", LookAt:=xlWhole
Worksheets("VERİLER").Range("a2:k2000").Replace What:="A", Replacement:="", LookAt:=xlWhole
 say = Application.CountIf(Worksheets("VERİLER").Range("a2:k2000"), "0")
 For i = 1 To say
    Worksheets("VERİLER").Range("a2:k2000").Find(What:="0", After:=ActiveCell, LookIn:=xlValues).Activate
ActiveCell.Clear
Next

 

[sinan05]

Birde aşağıdaki gibi deneyin

Worksheets("VERİLER").Range("a2:k2000").Replace What:="0", Replacement:="", LookAt:=xlWhole
Worksheets("VERİLER").Range("a2:k2000").Replace What:="A", Replacement:="", LookAt:=xlWhole
 say = Application.CountIf(Worksheets("VERİLER").Range("a2:k2000"), "0")
 For i = 1 To say
    Worksheets("VERİLER").Range("a2:k2000").Find(What:="0", After:=ActiveCell, LookIn:=xlValues).Activate
ActiveCell.Clear
Next

Ali hocam teşekkür ederim zahmet veriyorum. Yazdığınız kodların hepsini aynen ekledim. Oldu sayılır fakat sadece 0 ları temizliyor A yerine nokta olacaktı ben yanlış yazmışım onu "." yaptım ama sadece "0" ları temizliyor noktalar kalıyor ve sonra şu kod sarı yanıyor ve hata veriyor.
"Worksheets("VERİLER").Range("a2:k2000").Find(What :="0", After:=ActiveCell, LookIn:=xlValues).Activate"