Listedeki ismi silince otomatik olarak yukarı kaydırma

[tayfunalbuz]

Bir listedeki ismi siler silmez aynı anda boşluk kapanarak altta kalan isimlerin yukarı kaydığı bir program görmüştüm ama bunu nasıl yapacağımı bilemiyorum. Yardımlarınız için şimdiden teşekkürler.

 

[Seyit Tiken]

Bu yöntem daha pratiktir. Silinecek yere çift tıklayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.EntireRow.Delete
ActiveCell.Offset(1).Activate
End Sub

 

[tayfunalbuz]

Çok teşekkür ederim