aktif hücredeki değeri aktarma

[masuk500]

merhaba arkadaşlar

sayfa 1 de aktif hücre seçili iken değeri başka sayfadaki hücreye aktarılabilirmi

örneğin a1 seçili iken değeri sayfa 2 deki b1'e
a2 seçili iken b1'e aktarmak istiyorum

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodu; "Sayfa1" sheet'inin kod modulüne kopyalayınız.

NOT : Sadece, aktif hücre, Sayfa1'in A1:A2 aralığında ise çalışır. Siz bu aralığı genişletebilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A2")) Is Nothing Then
        Sheets("Sayfa2").Range("B1") = Target
    End If
End Sub

 

[masuk500]

sayın ferhat hocam teşekkürler