Veri satırını diğer sayfaya aynen aktar

[kontto]

Arkadaşlar sizden istediğim yardım, C:C sütununda yer alan bilgilerimden herhangi birinin üzerine geldiğim zaman yani o hücrede olduğum zaman örnek C3 hücresinde olduğum zaman aktar butonuna tıkladığımda VERI sayfasına A3:J3 satırları arasını aynen aktarmasıdır. Yani bu aktarma işlemi C:C sütununda hangi hücreye gelirsem butona her tıkladığımda VERI sayfasına aşağıya doğru aktarılarak devam etmesidir. Yardımlarınız için teşükkür ederim.
Örnek dosya ekliyorum.
Lütfen yardım edin.

 

[asi_kral]

Merhaba
Boş bir module kopyalayın , Butona makroyu atayın ve deneyin.

Option Explicit
Sub aktar()
Dim S1 As Worksheet, STR As Long
Application.ScreenUpdating = False
Set S1 = Sheets("VERI")
STR = S1.Range("A" & Rows.Count).End(xlUp).Row + 1
If ActiveCell.Column = 3 Then
Range("A" & ActiveCell.Row & ":J" & ActiveCell.Row).Copy _
S1.Range("A" & STR)
End If
Application.ScreenUpdating = True
End Sub

 

[kontto]

Sayın asi kral çok teşekkür ederim. Emeğinize sağlık

 

[asi_kral]

Sayın asi kral çok teşekkür ederim. Emeğinize sağlık

Kolay Gelsin.

 

[kontto]

Çok teşekkür ederim.