Her satır için ayrı makro mu yazmak zorundayım?

[blue_linux]

Merhaba aşağıdaki gibi bir makro koduna sahibim ama bir problemim var yardımcı olabilirseniz sevinirim.
Satır satır ilerleyen bir listem var listemin AD sütununa her satırda bir onay kutusu ekliyorum, bu onay kutusuna da bir makro;
istediğim onay kutusuna tıkladığımda onay kutusu hangi satırda ise o satırdaki Z*:AB* arasını kopyalayıp aynı satırdaki V* hücresine yapıştırması ve AE* satırının seçilmesi.
Her satır için ayrı makro yazmadan bu işi nasıl çözerim??
**********************************
Sub DereceOnayKutusu_Tıklat3()
'
' DereceOnayKutusu_Tıklat3 Makro
'
'
Range("Z11:AB11").Select
Selection.Copy
Range("V11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AE11").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub

 

[ÖmerBey]

Merhaba,
Yaklaşık olarak aşağıdaki şekilde yapılabilir. Sayfadaki nesneye kodu makro olarak atayıp deneyiniz.
Not: Örnek dosya paylaşırsanız daha doğru ve hızlı yardım alırsınız.

Sub kod()
Set buton = ActiveSheet.Shapes(Application.Caller)
s = buton.BottomRightCell.Row
Range("Z" & s & ":AB" & s).Copy
Range("V" & s).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AE" & s).Select
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub

 

[blue_linux]

Merhaba,
Yaklaşık olarak aşağıdaki şekilde yapılabilir. Sayfadaki nesneye kodu makro olarak atayıp deneyiniz.
Not: Örnek dosya paylaşırsanız daha doğru ve hızlı yardım alırsınız.

Sub kod()
Set buton = ActiveSheet.Shapes(Application.Caller)
s = buton.BottomRightCell.Row
Range("Z" & s & ":AB" & s).Copy
Range("V" & s).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AE" & s).Select
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub

Çok teşekkür ederim tam olarak istediğim oldu.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...