Buda inputbox ile şifreli için.Verinizin büyüklüğünü bilemediğim için bu şekide yaptım.
Normalde dizi yöntemsizde olurdu.
Private Sub CommandButton15_Click()
Dim Arr
Dim i As Long
Dim say As Long
If TextBox1.Text = "" Then
MsgBox " LÜTFEN SÝLÝNECEK VERÝNÝN BUL ÝLE SIRA NUMARASINI GÝRÝNÝZ!!!"
Exit Sub
End If
sifre = InputBox("!!!...SÝLMEK ÝSTEDÝÐÝNÝZ SATIRI ÇÝFT TIKLAYARAK YUKARIDAKÝ GÝRÝÞ KUTUCUKLARINA GELMESÝNÝ SAÐLAYIN. YUKARIDAKÝ KUTUCUKLAR BOÞ OLDUÐU ZAMAN SEÇTÝÐÝNÝZ VERÝLER SÝLÝNMÝÞTÝR UYARISINI ALSANIZ BÝLE VERÝLERÝ SÝLMEZ...!!! !!!...YUKARIDAKÝ GÝRÝÞ KUTUCUKLARI DOLU ÝSE ÞÝFREYÝ GÝRÝNÝZ...!!!")
ActiveSheet.Protect "123"
If sifre <> "111" Then MsgBox "YANLIÞ ÞÝFRE GÝRDÝNÝZ ! LÜTFEN KONTROL EDÝN.": Exit Sub
ActiveSheet.Unprotect "123"
If sifre = "" Then Exit Sub
Application.ScreenUpdating = False
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
If Range("A:A").Find(Arr(i, 1), , xlValues, 1).Row > 6 Then Range("A:A").Find(Arr(i, 1), , xlValues, 1).EntireRow.Delete
End If
Next
End If
Application.ScreenUpdating = True
MsgBox "!!!.SEÇTY?YNYZ VERYLER SYLYNMY?TYR.!!!"
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 'ListBoxyn son satyryna gider.'
End With
Range("A65535").End(xlUp).Offset(1, 0).Select 'Son bo? satyra gider
On Error Resume Next
Erase Arr
End Sub