Ciao

Devi tener presente che ogni"scrittura" sul foglio fa perdere tempo. Non entro nel merito del codice (ognuno di noi ha un proprio stile e se il risultato è quello che si vuole, allora va bene comunque) ma penso che si potrebbe velocizzare assegnando ad una matrice i valori da scrivere nelle celle da .Offset (RowCount, 0) fino a fino a .Offset(RowCount, 14) e poi scrivere indicando l'intervallo. Continuare poi con gli altri. 

Altro sistema (più sbrigativo ma comporta un po' di lavoro prima) potrebbe essere quello di evitare i salti di colonna ed assegnare i valori in sequenza alla matrice e poi scrivere nell'intero intervallo)

Ciao,

Mario

Ciao

Ripeti per 10 volte questo ciclo

1      .Offset(RowCount, 0).Value = ordine1.Caption
10   .Offset(RowCount, 1).Value = CDate(DataContr.Value)
10   .Offset(RowCount, 2).Value = ComboBox7.Value
10   .Offset(RowCount, 3).Value = Cantiere.Value
10   .Offset(RowCount, 4).Value = ComboBox5.Value
10   .Offset(RowCount, 5).Value = ComboBox6.Value
10   .Offset(RowCount, 6).Value = Manodopera.Caption
1      .Offset(RowCount, 7).Value = Costo1.Value
10   .Offset(RowCount, 9).Value = ComboBox99.Value
10   .Offset(RowCount, 11).Value = Opera.Value
10   .Offset(RowCount, 12).Value = Wbs.Value
10   .Offset(RowCount, 13).Value = Task_Lavorazione.Value
1     .Offset(RowCount, 14).Value = attivita1.Value
1     .Offset(RowCount, 16).Value = UM1.Caption
1     .Offset(RowCount, 17).Value = ora1.Value
1     .Offset(RowCount, 21).Value = OPERAIO1.Value
1     .Offset(RowCount, 20).Value = Qualifica1.Value
1     .Offset(RowCount, 22).Value = Prezzo1.Value

Le righe dove vedi il 10 sono identiche tutte le volte mentre le altre cambiano

Devi trovare il sistema che, pur cambiando di volta in volta, ogni ciclo possa assegnare alla matrice il valore giusto. Ti passo un esempio (ma devi studiarci sopra per individuare il numero del controllo). Inserisci In UserForm1 un pulsante (dovrebbe venire il n°35)  ed assegnagli questo codice.

Private Sub CommandButton35_Click()
Dim obj As Control
For Each obj In UserForm1.Frame2.Controls
If TypeOf obj Is MSForms.TextBox Then
obj.Value = True
Stop
End If
Next

End Sub

Ho messo un stop per farti notare che tutte le TextBox avranno il valore True man mano che avanzi.

Non è semplicissimo ma sicuramente alla tua portata.

Ciao,

Mario

Giuseppe Buongiorno

la stringa 

Application.ScreenUpdating = False e alla fine Application.ScreenUpdating = True

le ho rese come commento perchè  quando cambio pagina sulla Multipage devo cambiare anche foglio, 

 e se lascio attivi Application. ScreeUpdating ecc ecc non mi cambia foglio excel. 

poi per quanto riguarda  

Inoltre  l'Istruzione:
- lRiga = .Range("Z" & .Rows.Count).End(xlUp).Row + 1

la ripeto perchè,  a mia conoscenza è l'unico modo per registrare tutte le righe degl'operai in seguenza, scrivendo la prima riga e poi se la TextBox Operaio2 e piena trova la riga vuota successiva sul foglio e archivia e così via. 

il codice che ho proposto sull'editor del forum  e solo un pezzo. il resto lo trovi sul tasto "Archivia" della Userform del file che ho allegato.  magari prova a lanciare la Userform, compila tuyye le TextBox e combobox presenti e poi clicca sul tasto Archia e vedi quello che fa e quello che mi occorre. 

