Hücre yansıtma

[ciko77]

Merhaba Arkadaşlar
(A) sütunundaki isimleri tıkladığımda (Y2) hücresine yansıtmasını istiyorum
(Örenek)
Ahmet
ali
Mehmet
Hasan
Ayşe

bu isimleri tıkladığımda (Y2) hücresine yansıtmasını istiyorum

 

[Ömer BARAN]

Merhaba, foruma hoşgeldiniz.
Sorularınızı örnek belge ile desteklemeye özen gösteriniz.
Örnek belge özellikleri ve örnek belge yükleme yöntemine ilişkin kısa açıklama cevabımın altındaki İMZA bölümünde var.

Sorunuza gelince; alt taraftan işlem yapılacak sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde
açılacak VBA ekranında, sağdaki boş alana aşağıdaki kodu yapıştırın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count > 1 Then Exit Sub
If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
    If Target.Value <> "" Then [Y2] = Target
End Sub