Listboxtan userform açmak.

[İsmail Küçükşengün]

Merhaba;

Ekteki dosyada, Userformdan seçtiğimiz satıra göre ilgili userformun açılması için gerekli yardımlarınıza şimdiden çok teşekkür ederim.

Selamlarımla.

 

[mrttrn]

Private Sub CommandButton1_Click() 'OLUŞTUR butonu
  If Yenitakip.ListBox1.ListIndex = 0 Then 'Listbox1 de 1. eleman tıklanmış ise
    Load UserForm1 'varsa Ön yükleme
    UserForm1.Show 'Göster
   End If
  If Yenitakip.ListBox1.ListIndex = 1 Then 'Listbox1 de 2. eleman tıklanmış ise
    Load UserForm2 'varsa Ön yükleme
    UserForm2.Show 'Göster
  End If
End Sub

Listbox daki sıra nosuna göre

 

[İsmail Küçükşengün]

Sayın mrttrn;

Çok teşekkür ediyorum.

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir kodlamada kullanılabilir.

Select Case ListBox1.ListIndex
Case 0: UserForm1.Show
Case 1: UserForm2.Show
Case 2: UserForm3.Show
.
.
End Select

 

[İsmail Küçükşengün]

Sayın leventm;

Teşekkürler.

Selamlarımla.

 

[daysee]

tşkler Levent Hocam benim de aradığım buydu