IF cell A = Y and cell B = "" THEN = messagebox

**jammy78** · 01-26-2012, 11:25 AM

Hi,

This is a really simple one but I can't get it to work:

I have a dropdown list with Yes or No in cell M14.

I need the VBA code for:

When M14 = Yes and M16 = "" (empty)
for a message box to appear with "Please state the Filename"

Many thanks

**maczaq** · 01-26-2012, 12:11 PM

try this way ... type below code in your sheet's code

Private Sub Worksheet_Change(ByVal Target As Range)
 if target.address = "$M$14" or target.address = "$m$16" then
   if range("m14").value = "Yes" and range("m16").value = "" then MsgBox "test message"
 end if
End Sub

**jammy78** · 01-26-2012, 01:10 PM

Sorry, I should have probably said - I want to add the code to an existing command.

This is some of the code in the command:

Sub AddDesk_Click()
If Range("D4").Value = "" Then
            MsgBox ("Please insert Project Name")
            Exit Sub
        End If
    If Range("D6").Value = "" Then
            MsgBox ("Please insert Contact Name")
            Exit Sub
        End If
    If Range("D8").Value = "" Then
            MsgBox ("Please insert Pay or Warrant Number")
            Exit Sub
        End If
    If Range("D10").Value = "" Then
            MsgBox ("Please insert a Tel Number")
            Exit Sub
        End If

So I need to add it to this!

**john55** · 01-26-2012, 01:24 PM

see the code provided by maczaq and change it for yr needs
as an option

Sub Button2_Click()
If Range("m14").Value = "Yes" And Range("m16").Value = "" Then MsgBox "Please insert a Tel Number"
End Sub

**maczaq** · 01-26-2012, 03:29 PM

nothing more to say that john55 wrote

maybe shorter code ?

Sub AddDesk_Click()
  If Range("D4").Value = "" Then MsgBox ("Please insert Project Name"): Exit Sub
  If Range("D6").Value = "" Then MsgBox ("Please insert Contact Name"): Exit Sub
  If Range("D8").Value = "" Then MsgBox ("Please insert Pay or Warrant Number"): Exit Sub
  If Range("D10").Value = "" Then MsgBox ("Please insert a Tel Number"): Exit Sub
  If Range("m14").Value = "Yes" And Range("m16").Value = "" Then MsgBox "Please insert a Tel Number"
End Sub

**jammy78** · 01-27-2012, 04:48 AM

Originally Posted by maczaq

nothing more to say that john55 wrote

maybe shorter code ?

Sub AddDesk_Click()
  If Range("D4").Value = "" Then MsgBox ("Please insert Project Name"): Exit Sub
  If Range("D6").Value = "" Then MsgBox ("Please insert Contact Name"): Exit Sub
  If Range("D8").Value = "" Then MsgBox ("Please insert Pay or Warrant Number"): Exit Sub
  If Range("D10").Value = "" Then MsgBox ("Please insert a Tel Number"): Exit Sub
  If Range("m14").Value = "Yes" And Range("m16").Value = "" Then MsgBox "Please insert a Tel Number"
End Sub

What a fool..... I forgot to put the " " round the yes, when I tried! It was a long day.......... ?

Many thanks for the help!