UserForm Dinamik Label konusunda yardım

[andruil]

Merhaba Arkadaşlar,

UserForm üzerinde dinamik Label oluşturmak istiyorum. Excel üzerinde belirli hücrelerdeki yazıları Label olarak göstermek istiyorum.

İlk gösterimde doğru gösteriyor dinamik bir şekilde fakat tanmlama gereği aktif hücre ne ise onun satırındaki bilgileri alıp tekrar göstermesi gerekirken ilk ne gösterdiyse o şekilde kalıyor.

Bunu dinamik şekilde yapmanın yolu var mıdır?

Şimdiden teşekkürler.

Private Sub UserForm_Initialize()

SorumluB.Caption = Sorumlu
MüşteriB.Caption = Müşteri
RefB.Caption = Ref
VadeB.Caption = Vade & " Gün"
BirimB.Caption = Birim

End Sub

Bu şekilde bir Label kodlarım ve tanımlamalarım şu şekilde

'Dosya Sorumlusu
Function Sorumlu() As Range
     Set Sorumlu = Worksheets("DAĞITIM").Cells(ActiveCell.Row, 12)
End Function

'Müşteri No
Function Müş_No() As Range
     Set Müş_No = Worksheets("DAĞITIM").Cells(ActiveCell.Row, 20)
End Function

'Kredi Referansı
Function Ref() As Range
     Set Ref = Worksheets("DAĞITIM").Cells(ActiveCell.Row, 21)
End Function

'Kredi Vadesi
Function Kredi_V() As Range
     Set Kredi_V = Worksheets("DAĞITIM").Cells(ActiveCell.Row, 28)
End Function

'Para Birimi
Function Birim() As Range
     Set Birim = Worksheets("DAĞITIM").Cells(ActiveCell.Row, 25)
End Function

 

[alicimri]

Aşağıdaki kodları DAĞITIM sayfasının kod sayfasına yapıştırın kodları kendi dosyanıza uyarlayın, Userformun ShowModal özelliğini false yapın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.Controls("Label1").Caption = ActiveCell
End Sub

 

[andruil]

Teşekkürler, sorunum halloldu.