Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Intanto puoi eleminare dal codice della userform l'evento Change.
Poi l'Initialize lo puoi semplificare in:
Private Sub UserForm_Initialize()
'VISUALIZZAZIONE SPEZZATE
Me.ComboBox1.List = Range("K54:K89").Value
End Sub
ed infine il codice che chiedi:
Private Sub CommandButton1_Click()
Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("SPEZZATA + PIEGHE")
With sh
.Unprotect Password:="****"
If Me.ComboBox1.Text <> "" Then
.Cells(.Cells(Rows.Count, 24).End(xlUp).Row + 1, 24).Value = --Me.ComboBox1.Value
End If
.Protect Password:="****"
End With
Set sh = Nothing
End Sub
Ciao.