(آموزشی) حذف داده ها در شیت از طریق lixtbox

[ali.b]

سلام

با این روشمی تونین ازطریق listbox به راحتی داده هایی که انتخاب مکنید رواک کنیند و خودکار هم تو شیت ها اونم پاک میشه

Private Sub CommandButton6_Click()Application.ScreenUpdating = False
Dim idx As Long


x = MsgBox("آیا میخواهید حذف کنید؟", vbYesNo, "هشدار")
If x = vbYes Then
    With ListBox1
        idx = .ListIndex
        If idx > -1 Then
Call deldoc
            Sheet2.Range("[B][COLOR=#ff0000]range name[/COLOR][/B]").Rows(idx + 1).Delete xlShiftUp
            'Range("[B][COLOR=#0000ff]name sheet[/COLOR][/B]").Rows(idx + 1).ClearContents
            .RowSource = "[B][COLOR=#ff0000]range name[/COLOR][/B]"
Call Ra
            MsgBox "با موفقیت حذف شد"
            End If


    End With
            End If


Application.ScreenUpdating = True
End Sub

فقط توجه داشته باشین:
range name : محدوده مورد نظرشماست و بهتره در بخش name manager تعریف کنید
name sheet: نام شیت مورد نظری اطلاعات در اونجا درج شدن