Inserire dati in userform e copiarli in un'altra cartella

Question

Ciao a tutti,

e anche oggi ho bisogno di voi e scusate se disturbo sempre. :(

Spiego il problema..

in una cartella excel (Cartella1), nel Foglio 1 tramite bottone mi esce la prima userform (previo clic del command button ne escono altre) con varie textbox al loro interno e commandbutton  (tra cui uno serve a copiare i dati inseriti nei textbox in diversi fogli della stessa cartella, rispettando le righe).

Ora...io avrei bisogno che tali dati siano copiati in un'altra cartella excel (Cartella2, alcuni dati in diversi fogli).. in pratica deve fare lo stesso lavoro che fa in Cartella1 però in Cartella2..

Sarebbe possibile fare ciò?

Di seguito il codice associato per l'inserimento dati in diversi fogli:

Private Sub CommandButton5_Click()

Dim uRiga As Long

With Modello1

    uRiga = .Range("A" & Rows.Count).End(xlUp).Row + 1

    .Range("A" & uRiga).Value = TextBox1

    .Range("B" & uRiga).Value = TextBox2

    .Range("C" & uRiga).Value = TextBox3

    .Range("D" & uRiga).Value = TextBox7

    .Range("E" & uRiga).Value = TextBox6

    .Range("G" & uRiga).Value = TextBox4

    .Range("F" & uRiga).Value = ComboBox1

End With

Worksheets("Dati").Range("G6") = TextBox4.Text

Worksheets("Dati").Range("C6") = TextBox7.Text

Worksheets("Dati").Range("G5") = ComboBox1.Text

End Sub

Vi ringrazio in anticipo per la vostra disponibilità e buona continuazione

Answer 1

Ciao Sol39,

Ciao a tutti,

e anche oggi ho bisogno di voi e scusate se disturbo sempre. :(

Spiego il problema..

in una cartella excel (Cartella1), nel Foglio 1 tramite bottone mi esce la prima userform (previo clic del command button ne escono altre) con varie textbox al loro interno e commandbutton  (tra cui uno serve a copiare i dati inseriti nei textbox in diversi fogli della stessa cartella, rispettando le righe).

Ora...io avrei bisogno che tali dati siano copiati in un'altra cartella excel (Cartella2, alcuni dati in diversi fogli).. in pratica deve fare lo stesso lavoro che fa in Cartella1 però in Cartella2..

Sarebbe possibile fare ciò?

Di seguito il codice associato per l'inserimento dati in diversi fogli:

Private Sub CommandButton5_Click()

Dim uRiga As Long

With Modello1

    uRiga = .Range("A" & Rows.Count).End(xlUp).Row + 1

    .Range("A" & uRiga).Value = TextBox1

    .Range("B" & uRiga).Value = TextBox2

    .Range("C" & uRiga).Value = TextBox3

    .Range("D" & uRiga).Value = TextBox7

    .Range("E" & uRiga).Value = TextBox6

    .Range("G" & uRiga).Value = TextBox4

    .Range("F" & uRiga).Value = ComboBox1

   

End With

Worksheets("Dati").Range("G6") = TextBox4.Text

Worksheets("Dati").Range("C6") = TextBox7.Text

Worksheets("Dati").Range("G5") = ComboBox1.Text

End Sub

Vi ringrazio in anticipo per la vostra disponibilità e buona continuazione

Prova qualcosa del genere:

'=========>>

Option Explicit

'--------->>

Private Sub CommandButton5_Click()

    Dim destWB As Workbook

    Dim SH_Dati As Worksheet

    Dim SH_Modello As Worksheet

    Dim uRiga As Long

    Const sCartella_Di_Destinazione As String = _

          "miaCartella.xlsx"    '<<=== Modifica

    Const sFoglio_Di_Destinazione As String = "Modello"     '<<=== Modifica

    Const sFoglio2_Di_Destinazione As String = "Dati"          '<<=== Modifica

    Set destWB = Workbooks(sCartella_Di_Destinazione)

    With destWB

        Set SH_Modello = .Sheets(sFoglio_Di_Destinazione)

        Set SH_Dati = .Sheets(sFoglio2_Di_Destinazione)

    End With

    With SH_Modello

        uRiga = .Range("A" & Rows.Count).End(xlUp).Row + 1

        .Range("A" & uRiga).Resize(1, 7).Value = _

        Array(Me.TextBox1.Value, Me.TextBox2.Value, _

              Me.TextBox3.Value, Me.TextBox7.Value, _

              Me.TextBox6.Value, Me.TextBox4.Value, _

              Me.ComboBox1.Value)

    End With

    With SH_Dati

        .Range("G6").Value = Me.TextBox4.Value

        .Range("C6").Value = Me.TextBox7.Value

        .Range("G5").Value = Me.ComboBox1.Value

    End With

End Sub

'<<=========

===

Regards,

Norman

Answer 2

Ciao Sol39,

Ciao Norman e grazie per la risposta.

Ahimè.. non funziona..

Mi segna questa parte in rosso ed esce il messaggio "Errore di sintassi" evidenziando questa riga:

.Range("A" & uRiga).Resize(1, 6).Value = _

       

Invece questa parte in rosso:

Array(Me.TextBox1.Value, Me.TextBox2.Value, _

              Me.TextBox3.Value, Me.TextBox4.Value, _

              Me.TextBox5.Value, Me.TextBox6.Value)

Ho fatto una nuova userform con nove textbox (TextBox1, TextBox2 ecc..)

Grazie dell'aiuto..

A me invece il codice funziona senza alcun problema! 

Potresti scaricare il mio file di prova Sol20190516.xlsm

===

Regards,

Norman

Answer 3

Ciao Norman e grazie per la risposta.

Ahimè.. non funziona..

Mi segna questa parte in rosso ed esce il messaggio "Errore di sintassi" evidenziando questa riga:

.Range("A" & uRiga).Resize(1, 6).Value = _

Invece questa parte in rosso:

Array(Me.TextBox1.Value, Me.TextBox2.Value, _

              Me.TextBox3.Value, Me.TextBox4.Value, _

              Me.TextBox5.Value, Me.TextBox6.Value)

Ho fatto una nuova userform con nove textbox (TextBox1, TextBox2 ecc..)

Grazie dell'aiuto..

Answer 4

Ciao Luis e grazie per aver risposto..

Mi sarebbe molto utile che io inserisca i dati nei textbox, tramite clic del commandbutton mi copia i dati in un'altra cartella (il codice postato non devo cambiarlo perchè sia i fogli sia le celle sono quelle) in quanto questa cartella la dovrei condividere con altre persone.

Queste persone vedranno i dati inseriti da me tramite userform della cartella1 in mio possesso.

Intendevi questo vero?

Grazie mille dell'aiuto

Answer 5

Buongiorno,

Benvenuti nella comunità Microsoft.

Mi chiamo Luis, sono un consulente indipendente e sono qui per aiutarti.

Le informazioni vengono inserite nella casella di testo (textbox) solo per copiare da un cartella a un altro o devono essere visualizzate informazioni all'utente?

Cordialmente,

Luis