Makro yazma

[recepkull]

Arkadaşlar şöyle bir makro yazmak istiyorum yardımınıza ihtiyacım var.

Eğer A1 hücresi seçili ise A1 hücresinin değerini B1 hücresine yazsın,
Eğer A2 hücresi seçili ise A2 hücresinin değerini B1 hücresine yazsın... Bu şekilde 16 tane satırım var. A1,A2,A3....A16 hücrelerinden hangisi seçili ise o hücrenin değerini B1 hücresine yazsın istiyorum. Ancak makroyu çalıştırmak için buton kullanmak istemiyorum hücre seçildiği an makro otomatik çalışsın istiyorum bunu nasıl yapabilirim.

 

[Orion1]

Sayfanın kod modülüne.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1:A16]) Is Nothing Then Exit Sub
Range("B1").Value = Target.Value

End Sub

 

[recepkull]

Hocam cevap için teşekkürler ancak verdiğiniz kodu sayfanın kod bölümüne kopyaladım A1:A16 aralığındaki herhangi bir hücreye değer girdiğimde o değer B1 hücresinde çıkmıyor.

 

[recepkull]

Şimdi yeni bir excel dosyasında denedim de kod tam istediğim gibi çalışıyor. Sanırım kodu kullanacağım asıl excel dosyasında bir problem var onu çözmem lazım. Teşekkür ederim Orion1 hocam.