mandatoru cell if another cell contains text

[lfmemp]

Hello everyone,

I need to make a cell mandatory to be filled out when another one contains text.

FOr example, if cell C3 contains some text, the code should then require cell D5 to be filled in.
A message box saying "Please fill out cell D5" should apear, after the cell C3 has been filled out. In this way, after C3 is filled, message appear and the user is forced to fill out D5.

Can anyone please help?

Thanks

 

[jai9]

Hi,

Try,

Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = "$C$3" Then
   MsgBox "Please fill out cell D5"
End If
End Sub

Jai

 

[nuked]

Try this behind the relevant sheet (Alt+F11, double click sheet on left hand side, paste code on right hand side)

Option Explicit

Private bFlag As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [c3]) Is Nothing Then
    [D5].Select
    If Not bFlag Then MsgBox "You must now completed D5", vbCritical + vbSystemModal
    bFlag = True
End If

If Not Intersect(Target, [D5]) Is Nothing Then
    bFlag = False
End If
       
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If bFlag Then
            [D5].Select
End If

End Sub