satır silmek

[cebelitarık]

Merhaba arkadaşlar
korumalı sayfada koruma kaldırılacak
Eğer satır A (ilk sütun) dan IV (son sütun) ye kadar seçilmişse makro çalışmaya devam edecek ve seçili satır tümden silinecek eğer tam satır seçili değilse mokro son bulacak nasıl yazılır.
ve sayfa koruma altına alınacak
aşağıdaki makro tek bir hücre bile seçili olsa hücrenin bulunduğu satırı tüm siliyor. ben tam satır boylu boyunca seçili ise satır silinebilsin istiyorum.
ilgilenecek arkadaşlara teşekkür ederim.

Sub Makro1()
ActiveSheet.Unprotect
Selection.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowDeletingRows:=True
End Sub

 

[cebelitarık]

LÜtfen Yardim ArkadaŞlar

 

[Necdet]

Merhaba,

Aşağıdaki kodları sayfanın kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Columns.Count > 255 Then Selection.Clear
End Sub

 

[cebelitarık]

Teşekkürler Necdet bey
işim görüldü