Listedeki bazı verilerin Listbox'a alınması

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

Merhabalar;

Ekteki örnek çalışmamda, sadece E sütununda verisi olanların Listbox'a alınması, E sütununda veri olmayanların alınmaması, bunların textboxlara aktarılarak, gerekli bazı verileri değiştirme ve kişiye ait satırın tamamını silme hususundaki yardımlarınıza şimdiden teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Formunuza ait tüm kodları silip aşağıdaki kodları uygulayıp denermisiniz.

Private Sub CommandButton1_Click()
    Onay = MsgBox("Bilgileri güncelleştirmek istiyor musunuz?", vbExclamation + vbYesNo, "Dikkat !")
    If Onay = vbNo Then Exit Sub
    If Onay = vbYes Then
    ActiveCell.Value = TextBox1
    ActiveCell.Offset(0, 1) = TextBox2
    ActiveCell.Offset(0, 2) = TextBox3
    ActiveCell.Offset(0, 3) = TextBox4
    ActiveCell.Offset(0, 4) = TextBox5
    ActiveCell.Offset(0, 5) = TextBox6
    ActiveCell.Offset(0, 6) = TextBox7
    ActiveCell.Offset(0, 7) = TextBox8
    ActiveCell.Offset(0, 8) = TextBox9
    UserForm_Initialize
    MsgBox "Bilgiler güncelleştirilmiştir.", vbInformation
    End If
End Sub

Private Sub CommandButton2_Click()
    Onay = MsgBox("Seçtiğiniz kaydı silmek istiyor musunuz?", vbExclamation + vbYesNo, "Dikkat !")
    If Onay = vbNo Then Exit Sub
    If Onay = vbYes Then
    Rows(ListBox1.Column(0)).Delete
    UserForm_Initialize
    MsgBox "Seçtiğiniz kayıt silinmiştir.", vbInformation
    End If
End Sub

Private Sub CommandButton3_Click()
    Unload Me
End Sub

Private Sub ListBox1_Click()
    Set SL = Sheets("liste")
    SL.Cells(ListBox1.Column(0), 1).Select
    TextBox1 = ActiveCell.Value
    TextBox2 = ActiveCell.Offset(0, 1)
    TextBox3 = ActiveCell.Offset(0, 2)
    TextBox4 = ActiveCell.Offset(0, 3)
    TextBox5 = ActiveCell.Offset(0, 4)
    TextBox6 = ActiveCell.Offset(0, 5)
    TextBox7 = ActiveCell.Offset(0, 6)
    TextBox8 = ActiveCell.Offset(0, 7)
End Sub

Private Sub UserForm_Initialize()
    Set SL = Sheets("liste")
    ListBox1.ColumnCount = 9
    ListBox1.ColumnWidths = "0;80;40;40;40;50;40;40;40"
    ListBox1.ColumnHeads = False
    For X = 2 To SL.[A65536].End(3).Row
    If Not IsEmpty(SL.Cells(X, 5)) Then
    ListBox1.AddItem
    ListBox1.List(Satır, 0) = X
    ListBox1.List(Satır, 1) = SL.Cells(X, 1)
    ListBox1.List(Satır, 2) = SL.Cells(X, 2)
    ListBox1.List(Satır, 3) = SL.Cells(X, 3)
    ListBox1.List(Satır, 4) = SL.Cells(X, 4)
    ListBox1.List(Satır, 5) = SL.Cells(X, 5)
    ListBox1.List(Satır, 6) = SL.Cells(X, 6)
    ListBox1.List(Satır, 7) = SL.Cells(X, 7)
    ListBox1.List(Satır, 8) = SL.Cells(X, 8)
    ListBox1.List(Satır, 9) = SL.Cells(X, 9)
    Satır = Satır + 1
    End If
    Next
End Sub

 

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

Sayın Cost Control;

Her zamanki gibi harika olmuş.

Çözümünüze ve paylaşımınıza çok teşekkür ederim.

Selamlarımla.

 

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

Sayın Cost Control;

Örneğinizi çalışmama uyarlayamadım.
Örnek dosya ekte.

İlgilenirseniz sevinirim.

Selamlarımla.