Soru Kesişen hücrenin sütundaki ilk hücre değerini verme

[yunafani]

Merhabalar,



Solda yazan numaraların karşısında herhangi bir sayı yazıyorsa, o sütunun en üstündeki değeri yazdırmak istiyorum. Düşeyara ile birleştirmeye çalıştım ancak 2 saatlik araştırmam sonuç vermedi maalesef.

örn 401748 yazdığım zaman bana c,d,e değerini vermesini istiyorum. Bir tanesini verse de olur

Teşekkür ederim.

 

[Mahir64]

Merhaba,
Birleştirmeden kastınız nedir?

=DÜŞEYARA(401748;A:B;2;0)

 

[alicimri]

Ancak makro ile yapılabiliniri Kodlar aşağıda
Tablonuzun 1. satırdan ve A süütunundan başladığı varsayılldı.
Range("B3:Z50") ifadesini kendi tablonuza göre değiştirin.

Sub Makro1()
adresler = Split(Range("B3:z50").SpecialCells(xlCellTypeConstants, 1).Address, ",")
For i = 0 To UBound(adresler)
For e = 1 To Range(adresler(i)).Count
 Range(adresler(i))(e).Value = Cells(1, Range(adresler(i))(e).Column)
Next
Next
End Sub

 

[Korhan Ayhan]

Formülle farklı bir çözüm alternatif olarak değerlendirebilirsiniz.

 

[modoste]

Arşivime ekledim.
Teşekkürler Korhan Hocam Formülle çözüm için

 

[yunafani]

Çok teşekkür ederim. Hem formülle olan hem de makro ile olan çok işime yaradı.