Belirli kelimelerin bulunduğu satırları silme

[bilal5412]

Yardımlarınız ve ilginiz için müteşekkirim.

 

[bilal5412]

İlave bir soru olarak, ekte verdiğim resimde filtre yapılmış bir sütunda kısa yoldan bugün tarihini göstermesi açısından kod yazılabilir mi?

 

[Korhan Ayhan]

Aşağıdaki kodu kullanabilirsiniz.

Sub Makro1()
    If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData
    Range("A2").AutoFilter Field:=1, Criteria1:=Format(Date, "yyyy-mm-dd")
End Sub

 

[bilal5412]

2.ilave olarak hücre bulma bulma kutusu nasıl yapılabilir.

 

[bilal5412]

Bu şekilde bir arama text'i yapmak istiyorum. Yardımcı olabilir misiniz.

 

[darkvenue]

Merhabalar Omer Bey
Bu satır silme islemini aynı anda tüm exceldeki sayfalar için yapmak mümkün müdür?
Bu sanırım sadece aktif sayfada çalışıyor.

 

[Asri]

Farklı bir çözüm ve farklı işlemler için bu eklentiyi de kullanabilir siniz?

http://www.excel.web.tr/f133/excel-texttools-eklentisi-t124871.html

 

[haykhayko]

Merhaba herkese, eski bir konu ancak yeni konu açmak istemedim. Bana da yardımcı olabilirseniz sevinirim. Sayfadaki @ simgesi bulunmayan tüm satırları silmek istiyorum. @ simgesi bulunan satırlar kalacak diğerleri silinecek. Nasıl yapabilirim ?

 

[o2l3m]

*arkaduvar* Haricindeki diğer tüm satırları silmek istense kod nasıl olur. Lütfen acil yardım.

Merhaba,

Ömer beyin önerdiği koda sütun seçme satırı eklenirse istediğiniz olur. Aşağıdaki gibi deneyiniz.

Option Explicit
Option Compare Text

Sub SartliSil()
 
    Dim sutun As String, son As Long, deg, i As Long, durum As Boolean, j As Integer
 
    sutun = InputBox("İşlem yapmak istediğiniz sütun bilgisini giriniz.", , "A")
    If sutun = "" Then Exit Sub
    son = Cells(Rows.Count, sutun).End(xlUp).Row
    deg = Array("*arka duvar*", "*kavela*")
 
    Application.ScreenUpdating = False
 
    For i = son To 1 Step -1
        durum = False
        For j = 0 To UBound(deg)
            If Cells(i, sutun) Like deg(j) Then durum = True
            If durum = True Then Exit For
        Next j
        If durum = True Then Rows(i).Delete Shift:=xlUp
    Next i
 
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[cengiz123]

Bilgilerin satır sırası önemli değilse, bence satır silme fonksiyonunu kullanmayın.
Veri çok olduğunda exceli kasabilir. Tabi buradaki ustalar çok daha iyisini bilir.
Benim Önerim bahsettiğiniz kelimelerin bulunduğu satırı temizleyip, sıralama fonksiyonu işe boşlukları yok etmenizdir

 

[o2l3m]

Satır verisi çok fazla evet. Fakat bu kod nedense çok hızlı çalışyor.
O nedenle bir cevap gelirse epey işimi görecek.