makro ile satır sildirme

[magnet2014]

Arkadaşlar merhaba,

Satır silme için makromun bir kısmında aşağıdaki kodu kullanıyorum Ancak s2.Rows("P").Select kısmında hata veriyor. Neden olabilir yardımcı olursanız sevinirim.

Teşekkürler


Private Sub CommandButton3_Click()

If MsgBox("KAYIT SiLiNECEK!!! EMiNMiSiN??? ", vbYesNo, "UYARI!") = vbNo Then

If CloseMode = 0 Then
Cancel = True
End If
Unload UserForm1
Else

Set s1 = Sheets("CH1-1 transfer")
Set s2 = Sheets("Ödemeler 2016")

q = ActiveCell.Row
P = TextBox9.Value - 1


s1.Cells(q, "L").Select
Selection.ClearContents
s1.Cells(q, "M").Select
Selection.ClearContents


s2.Rows("P").Select
Selection.EntireRow.Delete Shift:=xlUp
End If


End Sub

 

[veyselemre]

        s2.Rows(p).EntireRow.Delete Shift:=xlUp

olarak deneyin.

 

[magnet2014]

Sorun çözüldü Teşekkür ederim