Satır çoğaltmak

[kucukdunyam]

kursörün bulunduğu hücreye ait satırdaki verilerin kopyalarak, bir alt satıra satır eklenerek verilerin buraya da aktarılmasını istiyorum, nasıl mümkündür acaba,

 

[Murat OSMA]

Deneyiniz...
A sütunu içindir...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Target.Column <> 1 Then Exit Sub
    If Target.Value <> "" Then
        Target.Offset(1, 0).Select
        Selection.Insert Shift:=3
        Target.Copy Target.Offset(1, 0)
        End If
    Application.CutCopyMode = False
End Sub

 

[kucukdunyam]

Teşekkür ederim.

 

[Murat OSMA]

Rica ederim, iyi günler....