satır sil

[gokdag]

100 yakın bilgim var ve aralarından bir kaç satırı silmek istiyorum

içinde ADB,ADA BJV Olan satırları silmek istiyorum

 

[Korhan Ayhan]

Selamlar,

Sorunuz çok açık değil.

Bence sorunuzu şu şekilde sormalıydınız.

A-E sütun aralığında 100 satırdan oluşan bir tablom var.
Ben bu tabloda B sütunundaki hücre içeriklerinde ADB,ADA,BJV yazan
satırları silmek istiyorum. Silme işlemi tüm satır olarak yapılacaktır.
 
Teşekkürler.

Örnek dosya eklemediğiniz sorularınızı yukarıdaki tarzda sorarsanız yanıt almanızda o denli hızlanacaktır.

Sizin sorduğunuz soruya eğer kendi kafamıza göre cevap verirsek eminimki sütunlar uyuşmayacaktır. Ve siz tekrar mesaj yazmak zorunda kalacaksınız.

 

[gokdag]

Örnek olarak

silmek istediğim şeyler bunlar

bu kod sadece bunları ayıklıyor ben tam tersini istiyorum ve silinmesini istiyorum


Sub sil()
For i = Cells(65536, 8).End(xlUp).Row To 2 Step -1
If Trim(Cells(i, 8)) <> "ADA" And Trim(Cells(i, 8)) <> "ADB" And Trim(Cells(i, 8)) <> "AYT" And Trim(Cells(i, 8)) <> "BJV" And Trim(Cells(i, 8)) Then
Rows(i & ":" & i).Delete Shift:=xlUp
End If
Next

End Sub

 

[Necdet]

Merhaba,

Sub sil()
For i = Cells(65536, 8).End(xlUp).Row To 2 Step -1
    If Trim(Cells(i, "G")) = "ADA" Or Trim(Cells(i, "G")) = "ADB" Or _
       Trim(Cells(i, "G")) = "AYT" Or Trim(Cells(i, "G")) = "BJV" Then
        Rows(i).Delete
    End If
Next
End Sub

 

[gokdag]

Te&#351;ekk&#252;r ederim.

istedi&#287;im gibi oldu ama bo&#351; olanlarda &#231;&#305;kt&#305; onlar&#305; nas&#305;l yapar&#305;z

 

[Necdet]

Bir koşulu daha kontrol etmek gerek o zaman.

Sub sil()
For i = Cells(65536, 8).End(xlUp).Row To 2 Step -1
If Trim(Cells(i, "G")) = "ADA" Or Trim(Cells(i, "G")) = "ADB" Or _
Trim(Cells(i, "G")) = "AYT" Or Trim(Cells(i, "G")) = "BJV" [B][COLOR=red]Or _[/COLOR][/B]
[COLOR=red][B]Trim(Cells(i, "G"))[/B] [B]= ""[/B] [/COLOR]Then
Rows(i).Delete
End If
Next
End Sub

 

[gokdag]

Te&#351;ekk&#252;rler

Trim(Cells(i, "G")) = "" Or Trim(Cells(i, "G")) = "" Or _


Bende bu y&#246;ntemle hallettim