Hi All,
I am using For loop in macro which called in worksheet change event but issue is my msgbox is appearing 2 times means one on Mandatory cell empty and again even on filling the cell. Kindly help
Macro
Worksheet Change
Waiting for your valuable help
I am using For loop in macro which called in worksheet change event but issue is my msgbox is appearing 2 times means one on Mandatory cell empty and again even on filling the cell. Kindly help
Macro
VBA Code:
Sub celchange()
Dim cel2 As Range, b As Boolean
Application.EnableEvents = False
For Each cel In Range("o1:eek:24")
If cel.Value < 1 Then
cel.Offset(0, -11).Value = ""
End If
Next
For Each cel2 In Range("A1:A24")
If cel2.Value = "" Then
cel2.Offset(0, 3).Value = ""
End If
b = True
Next
If b Then MsgBox "Mandatory Cells Empty"
'
Application.EnableEvents = True
End Sub
Worksheet Change
VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D1:D24")) Is Nothing Then
Select Case Target
Case "G6"
Call celchange
Case "C4"
Call celchange
Case "C9"
Call celchange
Case Else
'Do nothing
End Select
End If
End Sub
Waiting for your valuable help
Last edited by a moderator: