Need to get Value from ComboBox Form Control

Hi Andy,

Thanks for the update.

I searched some other examples and I found the solution.

Here's what was missing:

Private Sub CommandButton1_Click()
Dim sname As String

    If Sheets("Sheet1").Shapes("MonthDropDown").ControlFormat = "" Then
    MsgBox "Please enter the Sheet number!", vbCritical, "No week selected"
    Exit Sub
    End If
        With Sheets("Sheet1").Shapes("MonthDropDown").ControlFormat
            sname = .List(.Value)        End With
        
    Sheets(sname).Range("A19:A45").Value = Sheets("Sheet1").Range("AU19:AU45").Value
      
End Sub

Now it works perfectly!

Thanks a million. Really appreciated.
Filipe

Hi Andy,

Thanks for the update.

I searched some other examples and I found the solution.

Here's what was missing:

Private Sub CommandButton1_Click()
Dim sname As String

    If Sheets("Sheet1").Shapes("MonthDropDown").ControlFormat = "" Then
    MsgBox "Please enter the Sheet number!", vbCritical, "No week selected"
    Exit Sub
    End If
        With Sheets("Sheet1").Shapes("MonthDropDown").ControlFormat
            sname = .List(.Value)        End With
        
    Sheets(sname).Range("A19:A45").Value = Sheets("Sheet1").Range("AU19:AU45").Value
      
End Sub

Now it works perfectly!

Thanks a million. Really appreciated.
Filipe