mause ile seçilen hücre verisinin textbox31 e gelmesi

[ismailozkan4224]

değerli arkadaşlar mause ile sayfada seçilen hücre verisinin userform1 deki textbox31 e anında gelmesi için ne yapmam lazım. çok aradım ama bir türlü bulamadım. her seçtiğimde textbox verisi seçilen hücreyi gösterecek

 

[ismailozkan4224]

bunları denedim olmadı
Private Sub UserForm_Initialize()
TextBox31.Value = ActiveCell.Value
End Sub

Private Sub UserForm_Activate()
TextBox31.Value = ActiveCell.Offset(1, 0).Value
End Sub

 

[ismailozkan4224]

alacağım veriler b2:b200 arasındadır

 

[bmutlu966]

Sayfanın kodlarına yapıştırıp deneyiniz. Hangi hücre seçili ise o hücrenin değerini gösterir. Userform'un ismi farklı ise aşağıdaki kodda değiştirirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.TextBox31.Value = Target
End Sub

 

[ismailozkan4224]

teşekkür ederim