listbox da üstüne tıkladığımız veriyi labelde göstermek istiyorum

[dreamymost]

iyi günler arkadaşlar listbox da listelediğim verilerin üzerine tıkladığımda labellerde nasıl gösterebilirim örnek varmıdır arkadaşlar yapılmış yardımcı olurmusunuz

 

[hamitcan]

Private Sub ListBox1_Click()
Label1 = ListBox1.Column(0)
End Sub

 

[dreamymost]

Private Sub ListBox1_Click()
Label1 = ListBox1.Column(0)
End Sub

hocam çift click yaptımda gözüküyo tek click yaptımda nasıl gösterebiliriz ? birde bende


Adı | Soyadı | vs| vs| 4 bölüm oluşuyor yukardaki kodu yazdığımda sadece Adı yı gösteriyor

4 label yan yana oluşturup adı yı ayrı soyadını ayrı labelde nasıl yapabiliriz

 

[hamitcan]

hocam çift click yaptımda gözüküyo tek click yaptımda nasıl gösterebiliriz ?

Burada bir yanlışınız var. Belki başka bir kod, bu kodun çalışmasını engelliyordur.



Adı | Soyadı | vs| vs| 4 bölüm oluşuyor yukardaki kodu yazdığımda sadece Adı yı gösteriyor

4 label yan yana oluşturup adı yı ayrı soyadını ayrı labelde nasıl yapabiliriz

Private Sub ListBox1_Click()
    Label1 = ListBox1.Column(0)
    Label2 = ListBox1.Column(1)
    Label3 = ListBox1.Column(2)
    Label4 = ListBox1.Column(3)
End Sub

Private Sub UserForm_Initialize()
    ListBox1.ColumnCount = 4
    For i = 0 To 3
        ListBox1.AddItem
        ListBox1.List(0, i) = i
    Next
End Sub

 

[hamitcan]

hocam çift click yaptımda gözüküyo tek click yaptımda nasıl gösterebiliriz ?

Burada bir yanlışınız var. Belki başka bir kod, bu kodun çalışmasını engelliyordur.

Adı | Soyadı | vs| vs| 4 bölüm oluşuyor yukardaki kodu yazdığımda sadece Adı yı gösteriyor

4 label yan yana oluşturup adı yı ayrı soyadını ayrı labelde nasıl yapabiliriz

Private Sub ListBox1_Click()
    Label1 = ListBox1.Column(0)
    Label2 = ListBox1.Column(1)
    Label3 = ListBox1.Column(2)
    Label4 = ListBox1.Column(3)
End Sub

Private Sub UserForm_Initialize()
    ListBox1.ColumnCount = 4
    For i = 0 To 3
        ListBox1.AddItem
        ListBox1.List(0, i) = i
    Next
End Sub

 

[dreamymost]

Hocam label yerine textbox koydum verileri gösterdim . bu textboxdaki mesela yanlış giriş varsa düzeltmek istiyorum düzenle butonu yapmak istiyorum nasıl yapabilirim ?

 

[hamitcan]

Anladığım kadarıyla sorularınızın devamı gelecek, bence öncelikle siz uygulamalı excel eğitimi bölümüne bakın.

 

[dreamymost]

yok ya sadece düzenleme olayım kaldı hocam ben bir kaç örnek indirdim bakıyorum da çok karısık dosyalar söyle sade bişey varsa ben çalıştırırım onu

 

[hamitcan]

Form üzerinde değişiklik yaptığınızda;
1- Sayfadaki satır numarasını bulun. Adı kayıtno olsun.
2- Sayfaya aktarmak için bir döngü oluşturun. Kodu basitleştirmek için Textbox isimlerinin sıralı olması iyi olur.

 for i = 1 to 5
cells(kayitno,i) = controls("Textbox" & i ).value
next

3- Sonra listbox içine verileri tekrar yükleyin.(Rowsource yada additem)