Ciao a tutti,
devo copiare dei valori presenti in TextBox1 di una UserForm del WorkBook A il cui percorso è Z:\mionome\cartella_A, sul Foglio 2 del WorkBook B il cui percorso è Z:\altronome\cartella_B.
Uso MS Office 2010.
Qualche aiuto?
Grazie
Moderatori: Anthony47, Flash30005
Private Sub CommandButton1_Click()
Dim WS1 As Worksheet, UR As Long
Set WS2 = Workbooks("workbookB.xlsm").Sheets("Foglio2")
UR = WS2.Cells(Rows.Count, 1).End(xlUp).Row + 1
WS2.Cells(UR, 1) = TextBox23.Value
WS2.Cells(UR, 2) = TextBox1.Value
WS2.Cells(UR, 3) = TextBox2.Value
WS2.Cells(UR, 4) = TextBox3.Value
WS2.Cells(UR, 5) = TextBox4.Value
WS2.Cells(UR, 6) = TextBox5.Value
WS2.Cells(UR, 7) = TextBox6.Value
WS2.Cells(UR, 8) = TextBox24.Value
WS2.Cells(UR, 9) = TextBox7.Value
WS2.Cells(UR, 10) = TextBox8.Value
WS2.Cells(UR, 11) = TextBox9.Value
WS2.Cells(UR, 12) = TextBox10.Value
WS2.Cells(UR, 13) = TextBox25.Value
WS2.Cells(UR, 14) = TextBox11.Value
WS2.Cells(UR, 15) = TextBox14.Value
WS2.Cells(UR, 16) = TextBox17.Value
WS2.Cells(UR, 17) = TextBox20.Value
WS2.Cells(UR, 18) = TextBox12.Value
WS2.Cells(UR, 19) = TextBox15.Value
WS2.Cells(UR, 20) = TextBox18.Value
WS2.Cells(UR, 21) = TextBox21.Value
WS2.Cells(UR, 22) = TextBox13.Value
WS2.Cells(UR, 23) = TextBox16.Value
WS2.Cells(UR, 24) = TextBox19.Value
WS2.Cells(UR, 25) = TextBox22.Value
End Sub
Private Sub CommandButton1_Click()
Dim UR As Long
Workbooks.Open Filename:="Z:\altronome\cartella_B.xls" '<<< Il vero nome file
Sheets("Foglio2").Select
' Set WS2 = Workbooks("workbookB.xlsm").Sheets("Foglio2") ' si puo' eliminare
UR = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(UR, 1) = TextBox23.Value
Cells(UR, 2) = TextBox1.Value
'etc etc
'etc etc
ActiveWorkbook.Close True
End sub
Torna a Applicazioni Office Windows
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 14 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
Modifica visualizzazione file di una cartella Autore: mastino46 |
Forum: Sistemi Operativi Windows Risposte: 2 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 56 ospiti