Require entry in one cell if data in another

[braddery]

I am trying to make it so that if there is ANY data in cell b17, then
there MUST be data entered in I17 and L17. Can anyone pleae help me
with this? I want these to be "beforeprint" events...

 

[GS]

(e-mail address removed) presented the following explanation :

I am trying to make it so that if there is ANY data in cell b17, then
there MUST be data entered in I17 and L17. Can anyone pleae help me
with this? I want these to be "beforeprint" events...

Try...

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Sheets("WhatsItsname") 'substitute actual value
If Not .Range("B17") = "" Then
.Range("I17") = myValue1 'substitute actual value
.Range("L17") = myValue2 'substitute actual value
End If 'Not .Range("B17") = ""
End With
End Sub

 

[Cimjet]

Hi
One more for you to try.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim a As Range, b As Range, c As Range
Set a = Sheets("sheet1").Range("B17") 'You need to change the name of the
sheet is it's not sheet1
Set b = Sheets("sheet1").Range("i17")
Set c = Sheets("sheet1").Range("L17")
If a > "" Then
If b = "" Or c = "" Then
MsgBox "You need to fill in the two cells i17 & L17"
Cancel = True
End If
End If
End Sub
HTH
Cimjet

 

[Cimjet]

Hi
Ignore the first one because of text overwrap
One more for you to try.
'You need to change the name of the
sheet if it's not "sheet1"

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim a As Range, b As Range, c As Range
Set a = Sheets("sheet1").Range("B17")
Set b = Sheets("sheet1").Range("i17")
Set c = Sheets("sheet1").Range("L17")
If a > "" Then
If b = "" Or c = "" Then
MsgBox "You need to fill in the two cells i17 & L17"
Cancel = True
End If
End If
End Sub

HTH
Cimjet