In effetti lo riconosco anche io che è un metodo poco elegante,  poco veloce come procedimento e anche lento nell'archiviare i dati sul foglio Excel; per quello mi ero rivolto a voi esperti. 

intanto ringrazio anche Marius per la sua soluzione che provo tra un pò a mettere in atto e cerco di vedere se e più funzionale e veloce. Sperando di riuscire a capire la sua procedura Proposta. 

Ma se hai da proporre qualcosa ben venga, e te ne sarei grato. 

saluti.  

errata corrige. 

questa stringa corrisponde al Centro di Costo

10   .Offset(RowCount, 6).Value = Manodopera.Caption  

saluti e scusa

Ciao Marius tranquillo e pensa alla salute.

Intanto provo con l'esempio del ciclo che mi hai suggerito, spero di risolvere, Cmq ti aggiorno, e quando stai bene e sei nel pieno delle tue forze fisiche e mentali mi darai una mano eventualmente non risolvo. 

Saluti e in bocca al lupo per i tuoi denti. Ti auguro di cuore buona salute 

Ciao Marius

spero che stai meglio oggi. 

cmq come ti avevo accennato stamani sbatto la testa al muro perchè non riesco a comporre in modo corretto e a mettere insieme i tuoi suggerimenti. 

anche perchè mi va in errore. 

sicuramente sbaglio qualcosa, ma come detto ho grosse difficoltà a scrivere il codice in modo corretto e far capire come archiviare i dati sul foglio, 

allego quello che son riuscito a mettere insieme ma come vedi ho capito molto poco, 

Private Sub CommandButton35_Click()

Dim obj As Controls
For Each obj In UserForm1.Frame2.Controls
If TypeOf obj Is MSForms.TextBox Then
obj.Value = True
For i = 1 To 10

' Controls("CommandButton" & i).Caption = "Bouton " & i

Controls("DataContr" & i).Text = "DataContr" & i
Controls("ComboBox7" & i).Text = "ComboBox7" & i
Controls("Cantiere" & i).Text = "Cantiere" & i
Controls("ComboBox5" & i).Text = "ComboBox5" & i
Controls("ComboBox6" & i).Text = "ComboBox6" & i

If OPERAIO1.Text <> "" Then

Controls("DataContr" & i).Text = "DataContr" & i
Controls("ComboBox7" & i).Text = "ComboBox7" & i
Controls("Cantiere" & i).Text = "Cantiere" & i
Controls("ComboBox5" & i).Text = "ComboBox5" & i
Controls("ComboBox6" & i).Text = "ComboBox6" & i
'Controls("CommandButton35" & i).Caption = " Archivia" & i

End If

Next i

'Stop
End If
Next
End Sub

anche perchè essendo autodidatta mi mancano molte basi, e avvolte scrivo codici più semplici e li ripeto per avere il risultato che cercavo. (vedere file allegato ad inizio discussione) ma come scritto sin dall'inizio avevo chiesto aiuto a voi esperti per avere una mano per un codice sintetico, funzionale e che facesse al mio caso, ma sopratutto era più veloce nel registrare i dati nel foglio GiornaleLavori, trovando la prima riga libera facendo il controllo dal Basso, o un controllo più veloce. 

Ti faccio un caro saluto con l'augurio che oggi stai meglio. 

resto in attesa di riscontro e tuo prezioso aiuto

Buon giorno 

Albatros.

Non appena ho modo di vedere il file ti aggiorno.

E cerco di capire quello che mi hai suggerito e modificato, intanto grazie mille, 

allora, prova a sostituire il codice del pulsante "Archivia", con quello che ti posto.

Il codice funziona, pero è rallentato dal fatto che lui deve ricalcolare il numero della label"Ordine1", ogni volta che inserisci un nuovo record.

