• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü Kelime Bul ve Satır Sil

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

RBozkurt

Yeni Üye
Katılım
25 Ara 2021
Mesajlar
322
Çözümler
36
Aldığı beğeni
205
Excel V
Office 2021 TR
Konu Sahibi
Merhaba
Ekte örnek olarak eklediğim dosyada V Sütununda "Ölüm" ve "Kapalı" kelimelerini arama yapıp bulunan satırları komple nasıl sildirilebilir.
Teşekkür ederim 🙏
 
Çözüm
Sheets("Kaynak2").Activate
Sheets("Kaynak2").Range("W1").Select

For k = Sheets("Kaynak2").Cells(Rows.Count, "H").End(3).Row To 2 Step -1
If Trim(Sheets("Kaynak2").Cells(k, 22)) = "Kapalı" Or Trim(Sheets("Kaynak2").Cells(k, 22)) = "Ölüm" Then
Rows(Sheets("Kaynak2").Cells(k, 22).Row).EntireRow.Delete
End If
Next
Sheets("Kaynak2").Activate
Sheets("Kaynak2").Range("W1").Select

For k = Sheets("Kaynak2").Cells(Rows.Count, "H").End(3).Row To 2 Step -1
If Trim(Sheets("Kaynak2").Cells(k, 22)) = "Kapalı" Or Trim(Sheets("Kaynak2").Cells(k, 22)) = "Ölüm" Then
Rows(Sheets("Kaynak2").Cells(k, 22).Row).EntireRow.Delete
End If
Next
 
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst