Bir hücreye tıklayınca başka hücreye o hücredeki değeri yazdırmak

[akcayonline]

arkadaşlar merhaba,

B30-B101 deki hücrelerden hangisine tıklarsam U3 hücresine o tıkladığım hücredeki değerin yazılmasını istiyorum. Bunu makrosuz yapmanın bir yolu var mı?

 

[ÖmerFaruk]

Sanırım yok. Makrodan neden çekindiniz?

 

[akcayonline]

Sanırım yok. Makrodan neden çekindiniz?

merhaba Ömer Bey,
dosya üst yönetime raporlanacak, işin içine makro girince bazen "makroları etkinleştir", "makroları devre dışı bırak",.. gibi şeyler çıkıyor, benim için hiç problem değil de yönetici için olay biraz karmaşıklaşıyor, o yüzden makro pek istememiştim ama eğer bu taraftan işin içinden çıkamazsam mecbur makrolu bir çözüm konusunda destek alacağım.

 

[ÖmerFaruk]

Aşağıdaki kodu ilgili sayfanın kod penceresine yapıştırın.
Dosyayı makro içerebilen dosya (xlsm) olarak kaydedin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Intersect(Target, Range("B30:B101")) Is Nothing Then Exit Sub
   Range("U3") = Target.Value
   Range("U3").Select
End Sub

 

[akcayonline]

Aşağıdaki kodu ilgili sayfanın kod penceresine yapıştırın.
Dosyayı makro içerebilen dosya (xlsm) olarak kaydedin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Intersect(Target, Range("B30:B101")) Is Nothing Then Exit Sub
   Range("U3") = Target.Value
   Range("U3").Select
End Sub

kodu çalıştırdım, böyle devam edeceğim artık, çok teşekkürler.