Satır Silme (ile başlar yöntemiyle)

[Korhan Ayhan]

Selamlar,

Arkadaşlar aşağıdaki makro ile satır silme işlemi yapıyorum fakat şöyle bir değişiklik yapmak istiyorum. Kod ile "DENEME" olanları siliyorum. "DE" ile başlayanları silmek için nasıl bir düzenleme gerekir.

Sub SATIRSİL()
For X = 2 To [D65526].End(3).Row Step 1
If Cells(X, 4).Value = "DENEME" Then
Rows(X).Delete
End If
Next
End Sub

 

[İdris SERDAR]

If Cells(X, 4).Value ="*" & Cell(x,4).Value Then

Şeklinde deneyin.

 

[Kemal Demir]

Selamlar,

Sub SATIRSİL()
For X = 2 To [D65526].End(3).Row Step 1
If Cells(X, 4) [u]like "*De*" [/u]Then
Rows(X).Delete
End If
Next
End Sub

Buda İşinizi Görür.(Altı Çizili olan Satır içinde Geçen ifadesini taşır.

 

[Recep İpek]

Merhaba,

Aşağıdaki kodları deneyebilirmisiniz?

[vb:1:f0004af266]
Sub SATIRSİL()
Dim x, i
For i = 1 To 5 '*
For x = 2 To [D65526].End(3).Row Step 1
If Cells(x, 4) Like "*de*" Then
Rows(x).Delete
End If
Next x
Next i
End Sub
[/vb:1:f0004af266]

*Bazılarını silmediği için tekrar makronun çalıştırılması gerekiyor.
İsterseniz bu sayıyı attırabilirsiniz.

Kolay Gelsin.

 

[Korhan Ayhan]

Arkadaşlar hepinize teşekkür ederim. :arkadas:

 

[KarıncaZ]

Merhaba arkadaşlar. Koşula bağlı silme yapacam ama tam istediğim gibi olmuyor.Hatam nerede bir bakarsanı sevinirim. A1 Hücresindeki sayı ne ise aşağıdaki hücrelerde aynısı var ise silecek ama hepsini silmiyor. Şimdiden Teşekkürler. Dosya ektedir. :hey:

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki gibi denermisiniz.

Sub Kritere_Göre_Sil()
For i = Cells(65536, 1).End(xlUp).Row To 2 Step -1
If Cells(i, 1) = Cells(1, 1) Then
Application.Cells(i, 1).Delete
End If
Next i
End Sub

Ayrıca bu şekilde Sn. ripek'in bana önermiş olduğu cevaptaki sıkıntıda giderilmiş oldu.

*Bazılarını silmediği için tekrar makronun çalıştırılması gerekiyor.
İsterseniz bu sayıyı attırabilirsiniz.

 

[KarıncaZ]

Çok teşekkürler. Sorunu hallettim. :mutlu: :hihoho: :hey:

 

[ipkisiyamaksosis]

Merhaba,

S sütununda Pasif olan satırları silmek istiyorum, yani tamamen yok etmek istiyorum.Forumdaki bazı örneklere bakarak yapmaya çalıştım fakat olmadı.

Birde örn: C, K, ve Z sütunlarını silmek istiyorum.

Bu iki konuda bana yardımcı olursanız sevinirim.

Şimdiden teşekkür ederim.

 

[ipkisiyamaksosis]

Pardon sanırım yanlış yere gönderdim.