Koşullu satır sildirmeme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Koşullu satır sildirmeme

İleti#1)  dexterity » 10 Ekm 2019 10:24

Merhaba,
Koşullu olarak satır sildirmemek için yardımlarınızı talep ediyorum.

Elimde yaklaşık 20 bin satırlık ve 18 sütunluk bir excel dosyası var. Satırlarda yer alan verilerden belli kelimeleri içeren satırların kalıp, diğerlerinin silinmesini istiyorum.

Forumda tüm gece arama yaptım ama istediğim kodu bulamadım.

Yardımlarınız için şimdiden teşekkürler.
Kullanıcı avatarı
dexterity
 
Kayıt: 09 Ekm 2019 21:41
Meslek: Doktor
Yaş: 35
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Trabzon

Cevap: Koşullu satır sildirmeme

İleti#2)  Ali ÖZ » 11 Ekm 2019 09:53

Buyurun.

Kod: Tümünü seç
Sub sartlisil()
  For i = Range("a65536").End(3).Row To 2 Step -1
    If Not (Range("a" & i).Value Like "*ali*" Or Range("a" & i).Value Like "*öz*") Then
      Rows(i).Delete
    End If
  Next
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9864
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

Bumerang - Yazarkafe