per completezza allego un video di quello che succede e le parti di codice che ho modificato e che secondo me sono interessate, ma probabilmente non ho modificato tutto in modo corretto perchè immagino che se ci sia la possibilità di inserire una riga di sola andata ci sia anche il modo di inserire una riga di solo ritorno by passando l'inserimento doppio di andata e ritorno insieme

Raffaele53 ha scritto:

Premesso che un Transfer di Ritorno lo puoi inserire solo dopo aver inserito quello d'andata. >>>MsgBox "Non puoi compilare un RITORNO senza la corrispondente ANDATA." & vbNewLine & _
"Cerca prima le informazioni di andata, recuperandole dall'elenco sottostante, dopodiché " & _
"potrai compilare il ritorno.", vbInformation, "Attenzione"
Come si dovrebbe fare per inserire quello di ritorno, dato che non si può accedere alla TextBoxB (data) ed il tasto "inserisci riga" è disattivato?

Quello che fai presente qui è vero ma dovrebbe funzionare solo quando vuoi inserire un doppio transfer A/R e le due checkbox 1 e 2 non sono flaggate, mentre se fleggo una delle 2 checkbox mi dovrebbe dare la possibilità di scegliere cosa inserire liberamente

Private Sub CheckBox2_Click()
    Call form_checkbox2_click(Me)
    Label1.Visible = Not CheckBox2
    TextBoxA.Visible = Not CheckBox2
    Label8.Visible = Not CheckBox2
    TextBox7.Visible = Not CheckBox2
    Label18.Visible = Not CheckBox2
    TextBox10.Visible = Not CheckBox2
    CheckBox1.Visible = Not CheckBox2
    
End Sub

Private Sub btnInsert_Click()
'inserisce i dati delle textbox nel foglio corrispondente al form
Dim i As Long
Dim f As Range
Dim r As Range
Dim id As Long

    If TextBoxA = "" And TextBoxB = "" Then
        set_info Me, "Dati incompleti. Inserire almeno una data."
        TextBoxA.Tag = 0
        Exit Sub
    End If
    
    If IsDate(TextBoxA) And IsDate(TextBoxB) Then
        If CDate(TextBoxB) < CDate(TextBoxA) Then
            set_info Me, "Non posso inserire i dati. La prima data non può essere superiore alla seconda."
            TextBoxA.Tag = 0
            Exit Sub
        End If
    End If
    
    set_info Me, ""
    
    id = [Id_Transfer] + 1
    
    Set f = active_table(Me)
    i = f.Rows.Count + 3    'prima riga libera in cui inserire i dati nuovi e ID di questo inserimento
    Set f = Rows(i).Resize(, f.Columns.Count)
    
    With f
    .Select
        .Interior.Color = xlNone
        .Font.Size = 12
        .Font.Bold = False
        .Font.Name = "Calibri"
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Borders.LineStyle = xlContinuous
        .WrapText = True
        
        'compilare l'andata?
        If TextBoxA <> "" Then
            .Cells(1) = i                   'N
            .Cells(2) = CDate(TextBoxA)     'data
            .Cells(3) = TextBox3            'ospite
            .Cells(4) = Val(TextBox4)       'n° passeggeri
            .Cells(5) = TextBox5            'destinazione da
            .Cells(6) = TextBox6            'destinazione per
            .Cells(7) = TextBox7            'ora arrivo
            
            'in funzione di checkbox1 salvo ora partenza e transfer se compilati
            .Cells(8) = IIf(CheckBox1, TextBox8, "")        'ora partenza
            .Cells(9) = IIf(CheckBox1, TextBox9, "")        'ora transfer
            
            .Cells(10) = TextBox10    'note
            
            .Cells(11) = "A"   'A/R
            .Cells(12) = "Id-" & Right("0000" & id, 5)  'nr. Id
            
            'formattazione colonna 1
            .Cells(1).Interior.Color = 15853019
            .Cells(1).Font.Bold = True
            
            .EntireRow.AutoFit
        End If
    End With
        
    'compilare il ritorno?
    If TextBoxB <> "" Then
        
        
        If TextBoxA = "" Then
            MsgBox "Non puoi compilare un RITORNO senza la corrispondente ANDATA." & vbNewLine & _
            "Cerca prima le informazioni di andata, recuperandole dall'elenco sottostante, dopodiché " & _
            "potrai compilare il ritorno.", vbInformation, "Attenzione"
            Exit Sub
        End If
        
        

        Set f = f.Offset(1)     'avanza di una riga per inserire eventualmente le info di ritorno
        With f
            .Interior.Color = xlNone
            .Font.Size = 12
            .Font.Bold = False

            .Font.Name = "Calibri"
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .Borders.LineStyle = xlContinuous
            .WrapText = True
            
            i = i + 1
            .Cells(1) = i             'N
            .Cells(2) = CDate(TextBoxB)      'data
            .Cells(3) = TextBox3        'ospite
            .Cells(4) = Val(TextBox4)   'n° passeggeri
            .Cells(5) = TextBox6        'destinazione per
            .Cells(6) = TextBox5        'destinazione da
            .Cells(7) = ""              'ora arrivo
            .Cells(8) = TextBox8        'ora partenza
            .Cells(9) = TextBox9        'ora transfer
            .Cells(10) = TextBox11      'note
            .Cells(11) = "R"            'A/R
            .Cells(12) = "Id-" & Right("0000" & id, 5)  'nr. Id
            
            'formattazione colonna 1
            .Cells(1).Interior.Color = 15853019
            .Cells(1).Font.Bold = True
            
            .EntireRow.AutoFit
        End With
    End If
    
    '-----------------------------------------------
    'un trucco per il riordinamento...
    'memorizza le date come valori in ultima colonna
    'riordina sulla base di questa e poi la cancella
    Set f = active_table(Me)
    f.Offset(, 12).Cells(1) = "#"
    Set f = f.Offset(1, 1).Resize(f.Rows.Count - 1, 1)
    f.Select
    For Each r In f
        r.Offset(, 11) = CLng(CDate(r))
    Next
    
    With active_table(Me)
        .Sort key1:=.Columns(13), Order1:=xlAscending, Header:=xlYes
        .Columns(13).Delete
    End With

    'aggiusta la colonna numerica A
    Set f = f.Offset(, -1)
    f.Select
    f(1) = 1
    f(1).AutoFill f, xlFillSeries
    '-----------------------------------------------
    
    ThisWorkbook.Names("Id_Transfer").Value = id
    
    If CheckBox1 Then CheckBox1 = False
    If CheckBox2 Then CheckBox2 = False
    
    Call btnClear_Click
    
        
    TextBoxA.Tag = 1
    f(1).Select
    set_info Me, "Inserimento eseguito correttamente."
