DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Zaten borcunu ödemeyenleri başka bir sütunda listelemişsiniz.Borcunu ödemeyenleri uyarmak için herhangi bir koşullu biçimlendirme yapabilirmiyiz.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [z:z]) Is Nothing Then Exit Sub
[ab6500].End(3).Offset(1) = ActiveCell
ActiveCell.Rows.Delete: ActiveCell.Offset(1).Select
End Sub