• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

A sutunundaki bu karekterleri toplu silmem gerekiyor.

  • Konbuyu başlatan Konbuyu başlatan prejtr
  • Başlangıç tarihi Başlangıç tarihi
Katılım
6 Şubat 2016
Mesajlar
2
Excel Vers. ve Dili
2010
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 :)
 
Son düzenleme:
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.:cool:
 
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.:cool:

Değiştirildi hocam, özür dilerim.
 
Buyurun.:cool:
Kod:
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
 
Geri
Üst