Satırları Kesip yapıştırma makrosu nasıl yazılır?

[Araştırıcı]

Değerli uzmanlarımız ve forum paylaşımcı arkadaşlar,
Merhaba,

Sayfada satırları kesip, satırları (eksilen satırın üzerine yukarı taşıyarak) alttaki en son veri girilmiş satırdan 1 altına yapıştıran bir kodu nasıl yazabiliriz?
Bu olayın yöntemini herahangibir satıra ya da hücreye çift tıklama ile yapabiliriz?
Saygılarımla

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Sayfada A sütununda herhangi bir hücreye çift tıkladığınızda tıkladığınız hücreye ait tüm satırı A sütunundaki en son dolu hücrenin altına kesip yapıştırır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    Cancel = True
    SON_SATIR = [A65536].End(3).Row + 1
    Rows(ActiveCell.Row).Cut
    Rows(SON_SATIR).Insert Shift:=xlDown
End Sub

 

[girdap]

Sayın Cost Control

Değerli paylaşımınız için çok teşekkür ederim.