DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1,B1,C1,D1")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Range("A1,B1,C1") = "" Then
MsgBox "A1,B1,C1 Hücreleri boş olmamalı.", vbInformation
Target = ""
End If
Application.EnableEvents = True
End Sub