Satır kopyalama

[ASLAN7410]

Merhaba, hayırlı akşamlar.

Ekte gönderdiğim excel dosyamın G sütununda herhangi bir hücreye bastığımda inputbox kutusu çıkmaktadır, kutudaki sayıya göre tıkladığım hücre satırını kopyalarak, alta yapıştırmasını istiyorum.

Yardımcı olur musunuz?

 

[hamitcan]

Bu şekilde deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 7 Then Exit Sub
    Dim x As Integer
    x = InputBox("bir sayı girin")
    For i = 1 To x
      Rows(ActiveCell.Row).Copy
        Rows(ActiveCell.Row + i).Select
        Selection.Insert Shift:=xlDown
        Application.CutCopyMode = False
    Next
End Sub

 

[ASLAN7410]

Sayın hamitcan, çok teşekkür ederim, ellerinize sağlık.

Hayırlı günler diliyorum.