Aktif sütunda, yazılı başlığı label'e yansıtmak

[EKREM1661]

Saygıdeğer Arkadaşlar.! Herkese selam ve iyi çalışmalar..

Bir sorunum daha var ki, gerçekleşirse, benim için önemli bir aşama olacak..

Bir excel sayfasında örneğin A2:K2 aralığında elle girilmiş sütun başlıkları var..
Bu sayfada verileri yönetmede bi de showmodal özelliği false yapılmış bir userform kullanıyorum..

istiyorum ki; hangi sütunda (aktif sütun) isem, o sütuna ait sütun başlığı (A2:K2 aralığında) userform üzerine konmuş bir labelde gözüksün..

 

[Korhan Ayhan]

Selamlar,

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A2:K2")) Is Nothing Then Exit Sub
    UserForm1.Label1.Caption = Target
End Sub

 

[EKREM1661]

Korhan bey..bu şekil elbet ki oldu.. Fakat bendeki düşünce biraz daha farklı idi..

Şöyleki; örneğin, mouse ile F20 hücresini seçmiş bile olsam, label de F2 de yazılanı gösterse olur mu.. Yani, anlıyacağın bir nevi bana hangi sütun başlığı altında bulunduğumun adresini verecek.. Her hangi bir sütunun neresinde olursam olayım, bana o sütunun 2.nci satırında yazılanı gösterecek..

Hatta; belki de userformun mavi başlığında gösterebilirsek daha iyi olabilir..(ama yine de sizin için fazla uğraşmayacağınız olanı olsun)

 

[omerceri]

kodu aşağıdaki gibi değiştirirseniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.Caption = Cells(2, Selection.Column)
End Sub

 

[EKREM1661]

Evet; ömer bey.. oldu. Ancak; yukarıda verdiğiniz kodu:
ThisWorkbook kod sayfasında;

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
UserForm1.Caption = Cells(2, Selection.Column)
UserForm1.Label1 = Cells(2, Selection.Column)
End Sub

şeklinde uygulayınca sorusuz çalıştı..

Herşey için teşekkürler ve iyi geceler diliyorum..