arkadaslar boyle bır kodum var ama sılmesı ıcın emınmısınız
bır msgbox koyup emin olup olmadıgını sormak ıstedım ama basaramadım
nasıl yapa bilirim
Private Sub cmd_sil_Click()
Dim say As Integer
Dim i As Integer
Dim bos As Range
Dim sil
Dismi = ActiveWorkbook.Name
For Each bos In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B65000")))
If cbAd.Value = "" Or bos = "" Or ActiveCell = "" Then
MsgBox "Ã?nce aradığınız veriyi BUL ile bulmalısınız"
Exit Sub
End If
'''''''''''''''''''''''''''''''''
MsgBox "eminmisiniz", vbYesNo
Next bos
Range(ActiveCell.Offset(0, -1).Address(False, False) & ":" & ActiveCell.Offset(0, 9).Address(False, False)).Delete Shift:=xlUp
say = WorksheetFunction.CountA(Range("A2:A65000"))
For i = 1 To say
Cells(i + 1, 1) = i
Next i
Workbooks(Dismi).Save
MsgBox "kayıtniz Silindi", , "KAYIT"
cmd_temizle_Click
cbAd.RowSource = "kayıt!c2:c" & say + 1
txtsira.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub
bır msgbox koyup emin olup olmadıgını sormak ıstedım ama basaramadım
nasıl yapa bilirim
Private Sub cmd_sil_Click()
Dim say As Integer
Dim i As Integer
Dim bos As Range
Dim sil
Dismi = ActiveWorkbook.Name
For Each bos In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B65000")))
If cbAd.Value = "" Or bos = "" Or ActiveCell = "" Then
MsgBox "Ã?nce aradığınız veriyi BUL ile bulmalısınız"
Exit Sub
End If
'''''''''''''''''''''''''''''''''
MsgBox "eminmisiniz", vbYesNo
Next bos
Range(ActiveCell.Offset(0, -1).Address(False, False) & ":" & ActiveCell.Offset(0, 9).Address(False, False)).Delete Shift:=xlUp
say = WorksheetFunction.CountA(Range("A2:A65000"))
For i = 1 To say
Cells(i + 1, 1) = i
Next i
Workbooks(Dismi).Save
MsgBox "kayıtniz Silindi", , "KAYIT"
cmd_temizle_Click
cbAd.RowSource = "kayıt!c2:c" & say + 1
txtsira.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub