Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 3 And Target.Column < 4 Then GoTo sonagit
If Cells(3, 1) <> "" Then
If Trim(Cells(3, 2)) = "" Or Trim(Cells(3, 3)) = "" Then
Cells(3, 1).Select
MsgBox "A3 hücresi dolu iken B3 ve C3 hücreleri boş olamaz." & Chr(10) & Chr(10) & "Ya A3 hücresini boşaltınız, yada B3 ve C3 hücrelerini doldurunuz. Saygılar..."
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.