Print If ComboBox5.Value=Range("K8")

[toughie]

Im having issues with this code

This is what i would like the code to do - ComboBox5.Value = Range ("K8") if true print if false MsgBox "Incorrect Revision"




If ActiveSheet.Name = "VAM PINS" = True Then
If ComboBox5.Value = Range("'VAM PINS'!$K$8") = True Then
End If
ActiveSheet.PrintOut Copies:=TextBox3.Value




If ActiveSheet.Name = "VAM PINS" = True Then
If ComboBox5.Value = Range("'VAM PINS'!$K$8") = False Then
End If
MsgBox "Incorrect Revision"



If ActiveSheet.Name = "VAM BOX" = True Then
If ComboBox5.Value = Range("'VAM BOX'!$K$8") = True Then
End If
ActiveSheet.PrintOut Copies:=TextBox3.Value




If ActiveSheet.Name = "VAM BOX" = True Then
If ComboBox5.Value = Range("'VAM BOX'!$K$8") = False Then
End If
MsgBox "Incorrect Revision"


End If

End Sub

Any help is appreciated

 

[AlphaFrog]

   If ActiveSheet.Name = "VAM PINS" Or ActiveSheet.Name = "VAM BOX" Then
       If ComboBox5.Value = Range("$K$8") Then
            ActiveSheet.PrintOut Copies:=TextBox3.Value
       Else:
            MsgBox "Incorrect Revision"
       End If
   End If

 

[toughie]

Hi AlphaFrog,

this help simplify my code but now only shows the message box even when my combobox5.value= K8

in cell K8 there is a vlookupformula does this affect the code?

 

[toughie]

Hi AlphaFrog,

this help simplify my code but now only shows the message box even when my combobox5.value= K8

in cell K8 there is a vlookupformula does this affect the code?​

 

[AlphaFrog]

Are there numeric values in K8 and the combobox? If yes, try this...

    If ActiveSheet.Name = "VAM PINS" Or ActiveSheet.Name = "VAM BOX" Then
    
        If Val(ComboBox5.Value) = Range("$K$8") Then
    
            ActiveSheet.PrintOut Copies:=TextBox3.Value
    
        Else:
    
            MsgBox "Incorrect Revision"
    
        End If
    
    End If

 

[toughie]

That has done the trick AlphaFrog!

Ive spent a couple weeks trying to complete the code and now it finally works

Huge thanks.