Bir önceki satırı Makro ile silmek

[erdur]

Merhaba
Aşağıdaki gibi bir kod var, fakat ben iyice karıştım
Problem şu :
A sütununda "p" yazan kutunun bir üstündeki satırı silsin
CommanButton'a her basılsığında 1 tane satır silsin
Bu işlem "p" yazan satırın bir üstündeki satır da "ps" yazan yer gelindiğinde yapılamasın
Benim iyice karıştığım kod aşağıda
yardımınızı bekliyorum.


Private Sub CommandButton4_Click()
ActiveSheet.Unprotect Password:=("eddizayn")
Dim i As Long
Application.ScreenUpdating = False
For i = [A65536].End(3).Row To 2 Step -1
İf Cells(i-1,"A")= "ps" Then Exit Sub
If Cells(i, "A") = "p" Then
Rows(i - 1).Delete

End If
Next
End If
Next
Application.ScreenUpdating = False
ActiveSheet.Protect Password:=("eddizayn")
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Sub satirsil()
Dim sat As Long
    For sat = 2 To Cells(65536, "a").End(xlUp).Row
        If Cells(sat, "a") = "p" And Cells(sat - 1, "a") <> "ps" Then
            Cells(sat, "a").Offset(-1, 0).Delete
        End If
    Next
End Sub

 

[erdur]

Teşekkür ederim
ancak kod çalışmıyor.
Bir problemmi var acaba

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton4_Click()
    Dim X As Long
    
    ActiveSheet.Unprotect Password:=("eddizayn")
    Application.ScreenUpdating = False
    
    For X = Range("A65536").End(3).Row To 2 Step -1
        If Cells(X - 1, 1) = "ps" Then GoTo Son
        If Cells(X, 1) = "p" Then
        Rows(X).Delete
        GoTo Son
        End If
    Next

Son:
    Application.ScreenUpdating = True
    ActiveSheet.Protect Password:=("eddizayn")
End Sub