Satır Silme

[iplikci_80]

Arkadaşlar EK'te gönderdiğim belgenin B sütunun daki hücrelere bir tarih değeri girildiğinde o satırın silinmesini istiyorum yapmak mümkün mü? TEŞEKKÜRLER

 

[hamitcan]

Hücreler tarih formatında ise satırı siler.

Sub tarihsesil()
For i = [b65536].End(3).Row To 1 Step -1
If IsDate(Cells(i, 2)) Then Rows(i).Delete
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Sayfanızın kod bölümüne aşağıdaki koud uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
    If IsDate(Target) Then
        If MsgBox(Target.Row & ". satır silinecektir !" & Chr(10) & _
        "İşlemi onaylıyor musunuz?", vbCritical + vbYesNo, "Dikkat !") = vbYes Then
        Application.EnableEvents = False
        Target.EntireRow.Delete
        End If
    End If
Son: Application.EnableEvents = True
End Sub

 

[iplikci_80]

Zahmet olmaz ise bunu belgeye uygulayabilirmiyiz ben başaramadım TEŞŞEKKÜRLER