şartlı satır silme

[idealimsin]

merhaba A sütununda arayıp (A) hücrelerinde "istanbul" veya "ankara" metni olmayan hücrenin tüm satırını silmek istiyorum.bunu nasıl gerçekleştirebilirim

 

[Saban Sertkaya]

A sütununda sadece şehir isimleri varsa;

Sub sil()
For a= [a65536].end(xlup).row to 2 step-1
If cells(a,1)<>"istanbul" and cells(a,1)<>"ankara" then
Cells(a,1).entirerow.delete
End if
Next a
End sub

Kodlamasını kullanabilirsiniz.

 

[Saban Sertkaya]

..........

 

[idealimsin]

A sütununda sadece şehir isimleri varsa;

Sub sil()
For a= [a65536].end(xlup).row to 2 step-1
If cells(a,1)<>"istanbul" and cells(a,1)<>"ankara" then
Cells(a,1).entirerow.delete
End if
Next a
End sub

Kodlamasını kullanabilirsiniz.

hocam eline sağlık yardımlarınız için.bu formülü uyguladığımda bütün satırları sildi.belki hata bende hücrenin içinde şehir isimleri ilk kelimede geciyor.devamında rakamlar var örneğin "istanbul:20" "bursa33" ankara:30 gibi bunu nasıl düzenleriz formülü

 

[Saban Sertkaya]

Bu şekilde deneyiniz.

Sub sil()
For a = [a65536].End(xlUp).Row To 2 Step -1
If Mid(Cells(a, 1), 1, 8) <> "istanbul" And Mid(Cells(a, 1), 1, 6) <> "ankara" Then
Cells(a, 1).EntireRow.Delete
End If
Next a
End Sub

 

[idealimsin]

Bu şekilde deneyiniz.

Sub sil()
For a = [a65536].End(xlUp).Row To 2 Step -1
If Mid(Cells(a, 1), 1, 8) <> "istanbul" And Mid(Cells(a, 1), 1, 6) <> "ankara" Then
Cells(a, 1).EntireRow.Delete
End If
Next a
End Sub

merhaba hocam
bu formülünüzüde denedim yine bütün satıtı sildi

İstanbul:50
İstanbul:20
17:50
17:20
16:50

A sütununda örnek bu dizilim var

 

[Saban Sertkaya]

Örnek bir dosya ekler misiniz.

Upload için, www.dosya.web.tr 'yi kullanabilirsiniz. Eklediğiniz dosyanın linkini burada paylaşın, dosya üzerinden bakalım.

Not : Örnek dosya bende düzgün çalışıyor.

 

[Korhan Ayhan]

Sanırım büyük-küçük harf sorunu yaşıyorsunuz. Aşağıdaki gibi deneyin.

Sub Sil()
    For X = Cells(Rows.Count, 1).End(3).Row To 2 Step -1
        Veri = UCase(Replace(Replace(Cells(X, 1), "ı", "I"), "i", "İ"))
        If InStr(1, Veri, "İSTANBUL") = 0 And InStr(1, Veri, "ANKARA") = 0 Then
            Cells(X, 1).EntireRow.Delete
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[idealimsin]

Sanırım büyük-küçük harf sorunu yaşıyorsunuz. Aşağıdaki gibi deneyin.

Sub Sil()
    For X = Cells(Rows.Count, 1).End(3).Row To 2 Step -1
        Veri = UCase(Replace(Replace(Cells(X, 1), "ı", "I"), "i", "İ"))
        If InStr(1, Veri, "İSTANBUL") = 0 And InStr(1, Veri, "ANKARA") = 0 Then
            Cells(X, 1).EntireRow.Delete
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

çok teşekkürler hocam eline koluna sağlık çok işimi gördü

 

[kanikani]

A sütununda sadece şehir isimleri varsa;

Sub sil()
For a= [a65536].end(xlup).row to 2 step-1
If cells(a,1)<>"istanbul" and cells(a,1)<>"ankara" then
Cells(a,1).entirerow.delete
End if
Next a
End sub

Kodlamasını kullanabilirsiniz.

İyi günler. bir listem var. Listedeki 2.sayfada bulunan listedeki isim ya da sicili sorgulayarak bulduğum kişinin bulunduğu satırı hem bu sayfada hemde 3. sayfada ve hatta oluşturacağım diğer sayfalarda silmek istiyorum. Hazır makro kullanınca sadece seçilmiş sıradaki satırı siliyor. oysa isimler farklı sıralarda olabiliyor. Bu konuda yardımcı olabilir misiniz?