Private Sub ComDelete_Click()
xx = ActiveSheet.Name
z1 = Cells(Rows.Count, "A").End(xlUp).Row
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
For Each c In Sheets(xx).Range("A2:A" & z1)
If c.Value = Val(ListBox1.List(i)) Then
Sheets(xx).Rows(c.Row).Delete Shift:=xlUp
ListBox1.RemoveItem ListBox1.ListIndex
TextBox1.Text = WorksheetFunction.Max(Range("a2:a" & z1)) + 1
Exit For
'Exit Sub
End If
Next c
End If
Next i
TextBox1.Text = WorksheetFunction.Max(Range("a2:a" & z1)) + 1
ListBox1.Clear
'Dim c As Range
For Each c In Sheets(xx).Range("a2:a" & z1)
If c.Value <> "" Then
ListBox1.AddItem c.Value
For i = 2 To 10
ListBox1.List(ListBox1.ListCount - 1, i - 1) = c.Offset(0, i - 1).Text
Next i
End If
Next
End Sub
Private Sub ComDelete_Click()
ActiveSheet.Unprotect
xx = ActiveSheet.Name
Z1 = Cells(Rows.Count, "A").End(xlUp).Row
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
For Each c In Sheets(xx).Range("A2:A" & Z1)
If c.Value = Val(ListBox1.List(i)) Then
Sheets(xx).Rows(c.Row).Delete Shift:=xlUp
ListBox1.RemoveItem ListBox1.ListIndex
TextBox1.Text = WorksheetFunction.Max(Range("a2:a" & Z1)) + 1
Exit For
End If
Next c
End If
Next i
Z1 = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To Z1
Range("A" & i) = i - 1
Next
TextBox1.Text = WorksheetFunction.Max(Range("a2:a" & Z1)) + 1
ListBox1.Clear
'Dim c As Range
For Each c In Sheets(xx).Range("a2:a" & Z1)
If c.Value <> "" Then
ListBox1.AddItem c.Value
For i = 2 To 10
ListBox1.List(ListBox1.ListCount - 1, i - 1) = c.Offset(0, i - 1).Text
Next i
End If
Next
ActiveSheet.Protect
End Sub
کامنت