Tek tıkla hücrelere vei aktarımı ?

[mybluecat]

Merhaba

Ekte gönderdiğim excel sayfası içerisinde 1 , 2 , 3 numaralı tablolar mevcut.1 nolu tabloda bulunan A ve B bölgesi yazan hücrelerden birisine tıkladığımda 2 nolu tabloya o bölgeye ait yan taraf da bulunan tesis tipi adı altındaki listenin aktarılmasını istiyorum.Excel de bunu yapmanın bir yolu var mı?

Teşekkür ederim...

 

[Ömer BARAN]

Merhaba.
Yanlış anlamadıysam aşağıdaki kod'u sayfanın kod bölümüne (sayfanın kod bölümüne; alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılan ekranın sağ tarafındaki alana) uygulayarak sonuç alabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [E7:E9]) Is Nothing Then Exit Sub
    If ActiveCell = "" Then
        Range("E14:E18") = ""
        Exit Sub
    End If
a = WorksheetFunction.Match(ActiveCell, Range("2:2"), 0)
alan = Range(Cells(5, a), Cells(9, a))
Range("E14:E18") = alan
End Sub

 

[mybluecat]

Tam istediğim gibi.Eline sağlık.Bu kod daha geliştirilebilir mi?Yani örnek dosyada bulunan 2 nolu tablo da da gelen bilgilerden birine tıkladığım da 3 nolu tabloya veri atması sağlanabilir mi?Farklı aralıklar ile 2. bir kod oluştursam çalışır mı?
L ve N sütunlarında ki bilgiler kodun neresin de tanımlı? Onu çözemedim.Gerçek dosyalara uygularken değişiklik yapabilmek için soruyorum.