Option buton ve listbox yardım..

[inspirasyon]

Merhabalar, excelde yeniyim ve forumları takip ederek, örnek programlardan esinlenerek kendime bir program yapmaya çalışıyorum. Sizlerden istediğim bana 2 konuda yardım etmeniz.

1- Option buton ile seçim yapıp tc no, adı soyadı, işletme no dan arama yaptırmak.

2- Listboxta çift tıklama yaparak bilgilerin textboxta görüntülenmesini sağalamak.

Şimdiden çok teşekkür ederim, yardımlarınızı bekliyorum...

 

[inspirasyon]

teşekkür ederim.

Teşekkür ederim arkadaşım ama gönderdiğin linkte işime yarar bir şey bulamadım

 

[snx111]

Private Sub ListBox1_Click()
On Error Resume Next
Son = Sheets("Data").Range("A65536").End(xlUp).Row
 x = ListBox1.ListIndex ' listboxta seçilen elemanın sıra sayısı listboxta sayı  0 dan başlar 
  

sat = x
For i = 1 To Son
Controls("TextBox" & i).Value = Sheets("data").Cells(sat, i).Value
Controls("Textbox" & i).Value = Sheets("data").Cells(sat, i).Value
Next i

Lab = sat 'ListBox1.ListIndex + 1
End Sub

mantığı anlamanız için ufakbir yardım sıralamaları ayarlamalısınız textbox 1 2 3 4 5/ a b c d e sütununa göre ..

 

[inspirasyon]

Teşekkürler

İlginize teşekkür ederim. Option buton ile seçim yapıp seçime göre arama ile ilgili de yardımcı olabilir misiniz? Şimdiden teşekkürler.

 

[snx111]

öbür konuda dosyanız yüklendi