Girilen veriye göre satır silmek

Katılım
7 Temmuz 2004
Mesajlar
132
Excel Vers. ve Dili
EXCEL 2003 TR
Eklediğim dosyada da sorumu sordum ama şöyle yeniden anlatayım.

Elimde bulunan bir çalışma sayfasında bir kelimeyi e1 hücresine yazdığımda o kelime hangi satırda geçiyorsa o satırları silsin istiyorum.
Lütfen yardım :hey:
 
X

xxrt

Misafir
Amacınızı gerçekletirmek için farklı bir yol önermek isterim.
Kod:
Sub tt()
Dim i, say1, say2 As Integer
Dim hucre As Range
say1 = WorksheetFunction.CountA(Range("B2:b3000"))
say2 = WorksheetFunction.CountA(Range("A2:A3000")) + 1
Range("A1:A" & say2).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B1"), Unique:=True
For i = 1 To say1
For Each hucre In Range("A2:A" & say2)
If Cells(i + 1, "B") = hucre Then
End If
Next hucre
Next i
For i = 1 To say1
Next i
End Sub
 
Katılım
7 Temmuz 2004
Mesajlar
132
Excel Vers. ve Dili
EXCEL 2003 TR
sevgili xxrt bu işimi görmez.Ben satırın içindeki cümlede heza geçiyorsa o satırı silsin istiyorum.
yani

1 merhaba
2 nasılsın heza
3 iyiyim forum dostları
4 nereden geliyorsun heza
5 söylemem banane

yukarıdaki 5 satırdaki cümlelerde e1 hücresine heza yazınca 2 ve 4. satırlar silinmeli.
 
Katılım
28 Temmuz 2004
Mesajlar
275
ben de sorunuzu şöyle anladım.

Sub sil()
Dim i As Integer
Dim deg As String
deg = Range("e1").Value
For i = 1 To Cells(65536, 1).End(xlUp).Row
If Trim(Cells(i, 1)) = deg Then
Rows(i).Select
Selection.Delete Shift:=xlUp
End If
Next i
End Sub


Bu arada bu şey ne ise makro filan olabilir ilk denememdi. Beni kutlayabilirsiniz. Sanırım yanlışları vardır ama yine de benim çok hoşuma gitti.
 
Katılım
7 Temmuz 2004
Mesajlar
132
Excel Vers. ve Dili
EXCEL 2003 TR
serpily gayet güzel çalışıyor teşekkürler fakat sadece kelime varsa.Demin de
dediğim gimi cümle içinde geçtimi silmiyor.
Yine de sağol ama sen buna da bir çözüm bulursun.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
serpily'nin affına sığınarak;

"If" sorgusunu aşağıdaki gibi değiştirdikten sonra bir deneyin, bakalım olucak mı ?

Kod:
If InStr(1, Trim(Cells(i, 1)), deg) >= 1 Then
 
Katılım
7 Temmuz 2004
Mesajlar
132
Excel Vers. ve Dili
EXCEL 2003 TR
işte budur işte bu serpily ve raider işbirliği ile sorun çözüldü.
Ellerinize sağlık teşekkürler dostlarım. :hey: :hey:
 

Hüseyin

Administrator
Yönetici
Admin
Katılım
2 Haziran 2004
Mesajlar
3,534
Excel Vers. ve Dili
Excel 2010 - Türkçe
Bu arada bu şey ne ise makro filan olabilir ilk denememdi. Beni kutlayabilirsiniz.
Merhaba,
tebrik ediyorum ve geçmiş olsun diyorum. :bravo:
Sanırım yanlışları vardır ama yine de benim çok hoşuma gitti.
Bu düşünce hastalığın ilk belirtilerindendir. :hihoho:
Hastalığın ilerlemiş safhalarını forumdaki çeşitli üyelerde görebilirsiniz. :hiho:
 
Katılım
28 Temmuz 2004
Mesajlar
275
Sayın heza küçük bir ayrıntı için tekrar yazıyorum. Sizin ikinci mesajınızın saati 15.15 benim mesajımın saati ise 15.16. Yani anlatabiliyor muyum. Yoksa sizin probleminiz bizim problemimizdir. İsterseniz içindeki harfi bile arattırırız sizin için.
 
Katılım
7 Temmuz 2004
Mesajlar
132
Excel Vers. ve Dili
EXCEL 2003 TR
:D :D farkındayım ilginiz için teşekkürler sizler de olmasanız.......
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Sayın heza küçük bir ayrıntı için tekrar yazıyorum. Sizin ikinci mesajınızın saati 15.15 benim mesajımın saati ise 15.16. Yani anlatabiliyor muyum.
heheheee..... walla ben farkında değildim, sazan gibi de atılmışım oltaya.... :mrgreen:
 
Üst