koşullu temizleme

[meda58]

arkadaşlar J 55 hücresinde yazan ile C56 ile C119 hücreleri arasında aynı olanların içeriğini temizlemek makro yardımı ile mümkün olurmu

örneğin J55 hücresinde MLT yazıyorsa C56 ile C119 hücrelerindeki MLT yazanları temizleyecek


şimdiden teşekkürler

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub TEMİZLE()
    For Each Veri In Range("C56:C119")
        If Veri.Value = Range("J55") Then Veri.Value = ""
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[meda58]

hocam ilk hücreyi temizledikden sonra hata veriyor

If Veri.Value = Range("J55") Then

satır sarı oluyor

 

[Korhan Ayhan]

Hata vermemesi gerekir. Test ederek kodu size önerdim. Sizin tablonuzun yapısı farklı olabilir. Kontrol edin.

 

[meda58]

hocam ben bir türlü beceremedim size dosyayı gönderiyorum dosyada ATAMA sayfasına uygulanacak
sizi yorduğum için kusura bakmayın

 

[Korhan Ayhan]

Dosyanızda vba ve sayfa koruması var. Foruma dosya eklerken bu korumaları kaldırmanız gerekir. Aksi takdirde dosyanızı nasıl inceleyeceğiz.

Ayrıca butona tıkladığımda hata mesajı almadım. Makro çalışıyor.

 

[meda58]

hocam özür dilerim aceleden öyle oldu dosyayı yeniden yükledim kusura bakmayın

 

[meda58]

konu güncel