hücre içindeki değere göre satır silme

[zodehala]

excel 2010 kullanıyorum

1-ekteki dosyada adresler var bu adreslerde istanbul dışındaki tüm adreslerin satırını nasıl seçip silebilirim.

2- metni sütünlara dönüştür işlemi ile hücre içindeki adreslerde yazan İL isimlerine göre ayırmak istiyorum .bi nevi hücre içindeki illlerei ayrı bi hücreye çıkarmak istiyorum

(siz silmeyin işlemi öğretirseniz memnun oluruz )

 

[N.Ziya Hiçdurmaz]

yanıt

Sub istanbulolmayanlar()
Dim sat As Integer
For sat = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
    If Not Cells(sat, "a") Like UCase(Replace(Replace("*" & "İSTANBUL" & "*", "i", "İ"), "ı", "I")) Then
        Cells(sat, "a").Interior.ColorIndex = 6
    End If
    If Cells(sat, "a") Like UCase(Replace(Replace("*" & "İSTANBUL" & "*", "i", "İ"), "ı", "I")) Then
    Cells(sat, "b") = "İSTANBUL"
    End If
Next
End Sub

 

[CILEKESH]

Biraz manüel oldu ama iş görür.

 

[Necdet]

Alternatif olsun.

B1 hücresine aşağıdaki formülü yazın ve diğer satırlara kopyalayın. Değeri "YANLIŞ" olanlar "İSTANBUL" içeren adrestir.
"DOĞRU" olanları süzdürüp silebilirsiniz.

=EHATALIYSA(MBUL("istanbul";A2;1))