Macro with Multiple If Statements

dwirony · #2 03-29-2017, 09:59 AM

This covers the first 7 rules. I'm a little uncertain of rule 8. This is going to apply to all the other rules?

Code:

Sub MoveValues()
'
' MoveValues Macro
' First Seven rules written here. Note I'm using <> and = to determine if the cell has a value/no value.
'
If Range("B6").Value <> "" And Range("B8").Value = "" And Range("B12").Value = "" Then
   Range("B27").Value = Range("B6").Value
 
ElseIf Range("B6").Value = "" And Range("B8").Value <> "" And Range("B12").Value = "" Then
   Range("B27").Value = Range("B8").Value
 
ElseIf Range("B6").Value = "" And Range("B8").Value = "" And Range("B12").Value <> "" Then
   Range("B27").Value = Range("B12").Value
 
ElseIf Range("B6").Value = "" And Range("B8").Value <> "" And Range("B10").Value <> "" Then
   Range("B27").Value = Range("B8").Value & "/" & Range("B10").Value
 
ElseIf Range("B6").Value <> "" And Range("B8").Value = "" And Range("B10").Value <> "" Then
   Range("B27").Value = Range("B6").Value & "/" & Range("B10").Value
 
ElseIf Range("B6").Value = "" And Range("B8").Value = "" And Range("B10").Value <> "" Then
   MsgBox "The number is a required field. Please make the necessary adjustments."
 
ElseIf Range("B6").Value <> "" And Range("B8").Value <> "" And Range("B10").Value <> "" And Range("B12").Value <> "" Then
   MsgBox "You have entered too many numbers. Please make the necessary adjustments."
 
End If
 
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Multiple If statements,	Jamal NUMAN	Excel	16	11-15-2022 11:59 PM
Using multiple IF statements on a mail merge	ajh19742000	Mail Merge	1	11-01-2016 06:11 PM
Help with if then statements	brent chadwick	Word VBA	35	07-25-2015 02:41 PM
Mailmerge certain text using multiple if statements	Debs	Mail Merge	4	06-19-2014 03:34 AM
Multiple If statements	bremen22	Excel	2	10-15-2013 06:37 AM