Makro yardımıyla istediğim verinin silinmesi

[why35]

Herkeze saygılar,

Yapmak istediğim şey , çalışma sayfamın D sütünunda bulunan #YOK yazısının bir makro vasıtası ile silinmesi.
Oluşturmuş olduğum düğmeye bastığımda yukarıdan aşağıya tüm D sütununda bulunan hücrelerin içlerindeki tüm #YOK yazılarının silinmesi.
Bunu ayrı ayrı hem D sütünu hemde tüm çalışma sayfasında nasıl yapabilirim bana yardımcı olursanız çok sevinirim.

Saygılarımla

Barış

 

[why35]

Oluşturmuş olduğum düğmeye bastığımda yukarıdan aşağıya tüm D sütununda bulunan hücrelerin içlerindeki tüm #YOK yazılarının silinmesi.
Yani bu #YOK yazısı bir harf bir rakam yada herhangi bir kelimede olabilir.Ama benim silmek istediğim bu kelime.

Bu konuda yardımlarınızı bekliyorum

Saygılarımla

Barış

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[d:d].SpecialCells(xlCellTypeFormulas, 16).ClearContents

 

[why35]

Aşağıdaki kodu deneyin.

[d:d].SpecialCells(xlCellTypeFormulas, 16).ClearContents

Sayın levent bey
Cevabınız için teşekkür ederim ,
Fakat üstteki formulu denediğimde "hiç bir hücre bulunamadı" hata mesajıyla karşılaştım.Formulden anladıgım kadarıyla o hücre içindeki formul sonucundan çıkan bir hata mesajını bu kodla silmeye çalıştık ama #YOK yazısı başka bir çalışma sayfasından "değerleri kopyalayarak" yapıştırıldı.
Acaba bu yüzdendenmi bu hata mesajıyla karşılaşıyorum.
Yardımınız için teşekkür ederim.

 

[Levent Menteşoğlu]

Dosyanızı eklermisiniz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub SİL()
    For X = 1 To [D65536].End(3).Row
    If IsError(Cells(X, 4)) Then Cells(X, 4).ClearContents
    Next
End Sub

 

[why35]

Dosyanızı eklermisiniz.

İlgili dosya ektedir.

Teşekkür ederim.

 

[why35]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub SİL()
    For X = 1 To [D65536].End(3).Row
    If IsError(Cells(X, 4)) Then Cells(X, 4).ClearContents
    Next
End Sub

Sayın Cost

Benim sorunumu sizlere yanlış aktarmam yüzünden çözüme farklı yönde yaklaşıyorsunuz.Bu benim hatam haklısın.
Ekte göndermiş olduğum dosyayı incelerseniz yapmak istediğim şeyi daha iyi ifade etmiş olacağım.
Göndermiş olduğum dosyadaki #YOK yazıları bir hata döngüsü değil manuel giriştir.
Saygılarımla

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki şekilde de kullanabilirsiniz.

Sub SİL()
    [D:D].SpecialCells(xlCellTypeConstants, 16).ClearContents
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

sub sil()
for a=3 to [d65536].end(3).row
if isnumeric(cells(a,"d"))=false then cells(a,"d").clearcontents
next
end sub

 

[why35]

Aşağıdaki kodu deneyin.

sub sil()
for a=3 to [d65536].end(3).row
if cells(a,"d")="#YOK" then cells(a,"d").clearcontents
next
end sub

Sayın Levent Bey
vermiş olduğunuz kodu yazdığımda

"If Cells(a, "d") = "#YOK" Then" kısmı sarı renkte çizilerek hata veriyor.

Sorunu nedir acaba.

Saygılarımla

 

[Levent Menteşoğlu]

Kodu yukarıda düzelttim yeniden deneyin.

 

[why35]

Sayın Levent ve CostControl

Yardımlarınız , ilginiz ve zaman ayırdığınız için çok teşekkür ederim.

Levent bey vermiş olduğunuz kod çalıştı.İlave bir sorum olacak.
Silmek istediğim eğer numarik bir hane olursa , sabit bir sayı yada sadece özel belirlediğim bir kelime , vermiş olduğunuz kodu nasıl uyarlıyabilirdim.
Teşekkür ederim.

Saygılarımla

Barış

 

[Levent Menteşoğlu]

Bu durumda ilk verdiğim şekli ile kullanın, tırnak işareti içine aranacak kelimeyi yazın.