Merhabalar,
C hücresinde yer alan sorulara D,E ve F hücrelerine sırası ile Var,Yok,Kısmen Var şeklinde cevaplar verilmesi bekleniyor. Sorular ise ilişkili ve ilişkisiz olarak ayrılmaktadır. Örn. C 3 hücresinde ana soru yer alıyorken C 4-5-6. hücreler C 3 ile ilişkili sorulardır. Eğer C 3 sorusuna D 5 sütununda yer alması gereken "Yok" cevabı verilir ise ilişkili soruların yer aldığı satırlara erişimi engellemek istiyorum.
Bulduğum Macro;
Option Explicit
Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(ActiveCell.Row, "A") = "X" And ActiveCell.Column = 4 Then
MsgBox "Erişim Engellendi!!", vbCritical
ActiveCell.Next.Select
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = 0 Then Exit Sub
Application.EnableEvents = False
Target.Offset(1, -1) = " "
Application.EnableEvents = True
End Sub
C hücresinde yer alan sorulara D,E ve F hücrelerine sırası ile Var,Yok,Kısmen Var şeklinde cevaplar verilmesi bekleniyor. Sorular ise ilişkili ve ilişkisiz olarak ayrılmaktadır. Örn. C 3 hücresinde ana soru yer alıyorken C 4-5-6. hücreler C 3 ile ilişkili sorulardır. Eğer C 3 sorusuna D 5 sütununda yer alması gereken "Yok" cevabı verilir ise ilişkili soruların yer aldığı satırlara erişimi engellemek istiyorum.
Bulduğum Macro;
Option Explicit
Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(ActiveCell.Row, "A") = "X" And ActiveCell.Column = 4 Then
MsgBox "Erişim Engellendi!!", vbCritical
ActiveCell.Next.Select
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = 0 Then Exit Sub
Application.EnableEvents = False
Target.Offset(1, -1) = " "
Application.EnableEvents = True
End Sub