Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 25-11-2016, 10:39   #1
mech34
 
Giriş: 10/09/2015
Şehir: istanbul
Mesaj: 5
Excel Vers. ve Dili:
Türkçe
Varsayılan sadece status kelimesini içeren satırlar gerekli

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.

Bu mesaj en son " 25-11-2016 " tarihinde saat 11:25 itibariyle mech34 tarafından düzenlenmiştir....
mech34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-11-2016, 11:05   #2
caneryamac
Altın Üye
 
caneryamac kullanıcısının avatarı
 
Giriş: 17/09/2013
Şehir: İstanbul
Mesaj: 124
Excel Vers. ve Dili:
2013
Varsayılan

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.
caneryamac Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-11-2016, 11:08   #3
mech34
 
Giriş: 10/09/2015
Şehir: istanbul
Mesaj: 5
Excel Vers. ve Dili:
Türkçe
Varsayılan

Alıntı:
caneryamac tarafından gönderildi Mesajı Görüntüle
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.
mech34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-11-2016, 11:26   #4
u.L.a.s
 
Giriş: 08/09/2008
Şehir: İstanbul
Mesaj: 533
Excel Vers. ve Dili:
2010 İngilizce
Varsayılan

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.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
u.L.a.s Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-11-2016, 11:39   #5
mech34
 
Giriş: 10/09/2015
Şehir: istanbul
Mesaj: 5
Excel Vers. ve Dili:
Türkçe
Varsayılan

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ı.
mech34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-11-2016, 11:40   #6
u.L.a.s
 
Giriş: 08/09/2008
Şehir: İstanbul
Mesaj: 533
Excel Vers. ve Dili:
2010 İngilizce
Varsayılan

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

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub SartliSil()
 
Dim son As Long, deg, i As Long, durum As Boolean, j As Integer
 
son = Cells(Rows.Count, "A").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, "A") 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
u.L.a.s Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-11-2016, 12:37   #7
caneryamac
Altın Üye
 
caneryamac kullanıcısının avatarı
 
Giriş: 17/09/2013
Şehir: İstanbul
Mesaj: 124
Excel Vers. ve Dili:
2013
Varsayılan

Alıntı:
mech34 tarafından gönderildi Mesajı Görüntüle
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.
caneryamac Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-11-2016, 22:30   #8
tahsinanarat
Altın Üye
 
Giriş: 14/03/2005
Şehir: İstanbul
Mesaj: 1,754
Excel Vers. ve Dili:
Ofis 2016 Türkçe
Varsayılan

A stununda Status kelimesinin geçtiği satırları Sayfa2 ye aktaran kodlar (kodlar Evren hocama aittir)
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
Kolay Gelsin Tahsin.
tahsinanarat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-11-2016, 22:53   #9
ens
Altın Üye
 
Giriş: 17/09/2005
Şehir: ANKARA
Mesaj: 48
Excel Vers. ve Dili:
2010 türkçe
Varsayılan

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

deg <> Array("*status*")
ens Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-11-2016, 22:54   #10
ens
Altın Üye
 
Giriş: 17/09/2005
Şehir: ANKARA
Mesaj: 48
Excel Vers. ve Dili:
2010 türkçe
Varsayılan

Alıntı:
u.L.a.s tarafından gönderildi Mesajı Görüntüle
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

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub SartliSil()
 
Dim son As Long, deg, i As Long, durum As Boolean, j As Integer
 
son = Cells(Rows.Count, "A").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, "A") 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 ...!
ens Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 08:19


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden