Bir hücreye tıklama ile başka bir hücreye veri atma

[AkKrock]

Merhaba arkadaşlar,

Forumu bayağı araştırdım, interneti de araştırdım ama bulamadım malesef. En sonunda başlık açayım dedim.

Elimde 2 sütünlu, 20 satırlı bir liste var. Ben bu listenin 1. sütunundaki verilerden herhangi birisine tıklayarak, 2. sütundaki karşılığı olan verinin; tamamiyle başka bir hücreye kopyalanmasını istiyorum.

Formül ile olacak birşey değil diye tahmin ediyorum. Makro atamam gerekecek.

Bu konuda bana yardımcı olabilecek arkadaş varsa sevinirim.

Kolay gelsin...

 

[Necdet]

başka bir hücreye kopyalanmasını istiyorum.

Başka hücrenin konumu belli mi?

 

[AkKrock]

Başka hücrenin konumu belli mi?

Evet. Hepsinin konumları belli.

 

[Necdet]

Evet. Hepsinin konumları belli.

Merhaba,

Aşağıdaki kod ilgili sayfanın kod bölümünde olmalı. B sütununda herhangi bir hücreye çift tıkladığınızda bu hücredeki değeri G sütununa kopyalar.

Konumu belirtmediğiniz kodları için kendinize uyarlayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    Target.Offset(0, 5) = Target.Value
Son:
End Sub

 

[AkKrock]

Merhaba,

Aşağıdaki kod ilgili sayfanın kod bölümünde olmalı. B sütununda herhangi bir hücreye çift tıkladığınızda bu hücredeki değeri G sütununa kopyalar.

Konumu belirtmediğiniz kodları için kendinize uyarlayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    Target.Offset(0, 5) = Target.Value
Son:
End Sub

Çok teşekkür ederim fakat değerin aynısını yazılmasını istemiyorum ben. Değiştirmeye çalıştım fakat başaramadım. Ayrıca yazdırmak istediğim hücreyi de sabitleyemedim.

Benim B4-B29 ve E4:E29 arasında iki listem var. Bu listelerin yanında (C4:C29 ve F4:F29) karşılıkları olan değerler var. Yani B4'deki veri verinin adı, benim atamam gereken değer ise C4'de yazan sayısal karşılığı olan değer.

Atamak istediğim hücre I11.

2 makro halinde planladım. 2 liste var, birbirlerinden bağımsızlar sonuçta.

 

[AkKrock]

Sorunu çözdüm.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [C4:C65536]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Value = "" Then Exit Sub
Range("F11").Value = Target.Value
End Sub

Teşekkür ederim...