Merhaba
Aşağıdaki kodları tıkladığım zaman tıklanmış olan sayfaya gidiyor. Benim istediğim gittiğim sayfadaki "C1" hücresindeki veriyi TextBox1 re aktarsın.
Private Sub lstbox1_Click()
TextBox68.Value = lstbox1.Value
End Sub
Private Sub lstbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox68.Value = "" Then
MsgBox "Boş Alana tıkladınız. Lütfen, Müşteri isimlerinden birine tıklayınız.", , "HATA !..."
Else
TextBox68.Value = lstbox1.Value
Sheets(TextBox68.Value).Select
End If
End Sub
Aşağıdaki kodları tıkladığım zaman tıklanmış olan sayfaya gidiyor. Benim istediğim gittiğim sayfadaki "C1" hücresindeki veriyi TextBox1 re aktarsın.
Private Sub lstbox1_Click()
TextBox68.Value = lstbox1.Value
End Sub
Private Sub lstbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox68.Value = "" Then
MsgBox "Boş Alana tıkladınız. Lütfen, Müşteri isimlerinden birine tıklayınız.", , "HATA !..."
Else
TextBox68.Value = lstbox1.Value
Sheets(TextBox68.Value).Select
End If
End Sub