Thread: Macro with Multiple If Statements
View Single Post
 
Old 03-29-2017, 09:59 AM
dwirony dwirony is offline Windows 7 64bit Office 2003
Advanced Beginner
  
Join Date: Oct 2016
Posts: 49
dwirony will become famous soon enough
Default
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
Reply With Quote