Girilen veriye göre satır silmek

[heza]

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:

 

[xxrt]

Amacınızı gerçekletirmek için farklı bir yol önermek isterim.

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

 

[heza]

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.

 

[Serpily]

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.

 

[xxrt]

İlk ben Kutluyayım ozaman. :bravo: :bravo:

 

[heza]

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]

serpily'nin affına sığınarak;

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

If InStr(1, Trim(Cells(i, 1)), deg) >= 1 Then

 

[heza]

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]

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:

 

[Serpily]

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.

 

[heza]

farkındayım ilginiz için teşekkürler sizler de olmasanız.......

 

[Haluk]

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: