Hücre içinde w veya x harfleri geçen hücrenin satırını silecek bir makro

[gnorar2]

Arkadaşlar hücre içindeki metinde w ve x harfleri geçen hücrenin satırını silecek bir makro lazım bana. Örneğin C7 hücresinde w veya x harfi yoksa 7. satır kalacak, eğer bu iki harften biri varsa 7. satırı silinecek. Yardım ederseniz sevinirim.

 

[Zeki Gürsoy]

Nerede aranacak? Sayfanın tamamı mı yoksa belirli bir sütunda mı?

 

[ahkork]

isterseniz bunu bir inceleyin

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo err
If Target Like "*" & "w" & "*" Or Target Like "*" & "x" & "*" Then
Target.EntireRow.Delete shift:=xlUp
End If
err:
End Sub

 

[tahsinanarat]

A1 ve B1 hücresine yazdığınız değerlerin geçtiği (a sutununda, dilerseniz a65536'yı istediğiniz sutun harfini yazabilirsiniz) tüm satırları siler
Kod:
Sub sil()
[a2:a65536].Interior.ColorIndex = xlNone
For o = [a65536].End(3).Row To 2 Step -1
If WorksheetFunction.CountIf(Rows(o), "*" & [a1] & "*") <> 0 Then Rows(o).Delete
If WorksheetFunction.CountIf(Rows(o), "*" & [b1] & "*") <> 0 Then Rows(o).Delete
Next
End Sub

 

[cashuacos]

bende şöyle bir kod yazdım bakarmısınız.fakat hata veriyor éfor without next hatası"
benim yaptıgım tüm "a" sutunundaki satılra için değil sadece 6 tabe satır için fakat çalışmadı.aşagıda:

Sub dd()
Dim x As Integer
Dim i As Integer
For i = 1 To 6
For Each hucre In Range("a1:a6")
x = Len(hucre)
If Mid(hucre, x, 1) = "a" Or Mid(hucre, x, 1) = "b" Then
Rows(i).Delete
Next hucre
Next i
End Sub

 

[cashuacos]

bunu döngüye girmeden tek bir hucre için yaptıgımda çalıştı.ama bunda "next without for" hata iletisi alıyorum yardımlarınız için sağolun...

 

[Korhan Ayhan]

Selamlar,

Kulland&#305;&#287;&#305;n&#305;z kodun hata vermesi normaldir. Sn. tahsinanarat beyin &#246;rne&#287;indeki gibi ters d&#246;ng&#252; kurmal&#305;s&#305;n&#305;z.

[COLOR=red]For o = [a65536].End(3).Row To 2 Step -1[/COLOR]

 

[Seyit Tiken]

Bu &#351;ekilde deneyebilirsiniz.

Sub Makro3()
On Error Resume Next
For s = [a6500].End(3).Row To 1 Step -1
Cells(s, 1).Find("a*").EntireRow.Delete
Cells(s, 1).Find("b*").EntireRow.Delete
Next
End Sub

 

[cashuacos]

burda karkterler sadece başında geçerse siliyor karkaterlerin hücrenin herhangi bir yerinde geçmesi durumunda silen makro nasıl olmalı..

 

[Korhan Ayhan]

Selamlar,

Sn. tahsinanarat beyin 5. mesajda verdi&#287;i kodu denedinizmi?