Simple If statement

[drewbsking]

Can anyone please tell me why the heck this does not work?

If ActiveCell.Column <> 51 Or ActiveCell.Column <> 52 Then
MsgBox "You can not edit this column.", vbCritical, "For your safety..."
Else
CODEact
End If

Thanks!

 

[VoG]

Try And instead of Or.

 

[njimack]

You haven't said why this doesn't work, but since the activecell cannot be in column 51 AND 52, I would expect your If statment to always return false.

Try changing the OR to AND.

 

[drewbsking]

Private Sub SpinButton1_SpinDown()
If ActiveCell.Column <> 51 And ActiveCell.Column <> 52 Then
MsgBox "You can not edit this column.(AY or AZ only please.)", vbCritical, "For your safety..."
Else
'Check user input!
  Dim Cell As Range
  On Error Resume Next
  For Each Cell In Selection
    If Len(Cell.Value) Then Cell.Value = Cell.Value - Me.ManualNum.Value
  Next
      
End If
      End Sub

This is to use a spin button the change a cell value by a value that is listed in manualnum text box.

The AND works. That was an easy one for this morning. Thanks for your help! I never considered AND because I dont need both conditions to be true. I just wanted to prevent a macro from running in any other column except 51 ("AY") and 52 ("Az"). The OR would prevent the macro from running at all.

Thanks again!