sadece status kelimesini içeren satırlar gerekli

[mech34]

Merhaba değerli arkadaşlar,

Elimde onbinlerce satır var. hepsi A sütunun'da.
örnek verecek olursam

• google.com/status/blablabla
• buralardayazilarvar
• buralardabaskayazilar var

Bana sadece cümlede status kelimesini içeren satırlar gerekli. Diğer tüm satırları toplu halde nasıl silebilirim? Eğer cümlede status varsa, o satıra hiç dokunmayacağım.

Teşekkür ediyorum.

 

[caneryamac]

Ctrl + F basıp gelen pencereden değiştir sekmesine geçip,
aranan değer: status
Yeni değer:

Yeni değer boş kalacak tümünü değiştir derseniz eğer statüs yazan yerler silinecektir. Uygulayacağınız sütünu seçmeyi unutmayın. Syg.

 

[mech34]

Ctrl + F basıp gelen pencereden değiştir sekmesine geçip,
aranan değer: status
Yeni değer:

Yeni değer boş kalacak tümünü değiştir derseniz eğer statüs yazan yerler silinecektir. Uygulayacağınız sütünu seçmeyi unutmayın. Syg.

Sanırım anlatamadım hocam, ben status kelimesini silmek istemiyorum. status kelimesini içeren satırlara dokunmayacağım, diğer satıların hepsi silinecek. Teşekkürler.

 

[u.L.a.s]

Elimde şöyle bir kod düzeneği var. Fakat bu kod düzeneği içerisinde Status kelimesi bulunan tüm satırları siler. bunun tam tersi durumu oluşturabilecek makro bilgisine sahipsen değiştirebilirsen istediğin sonucu alabilirsin. yada makro konusunda bilgi sahibi arkadaşlar ufak bir kod düzeltmesiyle bu sonucu yaptırabilirler.

Sub SartliSil()
 
Dim son As Long, deg, i As Long, durum As Boolean, j As Integer
 
son = Cells(Rows.Count, "B").End(xlUp).Row
deg = Array("*status*")
 
Application.ScreenUpdating = False
 
For i = son To 2 Step -1
    durum = False
    For j = 0 To UBound(deg)
        If Cells(i, "B") 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
End sub

 

[mech34]

Malesef macro yazacak bilgisine sahip değilim, paylaşım ve yardım için teşekkürler, ancak o kodu meraktan denedim, nedense bende calısmadı.

 

[u.L.a.s]

bu kod düzeneği b sütunundaki değerler için geçerliydi

senin değerler a sütununda o zaman şöyle bir değişiklik olacak

Sub SartliSil()
 
Dim son As Long, deg, i As Long, durum As Boolean, j As Integer
 
son = Cells(Rows.Count, "[COLOR="Red"]A[/COLOR]").End(xlUp).Row
deg = Array("*status*")
 
Application.ScreenUpdating = False
 
For i = son To 2 Step -1
    durum = False
    For j = 0 To UBound(deg)
        If Cells(i, "[COLOR="Red"]A[/COLOR]") 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
End sub

 

[caneryamac]

Sanırım anlatamadım hocam, ben status kelimesini silmek istemiyorum. status kelimesini içeren satırlara dokunmayacağım, diğer satıların hepsi silinecek. Teşekkürler.

Merhaba ,

Ben yanlış anlamışım. O zaman bana bir örnek dosya yüklerseniz size daha rahat yardımcı olabilirim. Yükle yemiyorum derseniz şu şekilde izah etmeye çalışayım. Statüs yazan sütunun en üst satırına filtreleme yapın. Sonrasında filtre yaptığınız yere gelip aşağı açılan menüsünden, metin filtreleri diye bir bölüm var oradan içermez kısmına gelip statüs yazın.. Statüs olmayan tüm satırları size süzecektir . devamında süzülen satırları silebilirsiniz.

 

[tahsinanarat]

A stununda Status kelimesinin geçtiği satırları Sayfa2 ye aktaran kodlar (kodlar Evren hocama aittir)

Sub Status()
Dim sh As Worksheet, sat As Long, i As Long, sat1 As Long
Dim k As Range, adr As String
Set sh = Sheets("Sayfa2")
Application.ScreenUpdating = False
sh.Range("A2:C65536").ClearContents
Sheets("Sayfa1").Select
sat1 = 2
sat = Cells(65536, "A").End(xlUp).Row
Set k = Range("A2:d" & sat).Find("Status", , xlValues, xlPart)
If Not k Is Nothing Then
    adr = k.Row
    Do
        sh.Range("A" & sat1 & ":C" & sat1).Value = Range("A" & k.Row & ":C" & k.Row).Value
        sat1 = sat1 + 1
        Set k = Range("A2:d" & sat).FindNext(k)
    Loop While Not k Is Nothing And k.Row <> adr
End If
sh.Select
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "İşlem sonuçlanmıştır!", vbOKOnly + vbInformation, "BİTTİ"
End Sub

 

[ens]

yukarıda verilen kodu şu şekilde değiştirip dener misiniz.

deg <> Array("*status*")

 

[ens]

bu kod düzeneği b sütunundaki değerler için geçerliydi

senin değerler a sütununda o zaman şöyle bir değişiklik olacak

Sub SartliSil()
 
Dim son As Long, deg, i As Long, durum As Boolean, j As Integer
 
son = Cells(Rows.Count, "[COLOR="Red"]A[/COLOR]").End(xlUp).Row
deg = Array("*status*")
 
Application.ScreenUpdating = False
 
For i = son To 2 Step -1
    durum = False
    For j = 0 To UBound(deg)
        If Cells(i, "[COLOR="Red"]A[/COLOR]") 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
End sub

deg <> Array("*status*") yapıp deneyiniz ...!

 

[Necdet]

Makroya gerek var mı?

A sütununda Metin Filtresinde içermeyeni seçin
oraya status yazın

ve filtreleyin
içinde status geçmeyen tüm satırlar listelenecektir.

listelenen satırları seçip silebilirsiniz.