seçili veri dinamik textbox aktarma

[netvolxxx]

merhaba şöyle bir şey yapmak istedim ama başarılı olamadım

hücrede hangi satır seçili ise örnek m8 seçili her zaman b satırında seçili olan yani b8 userform textbox da gelmesini nasıl yapıcam .

m15 seçili textbox hücre b15 da ki veri gelicek....

hangi satırda mause tıklanmış ise karşılığı b sutun b satırı textbox a aktarma...

 

[zpawnz]

Merhaba,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 13 Then
Dim textBox As Shape
Set textBox = Me.Shapes("TextBox " & Target.Row)
textBox.TextFrame2.TextRange.Text = Target.Value
End If
End Sub

Textboxlarınızın B1 'de Textbox1, B2 'de Textbox2 olarak devam ettiğini varsayarak iletiyorum, deneyiniz.

 

[netvolxxx]

Merhaba,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 13 Then
Dim textBox As Shape
Set textBox = Me.Shapes("TextBox " & Target.Row)
textBox.TextFrame2.TextRange.Text = Target.Value
End If
End Sub

Textboxlarınızın B1 'de Textbox1, B2 'de Textbox2 olarak devam ettiğini varsayarak iletiyorum, deneyiniz.

merhaba userform üzerinde olan textbox1 aktarılması sadece . her hücrede ki eşittir textbox olarak değil ustad...

 

[zpawnz]

Merhaba,

Excelinizi Dosya.co sitesine yükleyip linki paylaşır mısınız?

 

[netvolxxx]

Merhaba,

Excelinizi Dosya.co sitesine yükleyip linki paylaşır mısınız?

dosya yükledim resimli olarak anlattım ektedir.

İndir denemeform xlsm

Dosyayı indir denemeform xlsm

dosya.co

 

[Biolightant]

Merhaba

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If UserForm1.Visible = True Then
        UserForm1.TextBox1.Value = Range("B" & Target.Row).Value
    End If
End Sub

 

[netvolxxx]

Merhaba

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If UserForm1.Visible = True Then
        UserForm1.TextBox1.Value = Range("B" & Target.Row).Value
    End If
End Sub

merhaba ustad çok teşekürr ederim istediğim buydu allah razı olsun....