Soru HÜCREYE ÇİFT TIKLAMADA BAŞKA BİR ALANA VERİ YAZDIRMA

[dengeceteris]

Arkadaşlar selamlar herkese bir konu hakkında yardımlarınızı rica ediyorum.

A Sütununda A5=6, A6=8, A9=10 sayıları var. Yapmaya çalıştığım ise Mesela ben D5 hücresine çift tıklayınca A3=6 olsun, E5 hücresine tıklayınca A3=8 olsunve F5 hücresine tıklayınca A3= 10 olsun. Yani A Sütununda yazdığım kriterleri A3 hücresine makro ile nasıl getirebilirim.

Yardımlarınız için şimdiden tşk ederim.

 

[uzmanamele]

Merhaba
Deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("D5:F5")) Is Nothing Then Exit Sub
If Target.Address = ("$D$5") Then Range("A3").Value = Range("A5").Value
If Target.Address = ("$E$5") Then Range("A3").Value = Range("A6").Value
If Target.Address = ("$F$5") Then Range("A3").Value = Range("A7").Value
End Sub

 

[AdemCan]

Merhaba, alternatif Select Case örneği.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Selection.Count > 1 Then Exit Sub

    Select Case ActiveCell.Address
        Case Is = "$E$5"
            Range("A3") = 6
        Case Is = "$F$5"
            Range("A3") = 10
    End Select

End Sub

 

[dengeceteris]

Sevgili Excel üstadı arkadaşlarım her ikinize de müteşekkirim. İşimi kolaylaştırdınız. Ek bir şey daha sormak istiyorum. Daha fazla seçenek olsa mesela tek tek mi yazmak gerekir. Mesela resimde ki gibi E sütunundaki rakamlara tıkladığım zaman A sütunundaki 1a dan başlayan kodlar A3 hücresine gelsin. F sütunundaki rakamlara tıklayınca B sütunundaki tam karşılığı yazan kodlar gelsin. Yani şundan dolayı soruyorum. eğer bu kod yapısı aşağıya doğru uzarsa her bir hücre için yazmam mı gerekecek. Yazdığınız her iki kodda benim işimi gördü. Ama 30 hücre için tek tek yazdım belki kolaylaştırabiirim işimi. Aslında listem daha da uzun ben kısa tuttum yaparım gibi geldi ama olmadı

 

[dengeceteris]

Bir çözüm mümkün mü acaba ?

 

[Korhan Ayhan]

Merhaba,

İlk mesajınızda istediğinizle son mesajınızda istediğiniz işlem farklılaşmış...

Aşağıdaki kodu deneyiniz.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("E5:F" & Rows.Count)) Is Nothing Then Exit Sub
    Cancel = True
    If Target.Column = 5 Then Range("A3") = Cells(Target.Row, "A")
    If Target.Column = 6 Then Range("A3") = Cells(Target.Row, "B")
End Sub

 

[dengeceteris]

Korhan Hocam muhteşemsin.. Çok tşk ederim