makroda hata

[cashuacos]

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

bu kod ile içinde "a" ve "b" harflerini içeren hücrelerin ulundugu satırları silmek istedim.verdiği hata "for without next " nasıl çalıştırabilirim.
herkese teşekkürler şimdiden...

 

[Orion1]

Sub dd()
Dim x As Integer
Dim i As Integer
For i = 6 To 1 Step -1
On Error Resume Next
x = Len(Cells(i, "A").Value)
If Mid(Cells(i, "A").Value, x, 1) = "a" Or Mid(Cells(i, "A").Value, x, 1) = "b" Then Rows(i).Delete
Next i
End Sub

 

[cashuacos]

ilginiz için teşkkürler ancak makroyu çalıştıramadım.belirlenen karakterlerin oldugu hücre satırnı silmedi.
modul içinde de denedim olmadı

 

[Orion1]

ilginiz için teşkkürler ancak makroyu çalıştıramadım.belirlenen karakterlerin oldugu hücre satırnı silmedi.
modul içinde de denedim olmadı

A1 A6 aralığında ki hücrelerin son karakteri "a" veya "b" olanların satırını siliyor.
Ben denedim.Kodlar sorunsuz çalışıyor.

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil deneyiniz

Sub sil()
Dim SUT As Integer
For SUT = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(SUT, "A") Like "*" & "a" & "*" Or Cells(SUT, "A") Like "*" & "b" & "*" Then
git:
Cells(SUT, "A").EntireRow.Delete SHIFT:=xlUp
If Cells(SUT, "A") Like "*" & "a" & "*" Or Cells(SUT, "A") Like "*" & "b" & "*" Then GoTo git
End If
Next
End Sub

 

[cashuacos]

dediğiniz gibi son satırı "a" yada "b" olanları siliyor.ancal mid fonksiyonu bu harflerin nerde geçtiğine bakmaksızın bulmuyormu.teşekkürler ilginize

 

[Orion1]

dediğiniz gibi son satırı "a" yada "b" olanları siliyor.ancal mid fonksiyonu bu harflerin nerde geçtiğine bakmaksızın bulmuyormu.teşekkürler ilginize

O zaman N.Ziya.Hiçdurmaz bey'in kodlarını kullanmalısınız.!