Private Sub CommandButton15_Click()
Dim arr
Dim i As Long
Dim say As Long
ActiveSheet.Unprotect "123"
With Me.ListBox1
If .ListCount = 0 Then Exit Sub
ReDim arr(1 To .ListCount, 1 To 1)
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
say = say + 1
arr(say, 1) = .List(i, 0)
End If
Next
If say > 0 Then
For i = UBound(arr) To LBound(arr) Step -1
If arr(i, 1) <> "" Then Range("A:A").Find(Arr(i, 1), , xlValues, 1).EntireRow.Delete
Next
End If
Application.ScreenUpdating = True
MsgBox "!!!.SEÇTÝÐÝNÝZ VERÝLER SÝLÝNMÝÞTÝR.!!!"
ActiveSheet.Protect "123"
Range("A65535").End(xlUp).Offset(1, 0).Select
TextBox1.SetFocus
ThisWorkbook.Save
CommandButton2_Click
TextBox8.Text = [L4]
TextBox9.Text = [L6]
TextBox1.Text = [L7]
TextBox28.Text = [M1]
UserForm_Initialize
.ListIndex = ListBox1.ListCount - 1 'ListBoxýn son satýrýna gider.'
End With
Range("A65535").End(xlUp).Offset(1, 0).Select 'Son boþ satýra gider
On Error Resume Next
Erase arr
End Sub
Böyle bir deneyiniz olmazsa sizin yaptığınız gibi inputbox ilede yapabiliriz.