18. Satır silinemesin

[domino]

Veri olan en son satırdan başlayarak satırları userform üzerinden siliyorum fakat 18. satırın silinmesini istemiyorum. Nasıl bir kod kullanabilirim.

sonsat = Range("a65536").End(3).Row
Rows(sonsat).Select
Selection.ClearContents

 

[Emir Hüseyin Çoban]

. . .

sonsat = Range("a65536").End(3).Row
If Selection.Row <> "18" Then
Rows(sonsat).Select
Selection.ClearContents
Else: End If

. . .

 

[domino]

. . .

sonsat = Range("a65536").End(3).Row
If Selection.Row <> "18" Then
Rows(sonsat).Select
Selection.ClearContents
Else: End If

. . .

neden olmadı?
Hala siliyor

 

[dEdE]

Merhaba,
Bir de bunu dener misiniz?

Sub sil()
sonsat = Range("A65536").End(3).Row
If sonsat <> 18 Then Rows(sonsat).ClearContents
'Üst satır içeriği temizler, Alt satır ilgili satırı siler _
ikisinden birini kullanıp diğerini silebilirsiniz.
If sonsat <> 18 Then Rows(sonsat).Delete Shift:=xlUp
End Sub

 

[domino]

Merhaba,
Bir de bunu dener misiniz?

Sub sil()
sonsat = Range("A65536").End(3).Row
If sonsat <> 18 Then Rows(sonsat).ClearContents
'Üst satır içeriği temizler, Alt satır ilgili satırı siler _
ikisinden birini kullanıp diğerini silebilirsiniz.
If sonsat <> 18 Then Rows(sonsat).Delete Shift:=xlUp
End Sub

Bu oldu teşekkür ederim