boşsa sil

[turkanet]

ve sonunda oldu,

yardımı dokunan tüm değerli arkadaşlara ve bu değerli foruma teşekkür ederim...

 

[turkanet]

değerli arkadaşlar,

bu konudaki kodları başka bir çalışmamda kullanmak istedim.

amaç: E1:E5000 arasındaki hücreler, "36' SAHA" yada "42' SAHA" yada "36' SAHAS" yada "42' SAHAS" değilse veya boşsa, o satırı silsin

bu amaçla, bu konudaki değerli ustaların önerdiği tüm formülleri denememe rağmen, aşağıda belirttiğim makro, tüm satırı siliyor;
-----------------------------------
Sub sil()
For t = 5000 To 1 Step -1
If Cells(t, 5) <> "36' SAHA'" And Cells(t, 5) <> "42' SAHA'" And Cells(t, 5) <> "36' SAHAS" And Cells(t, 5) <> "42' SAHAS" And Cells(t, 5) = "" Then
Rows(t).Delete shift:=xlDown
End If
Next
End Sub
----------------------------------

değerli yardımlarınızı beklerim

saygılar

 

[Necdet]

Merhaba,

Sub sil()
For t = [E65536].End(3).Row To 1 Step -1
   If Cells(t, 5) <> "36' SAHA'" And _
      Cells(t, 5) <> "42' SAHA'" And _
      Cells(t, 5) <> "36' SAHAS" And _
      Cells(t, 5) <> "42' SAHAS" Or _
      Cells(t, 5) = "" Then
      Rows(t).Delete shift:=xlDown
   End If
Next
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Birde bu şekil deneyiniz.

Sub sil()
For t = [e65536].End(3).Row To 1 Step -1
If Range("e" & t) <> "36' SAHA'" And Range("e" & t) <> "42' SAHA'" And Range("e" & t) <> "36' SAHAS" And Range("e" & t) <> "42' SAHAS" Then
Range("e" & t).Offset(0, 0).Delete shift:=xlUp
End If
Next
End Sub

 

[kombo]

amaç: E1:E5000 arasındaki hücreler, "36' SAHA" yada "42' SAHA" yada "36' SAHAS" yada "42' SAHAS" değilse veya boşsa, o satırı silsin

yazdığınız kodu bir de şöyle deneyin.

Sub sil()
For t = 5000 To 1 Step -1
If Cells(t, 5) <> "36' SAHA'" [COLOR=blue]or[/COLOR] Cells(t, 5) <> "42' SAHA'" [COLOR=blue]or[/COLOR] Cells(t, 5) <> "36' SAHAS" [COLOR=blue]or[/COLOR] Cells(t, 5) <> "42' SAHAS" [COLOR=blue]or[/COLOR] Cells(t, 5) = "" Then
Rows(t).Delete shift:=xlDown
End If
Next
End Sub

 

[turkanet]

SN KOMBO;
vermiş olduğunuz kod, belgedeki tüm satırları siliyor

SN. V.BASIC ve SN.Necdet Yesertener
kodlar düzgün çalıştı

yanıt yollaya zahmetinde bulunan tüm arkadaşlara minnettarım

saygılar