Private Sub CommandButton10_Click()
' Dim RowCount As Range
'---Codice Archivia su Gestionale--------


    Set clsheet = Application.ThisWorkbook.Worksheets("Giornalelavori")
    RowCount = clsheet.Range("B" & Rows.Count).End(xlUp).Row + 1
    With clsheet
        For i = 1 To 10
            Range("B" & RowCount).Offset(0, 0).Value = Me.Controls("ordine" & 1).Caption
            Range("B" & RowCount).Offset(0, 7).Value = UserForm1.Controls("Costo" & i).Value
            Range("B" & RowCount).Offset(0, 14).Value = UserForm1.Controls("attivita" & i).Value
            Range("B" & RowCount).Offset(0, 16).Value = UserForm1.Controls("UM" & i).Caption
            Range("B" & RowCount).Offset(0, 17).Value = UserForm1.Controls("ora" & i).Value
            Range("B" & RowCount).Offset(0, 21).Value = UserForm1.Controls("OPERAIO" & i).Value
            Range("B" & RowCount).Offset(0, 20).Value = UserForm1.Controls("Qualifica" & i).Value
            Range("B" & RowCount).Offset(0, 22).Value = UserForm1.Controls("Prezzo" & i).Value
            Range("B" & RowCount).Offset(0, 1).Value = CDate(DataContr.Value)
            Range("B" & RowCount).Offset(0, 2).Value = ComboBox7.Value
            Range("B" & RowCount).Offset(0, 3).Value = Cantiere.Value
            Range("B" & RowCount).Offset(0, 4).Value = ComboBox5.Value
            Range("B" & RowCount).Offset(0, 5).Value = ComboBox6.Value
            .Range("B" & RowCount).Offset(0, 6).Value = Manodopera.Caption
            Range("B" & RowCount).Offset(0, 9).Value = ComboBox99.Value
            Range("B" & RowCount).Offset(0, 11).Value = Opera.Value
            Range("B" & RowCount).Offset(0, 12).Value = Wbs.Value
            Range("B" & RowCount).Offset(0, 13).Value = Task_Lavorazione.Value
            Range("b29").Select
            While ActiveCell <> ""
                If ActiveCell <> "N° O." Then
                    ordine1.Caption = ActiveCell.Offset(0, 0).Value + 1
                Else

                End If
                ActiveCell.Offset(1, 0).Activate
            Wend
            RowCount = RowCount + 1
        Next i

    End With
    For Each obj In UserForm1.Controls
        If (TypeOf obj Is MSForms.TextBox) Or (TypeOf obj Is MSForms.ComboBox) Then
            obj.Text = ""
            UM1.Caption = ""
            UM2.Caption = ""
            UM3.Caption = ""
            UM4.Caption = ""
            UM5.Caption = ""
            UM6.Caption = ""
            UM7.Caption = ""
            UM8.Caption = ""
            UM9.Caption = ""
            UM10.Caption = ""
            Label_OP_2.Caption = ""
            Label_OP_3.Caption = ""
            Label_OP_4.Caption = ""
            Label_OP_5.Caption = ""
            Label_OP_6.Caption = ""
            Label_OP_7.Caption = ""
            Label_OP_8.Caption = ""
            Label_OP_9.Caption = ""
            Label_OP_10.Caption = ""
        End If
    Next
    CaricaDati
    MsgBox ("Inserimento eseguito correttamente")


End Sub

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )

Dodi ha scritto:

ma leggendo il codice presumo che con il ciclo e una funzione che si ripete per N° di 10 volte e non si può interrompere con un controllo if .

With clsheet
        For i = 1 To 10
        If UserForm1.Controls("OPERAIO" & i).Value <> "" Then
            Range("B" & RowCount).Offset(0, 0).Value = Me.Controls("ordine" & 1).Caption
            Range("B" & RowCount).Offset(0, 7).Value = UserForm1.Controls("Costo" & i).Value


'---Continua codice

 Wend
            RowCount = RowCount + 1
            End If
        Next i

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )