Tek basamaklı sayı arama

[yanginci34]

Arkadaşlar merhaba; Yapmak istediğim hücrede sadece 1 veya 7 yazan hücreler haricinde diğer sayıları silmek aşağıdaki kod ta ise sonunda 1 veya 7 veya 14 vb gibi varsa sayı kaç olursa olsun silmiyor mesela sayı 814 ve ben bunu silmek istiyorum ama sonunda 14 olduğu için silmiyor. Yardımcı olabilirseniz sevinirim şimdiden teşekkürler.

For e = Sheets("Sayfa1").Range("a" & Rows.Count).End(xlUp).Row To 5 Step -1
metin = Sheets("Sayfa1").Cells(e, "a").Value


If InStr(1, metin, 1) + InStr(1, metin, 7) + InStr(1, metin, 14) + InStr(1, metin, 45) + InStr(1, metin, 90) + InStr(1, metin, 180) + InStr(1, metin, 360) = 0 Then
Rows(e).Delete

End If
Next

 

[çıtır]

İptal ;yanlış cevap

 

[yanginci34]

Ney iptal ?

 

[yanginci34]

Arkadaşlar bu konu hakkında yani hücrelerde bir kaç adet sayı haricinde silmeyi nasıl yaparım.

 

[Zeki Gürsoy]

Aşağıdaki gibi sınayabilirsiniz. "1" ve "7" içermeyenleri siler.

If Not Cells(e, "a") Like "*[17]*" Then
     Rows(e).Delete
End If

.

 

[yanginci34]

Hocam ilginize teşekkürler ama bir sorun var mesela içinde 1 olan 180 de siliniyor ben 180 in silinmesini istemiyorum

 

[Zeki Gürsoy]

... Yapmak istediğim hücrede sadece 1 veya 7 yazan hücreler haricinde diğer sayıları silmek...

Sorunuz tam anlaşılmadı sanırım. Bu sayıları içeren mi yoksa, bu sayılara eşit olanlar mı?

 

[yanginci34]

Hocam 1, 7,14,45,90,180,360 sayılarına eşit olanlar haricindeki hücreleri silmek istiyorum

 

[Zeki Gürsoy]

Bu durumda aşağıdaki gibi kullanın.

If Cells(e, "a") <> 1 And Cells(e, "a") <> 7 And Cells(e, "a") <> 14 And Cells(e, "a") <> 45 And _
   Cells(e, "a") <> 90 And Cells(e, "a") <> 180 And Cells(e, "a") <> 360 Then
     Rows(e).Delete
End If

 

[yanginci34]

Hocam çok teşekkür ederim tam istediğim gibi olmuş.