numaralandırma

[öğrtm]

Arkadaşlar bir sevk proğramı yapmaya çalışıyorum.userform9 da unvan türü değiştir var.userform4 teki listbox a tıkladığımda userform9 daki textbox2 ye unvan otomatik geliyor.İstediğim şey şu:userform9 daki textbox1 de ünvanın numarası gelsin yardımcı olursanız sevinirim.Dosyam ekte

 

[Korhan Ayhan]

Selamlar,

UserForm4 Initialize kodunu ve ListBox1 Click kodunu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub UserForm_Initialize()
    With UserForm4.ListBox1
        .ColumnCount = 2
        .ColumnWidths = "0,50"
        .RowSource = "Sayfa1!G1:H10"
    End With
End Sub

Private Sub ListBox1_Click()
    UserForm9.TextBox1.Value = UserForm4.ListBox1.Column(0)
    UserForm9.TextBox2.Value = UserForm4.ListBox1.Column(1)
End Sub

 

[öğrtm]

teşekkürler

korhan bey çok teşekkür ederim.ben ve ovaören ilköğretim size minnettardır.iyi akşamlar.