Makro ile kopyala yapıştır

[sezer32]

Merhaba, aşağıdaki formülü kullanıyorum..A24:A150 aralıktaki hücrelerinde çalışıyor..Fakat aynı sayfada w:w aralığınadaki hücrelerede tıkladığımda aynı şekilde, aynı yere kopyalamasını istiyorum..Yardımcı olabilirseniz sevinirim..Teşekkürler..



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A24:A150]) Is Nothing Then Exit Sub
Selection.Copy
Sheets("ANLZ (2)").Range("J16").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("ANLZ (2)").Select
End Sub

 

[Orion1]

Buyurun.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A24:A150[B][COLOR="Red"],W:W[/COLOR][/B]]) Is Nothing Then Exit Sub
Selection.Copy
Sheets("ANLZ (2)").Range("J16").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("ANLZ (2)").Select
End Sub

 

[sezer32]

Çok teşekkürler