Hücreye Tıklayınca Hücredeki Değeri Başka Bir Hücreye Yazsın

[ZuCChiNi]

Örnekte görüleceği üzere B sütunundaki hücrelerden hangisine tıklarsam tıkladığım hücredeki değeri AnaSayfa sekmesindeki L2 hücresine yazsın istiyorum. (Çift tıklama da olabilir.)

Yardımlarınızı rica ediyorum.
Teşekkürler.

 

[Muzaffer Ali]

Liste adlı sayfanın kod editörüne aşağıdaki kodları yazın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 2 Then
        Sheets("AnaSayfa").Range("L2").Value = Target.Value
    End If
End Sub

 

[ZuCChiNi]

@dalgalikur İlginiz ve yardımınız için teşekkür ederim.
Dediğiniz gibi yaptım. Hücreye tıklayınca "Out of memory" hatası veriyor.

 

[Muzaffer Ali]

Sheets("AnaSayfa").Range("L2").Value = Target.Value

Satırını

Sheets("AnaSayfa").Range("L2").Text = Target.Text

olmazsa

Sheets("AnaSayfa").Range("L2").offset = Target.offset

olmazsa

Sheets("AnaSayfa").Range("L2")= Target

şeklinde deneyin

 

[ZuCChiNi]

Sheets("AnaSayfa").Range("L2").Offset = Target.Offset

ile oldu. Çok teşekkür ederim.
Ancak
Liste sayfasında hangi hücre aktifse o hücrenin değeri L2'ye gidiyor.
Ben sadece B sütunundaki hücre aktif ise gitsin istiyorum.

 

[YUSUF44]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("b:b")) Is Nothing Then Exit Sub
        If Target.Column = 2 Then
        Sheets("AnaSayfa").Range("L2").Offset = Target.Offset
    End If
End Sub

olarak deneyin.

 

[Muzaffer Ali]

2 numaralı mesajdaki kod istediğiniz gibi sadece B sutunu için çalışıyo.

yeni kod şöyle olacak

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 2 Then
        Sheets("AnaSayfa").Range("L2").Offset = Target.Offset
    End If
End Sub

 

[YUSUF44]

Şimdi kontrol ettim de kodun ilk hali de zaten sadece B sütununda bir hücre seçildiğinde çalışıyormuş.

 

[ZuCChiNi]

6 ve 7 numaralı mesajdaki kodlar çalıştı.
@dalgalikur ve @YUSUF44 size ne kadar teşekkür etsem az.
Tekrar teşekür ederim.

 

[TUNCA ERSİN]

Sy. @Muzaffer Ali ;

Hocam aşağıdaki kod güzel çalışıyor. Ben bunu L2 dışında diğer hücrelere de uyguladım 5 tane hücrede gayet hızlı ve güzel çalışmakta. Ama B sütununu benzersiz değerler gelmesi makro ile sildiğim zaman hata vermekte nasıl düzelte biliriz. Teşekkür ederim.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
Sheets("AnaSayfa").Range("L2").Value = Target.Value
End If
End Sub

 

[Muzaffer Ali]

Ama B sütununu benzersiz değerler gelmesi makro ile sildiğim zaman hata vermekte

Burayı anlayamadım.
Yapmak istediğiniz şeyi daha açık ifade eder misiniz?

 

[TUNCA ERSİN]

Sy. @Muzaffer Ali ;
Hocam yapmak istediğim şey şu ;
A4: ile A300 arasında Listelerim var bu listeden tıkladığım hücrede yazan veriyi A1 ,T1,AA1,AJ1 hücrelerine yazdırıyorum. Bu yazdırdığım hücrelerde Pivot table Filtreleri var pivot table leri çok güzel bir şekilde çalıştırıyor. Buraya kadar hiç bir sıkıntı yok. Asıl sıkıntı ise A4:A300 Arasında bulunan araç plakları listesine çok etopla makrosu ile tutarları getiriyorum ama A4:A300 Arasında bulunan verileri başka sayfadan benzersiz listeleme yaptığım da önceki mesajda ki hatayı vermekte.

 

[Muzaffer Ali]

Benzersiz listeleme yaptığınız kodların başına
application.enableevents=false
sonuna
application.enableevents=true
satırlarını ekleyin.

 

[TUNCA ERSİN]

Sy. @Muzaffer Ali ;
Hocam elinize sağlık çok güzel oldu. Sizden bir şey daha rica edebilir miyim.
4 adet Pivot table de filtrelemeleri tıkladığım hücreden değiştirebiliyorum. Ama olmayan plakalar olduğunda pivot table aşağıdaki uyarıyı veriyor. Bunu kapatmak mümkün mü ?

 

[Muzaffer Ali]

Bunu bilmiyorum.
Yeni bir konu açarak sorarsanız bilen biri cevaplayabilir.

 

[TUNCA ERSİN]

Sy. @Muzaffer Ali ;
Hocam elinize ve emeğinize sağlık Allah razı olsun. Teşekkür ederim.

 

[Ufuk3807]

@Muzaffer Ali Bey merhaba,

Aşağıda eklediğim, sizin yukarıdaki yazışmalarda verdiğiniz kod çok güzel çalıştı, teşekkür ederim. Kolon 4 te tıkladığım hücredeki değer, çok güzel bir şekilde Risk Planlama tabındaki D4 hücresine geliyor. Buna ilave olarak, kolon 4 te tıklama yaptığımda, D4 hücresi dolu ise, bir altındaki D5 hücresine, o doluysa D6 ve oda doluysa D7 hücresine olacak şekilde (aynı mantıkla D8....... devam edecek) çalışması için aşağıdaki kodu nasıl revize etmem gerekir? Destek olabilirseniz çok sevinirim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 Then
Sheets(Risk Planlama) . Range("D4") . Offset = Target . Offset
End If
End Sub