End Sub

Ti ringrazio per la risposta e per l'aiuto proverò il file e ti aggiorno.

Raffaele53 ha scritto:

Troppo complesso per modificare questo codice-pesante. Io mi preocuperei di sapere per quale motivo questo files tende a bloccarsi e per quale motivo quando si esce dall'userform debba lavorare altri 15 secondi

ti do perfettamente ragione ma non ho le competenze per pormi questi quesiti da solo, e con molta franchezza devo badare alla sostanza e cioè far lavorare correttamente il file per quello che serve per lavoro, se ci mette 15 secondi in più purtroppo me lo faccio andare bene.

Raffaele53 ha scritto:

Quando metterai Transfer Andata avrai ancora i numeri errati.

se la tua preoccupazione è successiva ad un possibile inserimento dell'andata per quello stesso ospite e quindi far combaciare l'ID transfer, non esiste il problema perchè uso questa opzione per svariati motivi che non mi dilungo a spiegare ma solo per creare una riga diretta di ritorno (che in realtà forse sarebbe meglio chiamare "Inserire Tratta singola da Hotel - Ritorno) che non avrà mai un andata. Non so se mi sono spiegato. Ad ogni modo io sono sempre aperto alle spiegazioni se posso aiutare in qualche modo. Sono consapevole che per chi lo guarda per la prima volta sembra complesso, speravo infatti riuscissero ad interfacciarsi Vecchio_frac e Alex81 che conoscono abbastanza bene il codice ma sicuramente saranno impegnatissimi e non pretendo assolutamente che vengano in mio soccorso ci mancherebbe. Quello che si può fare bene, Quello che non si può non sarà mai una pretesa.

Grazie a tutti

Grazie Raffaele, ti farò sapere

Raffaele53 ha scritto:

aggiustare il numero ex

cosa intendi non capisco