ListBox

[ozuberk]

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

 

[selections]

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 
textbox1.value=range("c1").value
End If 
End Sub

 

[ozuberk]

Sayın selections bu ne hız teşekkürler