A sutunundaki bu karekterleri toplu silmem gerekiyor.

[prejtr]

Merhaba, benim hic excel ile işim olacağı aklıma gelmezdi ama oluyormuş zamanla

Elimde bulunan bir listede bir kaç işlemi toplu yapmak istiyorum, bana bu konuda yardımcı olursanız çok vakit kazanmış olurum sayenizde.

Yapmak istediğim şey,

A sütunun ;
"-" ".tv ".org" ".info" kelimelerini içeren ve 15 haneden uzun olan satırları toplu silmek.

Lütfen bana yardım edin

 

[Orion1]

Konu başlığınız forum kurallarına uymuyor.Yardım edin gibi başlıklar kullanmayınız.
Konu başlığınız konuyu anlatan biçimde olmalıdır.
Aksi takdirde konunuz medaratörler tarafından çöp kutusuna taşınıyor.
Lütfen konu başlığınızı değiştiriniz.

 

[prejtr]

Konu başlığınız forum kurallarına uymuyor.Yardım edin gibi başlıklar kullanmayınız.
Konu başlığınız konuyu anlatan biçimde olmalıdır.
Aksi takdirde konunuz medaratörler tarafından çöp kutusuna taşınıyor.
Lütfen konu başlığınızı değiştiriniz.

Değiştirildi hocam, özür dilerim.

 

[Orion1]

Buyurun.

Sub sil59()
Dim sonsat As Long, i As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = sonsat To 1 Step -1
    If Len(Cells(i, "A").Value) > 15 Then
        If InStr(Cells(i, "A").Value, "-") > 0 Or _
            InStr(Cells(i, "A").Value, ".tv") > 0 Or _
            InStr(Cells(i, "A").Value, ".org") > 0 Or _
            InStr(Cells(i, "A").Value, ".info") > 0 Then
            Rows(i).Delete
        End If
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub