[RESOLVED] A Value in A Caption when Cell is Null

[sohiab]

I have the following code. Problem is that sometimes Cell C1 is Null. When the Cell is Empty, I want to Disable the command Button and change the Caption to nothing to Resume. How can I do this?

Private Sub UserForm_Initialize()
Dim strCap As String
strCap = Sheets("Output").Range("C1").Value & " Statement Resumed."
CmdRes.Caption = strCap
    
End Sub

[sohiab]

I've tried the following but seems to be something wrong with the Else If.

Private Sub UserForm_Initialize()
Dim strCap As String
If Sheets("Output").Range("C1").Value <> "" Then
strCap = Sheets("Output").Range("C1").Value & " Statement Resumed."
CmdRes.Caption = strCap
CmdRes.Default = True
Else If
CmdRes.Caption = Disabled
CmdRes.Default = False
End If
End Sub

[westconn1]

cmdres.caption = "Disabled"
or
cmdres.enabled = false
depending what you want to achieve

[sohiab]

I get an expected Expression Compile Error with this.Any Ideas?

[westconn1]

your else if has no condition, should be Else

[anhn]

Private Sub UserForm_Initialize()
   Dim strCap As String

   strCap = Sheets("Output").Range("C1").Value
   If strCap <> "" Then
      CmdRes.Caption = strCap & " Statement Resumed." 
      CmdRes.Default = True
   Else
      '--CmdRes.Caption = "Disabled"
      '--CmdRes.Default = False
      CmdRes.Enabled = False
   End If
End Sub