Disable command button

  • Thread starter Thread starter Mikeice
  • Start date Start date
M

Mikeice

I have a command button that I have disabled unless a certain number is
entered.
but I need it disabled also if the cell is blank any ideas.

Here is the code thus far.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Sheets("Quality Accessing Template").Range("B6").Value >= 0 And
Sheets("Quality Accessing Template").Range("B6").Value <= 9999 Then
Sheets("Quality Accessing Template").CommandButton1.Enabled = True

Else

Sheets("Quality Accessing Template").CommandButton1.Enabled = False

End If


End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Sheets("Quality Accessing Template")
If Not IsEmpty(.Range("B6").Value) Then
If .Range("B6").Value >= 0 And _
.Range("B6").Value <= 9999 Then
.CommandButton1.Enabled = True
Else
.CommandButton1.Enabled = False
End If
Else
.CommandButton1.Enabled = False
End If
End With
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Quality Accessing Template").Range("B6").Value >= 0 And
Sheets("Quality Accessing Template").Range("B6").Value <= 9999 And
Sheets("Quality Accessing Template").Range("B6") <> "" Then

Sheets("Quality Accessing Template").CommandButton1.Enabled = True

Else

Sheets("Quality Accessing Template").CommandButton1.Enabled = False

End If

End Sub



Mangesh
 
Back
Top