• DİKKAT

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

Aynı satır içinde var olan - Değerilerini bulup silmek

Katılım
13 Temmuz 2016
Mesajlar
18
Excel Vers. ve Dili
excel 2010
Merhaba arkadaşlar elimde bir liste var ve bu listede ( - ) İşareti ile ayrılmış satırlar mevcut bu ( - ) İşareti talşıyan tüm satırları toplu olarak silmek istiyorum.
Örnek
aa-kkaaaadddddd
kkaaaadddddd-aa
kkaaaaddddddbbb
bbb-kkaaaadddddd
kkaaaadddddd-bbb
ccc-kkaaaadddddd
kkaaaadddddd-ccc
dddkkaaaaddd
ddd-kkaaaadddd
kkaaaadddddd-ddd
kkaaaadddddd-eee
fkkaaaadddddd
f-kkaaaadddddd
kkaaaadddddd-f
gkkaaaadddddd
g-kkaaaadddddd
kkaaaadddddd-g
hkkaaaadddddd
kkaaaaddddddh
h-kkaaaadddddd
kkaaaadddddd-h
kkaaaadddddd-i
jkkaaaadddddd
kkaaaaddddddj
j-kkaaaadddddd
kkaaaadddddd-j
kkkaaaadddddd
k-kkaaaadddddd
kkaaaadddddd-k
lkkaaaadddddd
kkaaaaddddddl
l-kkaaaadddddd
kkaaaadddddd-l
mkkaaaadddddd
kkaaaaddddddm
m-kkaaaadddddd
kkaaaadddddd-m
n-kkaaaadddddd
kkaaaadddddd-n
o-kkaaaadddddd
kkaaaadddddd-o
pkkaaaadddddd
kkaaaaddddddp
p-kkaaaadddddd
kkaaaadddddd-p
rkkaaaadddddd
kkaaaaddddddr
r-kkaaaadddddd
kkaaaadddddd-r
s-kkaaaadddddd
kkaaaadddddd-s
tkkaaaadddddd
kkaaaaddddddt
t-kkaaaadddddd
kkaaaadddddd-t
ukkaaaadddddd
u-kkaaaadddddd
kkaaaadddddd-u
kkaaaaddddddv
v-kkaaaadddddd
kkaaaadddddd-v
ykkaaaadddddd
y-kkaaaadddddd
kkaaaadddddd-y
z-kkaaaadddddd
kkaaaadddddd-z
kkaaaaddddddq
q-kkaaaadddddd
kkaaaadddddd-q
kkaaaaddddddw
w-kkaaaadddddd
kkaaaadddddd-w
kkaaaadddddd-1
2-kkaaaadddddd
kkaaaadddddd-2
3-kkaaaadddddd
kkaaaadddddd-3
4-kkaaaadddddd
kkaaaadddddd-4
kkaaaadddddd5
5-kkaaaadddddd
kkaaaadddddd-5
6kkaaaadddddd
 
1. Auto filter > Text Filter > Contains - OK

2. Süzülenleri seçip, Delete > Delete Sheet Rows


.
 
Merhaba.

Filtre uygulayarak - sadece işareti olanları görünür kılıp bu satırların tümünü, sol taraftaki satır numaralarından seçip, fareyle sağ tık SATIR SİLi seçerek işlemi tamamlayabilirsiniz.

İlle de kod kullanmak istiyorsanız, alt taraftan ilgili sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin ve aşağıdaki kod'u, açılan VBA ekranında sağ taraftaki boş alana yapıştırın ve çalıştırın.
.
Kod:
Sub TİRELİLERİ_SİL()
For satır = [A65536].End(3).Row To 1 Step -1
On Error GoTo 10
If IsNumeric(WorksheetFunction.Search("-", Cells(satır, 1), 1)) = True Then _
    Rows(satır & ":" & satır).Delete Shift:=xlUp
10: Next
End Sub
 
Geri
Üst