Listeleme ve listeden seçme

[SeSi]

Merhaba,

Yapmaya çalıştığım bir form var. Çalışmada FORM ve BİLGİLER adında iki sayfa var.

Bilgiler sayfasına verileri gireceğim.
Form sayfasında bir liste kutusu var. LİSTELE butonuna tıkladığımda BİLGİLER sayfasından isimler listelenecek. Listelenen isimlerden birini seçtiğimde o kişiye ait bilgiler yandaki forma aktarılacak.

Yardımlarınız için şimdiden saygı ve teşekkürlerimi sunarım.

 

[N.Ziya Hiçdurmaz]

Yanıt

Listboxa tıklandığında d6 hücresine isim gelmekte düşey ara ile verileri getirebilirsiniz
Private Sub CommandButton1_Click()
Dim SB As Worksheet
Dim SUT As Integer
ListBox1.Clear
Set SB = Sheets("Bilgiler")
For SUT = 9 To SB.Cells(65536, "D").End(3).Row
ListBox1.AddItem SB.Cells(SUT, "D")
Next
End Sub
Private Sub ListBox1_Click()
[D6] = ListBox1
End Sub

 

[SeSi]

Sayın N.Ziya Hiçdurmaz,

Emeğiniz için çok teşekkürler.
Saygılarımla.

 

[N.Ziya Hiçdurmaz]

Bişey değil Sayın SeSi

 

[SeSi]

Bir isteğim daha olacak.

Sabah - Öğle - Tam kutucukları seçilen kişeye göre değişebilir mi?

Teşekkürler.

 

[N.Ziya Hiçdurmaz]

Yanıt

Dosyayı indiriniz

 

[SeSi]

Sayın N.Ziya Hiçdurmaz,

Çok teşekkür ederim.

 

[dubischk]

teşkler.......