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

Fatto..

Grazie ancora!