Blocco UserForm dopo alcini controlli

Anonimo

Spiego brevemente lo scopo del lavoro.

Sto creando una maschera, in Visual Basic for Application, in cui inserendo dei dati in opportune ComboBox/TextBox e cliccando su un Command Button vengono direttamente caricati in un altro file excel; contemporaneamente si creano cartelle e sottocartelle in una determinata directory. Visto che la maggior parte dei dati sono obbligatori, ho dovuto utilizzare un'istruzione “If..then..elseif..else..end if” abbastanza lunga, che non mi permette di andare avanti nel caricamento dei dati nell’atro file excel se i campi obbligatori non vengono inseriti.

Il mio problema è il seguente:

dopo 5/6 volte che cerco di caricare i dati (i dati sono obbligatori ma li ho lasciati vuoti perché sto in fase di prova e quindi voglio trovare tutti i possibili errori) la UserForm (o meglio la maschera in cui si inseriscono i dati) si blocca e non mi permette di cliccare su nessun TextBox, ComboBox o Command Button….e l’unica cosa che posso fare è chiudere il file excel in cui ho creato la maschera.

PS: il programmino non mi da errori; quindi non capisco dove ho sbagliato il codice visto che sto usando Visaul Basic da una decina di giorni!!

Questo l'intero codice, di tutte le le textbox/combobox/command button:

Private Sub ComboBox10_DropButtonClick()

Me.ComboBox10.List = Application.Transpose(Range("BS7:BU7"))

End Sub

Private Sub ComboBox11_DropButtonClick()

Me.ComboBox11.List = Application.Transpose(Range("BS7:BU7"))

End Sub

Private Sub ComboBox12_DropButtonClick()

Me.ComboBox12.List = Application.Transpose(Range("BS7:BU7"))

End Sub

Private Sub ComboBox2_DropButtonClick()

Me.ComboBox2.List = Application.Transpose(Range("BS3:EG3"))

End Sub

Private Sub ComboBox3_DropButtonClick()

Me.ComboBox3.List = Application.Transpose(Range("BS4:BX4"))

End Sub

Private Sub ComboBox4_DropButtonClick()

Me.ComboBox4.List = Application.Transpose(Range("BS2:CA2"))

End Sub

Private Sub ComboBox5_DropButtonClick()

Me.ComboBox5.List = Application.Transpose(Range("BS5:BU5"))

End Sub

Private Sub ComboBox6_DropButtonClick()

Me.ComboBox6.List = Application.Transpose(Range("BS6:BV6"))

End Sub

Private Sub ComboBox7_DropButtonClick()

Me.ComboBox7.List = Application.Transpose(Range("BS7:BU7"))

End Sub

Private Sub ComboBox8_DropButtonClick()

Me.ComboBox8.List = Application.Transpose(Range("BS7:BU7"))

End Sub

Private Sub ComboBox9_DropButtonClick()

Me.ComboBox9.List = Application.Transpose(Range("BS7:BU7"))

End Sub

Private Sub CommandButton1_Click()

Unload Me

Windows("Maschera Contract Summary.xlsm").Activate

Range("A1").Select

ActiveWindow.LargeScroll ToRight:=1

Range("AB5:BH5").Select

Selection.Copy

Range("A1").Select

ActiveCell.Offset(8, 27).Range("A1").Select

Selection.End(xlDown).Select

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveSheet.Paste

ActiveSheet.Range("A1").Select

Application.CutCopyMode = False

ActiveWorkbook.Save

UserForm1.Show

End Sub

Private Sub CommandButton2_Click()

Unload Me

If TextBox1.Text = "" Then

MsgBox "Digitare Valore in Campo Company.", vbCritical, "Errore"

UserForm1.Show

ElseIf ComboBox5.Text = "" Then

MsgBox "Definire area procurement ID.", vbCritical, "Errore"

UserForm1.Show

ElseIf ComboBox4.Text = "" Then

MsgBox "Selezionare Valore Commodity L2.", vbCritical, "Errore"

UserForm1.Show

ElseIf ComboBox2.Text = "" Then

MsgBox "Selezionare Valore Commodity L3.", vbCritical, "Errore"

UserForm1.Show

ElseIf Not Left(Range("AD5").Value, 1) = Left(Range("AE5").Value, 1) Then

MsgBox "La Commodity L3 deve essere della stessa famiglia della Commodity L2.", vbCritical, "Errore"

UserForm1.Show

ElseIf TextBox28.Text = "" Then

MsgBox "Inserire Vendor Code.", vbCritical, "Errore"

UserForm1.Show

ElseIf TextBox26.Text = "" Then

MsgBox "Inserire Buyer Code.", vbCritical, "Errore"

UserForm1.Show

ElseIf TextBox7.Text = "" Then

MsgBox "Inserire SAP Contract Number.", vbCritical, "Errore"

UserForm1.Show

ElseIf InStr(TextBox7.Text, "/") Then