حذف یک سطر از لیست باکس

[malek230]

سلام مهندسین محترم.
یه فایل نهادم دوتا کامند باتن داره. کامند باتن "حذف " میخوام کارش این باشه که وقتی یه سطر از لیست باکس انتخاب شده باشه، عدد مربوط به "مبلغ خرید" اون سطر رو صفر کنه. همین.
امکانش هست دوستان کدها رو به کامند باتن "حذف" اضافه کنن؟ ممنون میشم.

[میثم مقدم نیا]

سلام مهندسین محترم.
یه فایل نهادم دوتا کامند باتن داره. کامند باتن "حذف " میخوام کارش این باشه که وقتی یه سطر از لیست باکس انتخاب شده باشه، عدد مربوط به "مبلغ خرید" اون سطر رو صفر کنه. همین.
امکانش هست دوستان کدها رو به کامند باتن "حذف" اضافه کنن؟ ممنون میشم.

سلام
دوست عزیز از کد زیر استفاده کنید ببینید به کارتون میاد

Private Sub CommandButton2_Click()
    
    Dim i As Integer
    Dim n As Long

    For i = 1 To Range("A1000").End(xlUp).Row
    If Cells(i, 1) = ListBox1.List(ListBox1.ListIndex) Then
            Rows(i).Select
            Selection.Cells(n + 1, 4).Value = "0"

        End If

    Next i

End Sub