Private Sub CommandButton1_Click()
Dim dd, fg
Application.ScreenUpdating = False
If RigaLista > 43 Then MsgBox "Limite della lista raggiunto", vbCritical, "Controllo inserimento": Exit Sub
dd = ListBox1.ListIndex
fg = ActiveSheet.Name
Sheets("Lista").Select
If TextBox4 = "" Then
MsgBox "INSERISCI LA QUANTITA'" & vbCrLf & "QUANTITATIVO MINIMO = 1" & vbCrLf & "SE NON LO INSERISCI SARA' = 0", vbExclamation, "ATTENZIONE!"
Exit Sub
TextBox4.SetFocus
Else
With Sheets("Lista")
Cells(RigaLista, 1) = ListBox1.List(dd, 0)
Cells(RigaLista, 2) = ListBox1.List(dd, 2)
Cells(RigaLista, 3) = ListBox1.List(dd, 1)
Cells(RigaLista, 4) = CDbl(ListBox1.List(dd, 3))
Cells(RigaLista, 5) = CDbl(TextBox4.Value)
End With
End If
RigaLista = RigaLista + 1
Sheets(fg).Select
Application.ScreenUpdating = True
TextBox4 = ""
End Sub
ricordarsi i decimali