| | Post: 112 | Registrato il: 13/01/2017
| Città: GENOVA | Età: 55 | Utente Junior | 2013 | | OFFLINE | |
|
  04/05/2020 14:17 | |
Ciao a tutti
Ho provato alcune macro trovate in rete ma non riesco ad adattarle al mio problema
HO un file TOOL dove vado mettere alcuni valori
Vorrei che questi valori mi andassero, dopo una macro. in un altro excel RIEPILOGO
Ogni volta che apro il file TOOL mi dovrebbe fare lo stesso, inserendo i nuovi dati sulla prima riga vuota del file RIEPILOGO
Non riesco
allego file di esempi
Grazie [Modificato da enri1969 04/05/2020 14:55] |
|
| | Post: 32 | Registrato il: 27/12/2016
| Città: SIENA | Età: 50 | Utente Junior | Office 2019/Office 365 | | OFFLINE | |
|
| 04/05/2020 14:50 | |
Ciao,
non vedo alcun file allegato ---
pensa bene a quello che cerchi, allega un file di esempio, prova il registratore di macro, imparerai e potresti già avere la soluzione |
| | Post: 112 | Registrato il: 13/01/2017
| Città: GENOVA | Età: 55 | Utente Junior | 2013 | | OFFLINE | |
|
| 04/05/2020 14:56 | |
eccoli !!!
Grazie |
| | Post: 34 | Registrato il: 27/12/2016
| Città: SIENA | Età: 50 | Utente Junior | Office 2019/Office 365 | | OFFLINE | |
|
| 04/05/2020 19:27 | |
Ciao,
ho buttato giu' qualcosa, la macro prende sempre le stesse celle del file TOOL.xlsm e le trasferisce in una nuova riga del file RIEPILOGO (i file devono essere aperti contemporaneamente)
[Modificato da duccio.73 04/05/2020 19:30] ---
pensa bene a quello che cerchi, allega un file di esempio, prova il registratore di macro, imparerai e potresti già avere la soluzione |
|
| 05/05/2020 00:24 | |
Quando chiudi Tool, aggiorna l'altro [Modificato da ABCDEF@Excel 05/05/2020 00:25] |
| | Post: 113 | Registrato il: 13/01/2017
| Città: GENOVA | Età: 55 | Utente Junior | 2013 | | OFFLINE | |
|
| 05/05/2020 08:07 | |
Grazie molte
Le provo e vi dico !!!
Enrico |
| | Post: 114 | Registrato il: 13/01/2017
| Città: GENOVA | Età: 55 | Utente Junior | 2013 | | OFFLINE | |
|
| 05/05/2020 08:16 | |
Ciao, perdonami
Nel download che mi hai mandato vedo solo il file RIEPILOGO senza macro
Scusami e buona giornata
Enrico |
| | Post: 36 | Registrato il: 27/12/2016
| Città: SIENA | Età: 50 | Utente Junior | Office 2019/Office 365 | | OFFLINE | |
|
| 05/05/2020 10:05 | |
scusa,
eccolo [Modificato da duccio.73 05/05/2020 10:09] ---
pensa bene a quello che cerchi, allega un file di esempio, prova il registratore di macro, imparerai e potresti già avere la soluzione |
| | Post: 115 | Registrato il: 13/01/2017
| Città: GENOVA | Età: 55 | Utente Junior | 2013 | | OFFLINE | |
|
| 05/05/2020 10:29 | |
Intanto grazie !!!
ActiveCell.Offset(1, 0).Select
mi si ferma a questo comando
non mi funziona, da cosa dipenderà ?
|
| | Post: 116 | Registrato il: 13/01/2017
| Città: GENOVA | Età: 55 | Utente Junior | 2013 | | OFFLINE | |
|
| 05/05/2020 13:56 | |
ho cambiato istruzione in
ActiveCell.Offset(0, 1).Select
Il problema è che me le copia sull'ultima riga del file RIEPILOGO
E quindi poi me la sovrascrive
|
|
| 05/05/2020 14:36 | |
L'allegato di duccio.73 non riesco aprilo/vederlo?
Dovrebbe esserci una riga similare
...Ur = Range("A" & Rows.Count).End(xlUp).Row +1
...Cells(ur,1).Pastespecial
Hai provato col mio allegato?
|
| | Post: 117 | Registrato il: 13/01/2017
| Città: GENOVA | Età: 55 | Utente Junior | 2013 | | OFFLINE | |
|
| 05/05/2020 14:49 | |
Ciao e intanto grazie
Ho appena provato il tuo ma non mi funziona e non so perchè
Ma salva il contenuto del Tool in Riepilogo solo quando esce da file ?
fa qualcosa, ma nel RIEPILOGO non appare niente :(
|
| | Post: 118 | Registrato il: 13/01/2017
| Città: GENOVA | Età: 55 | Utente Junior | 2013 | | OFFLINE | |
|
| 05/05/2020 14:56 | |
questo è il file allegato di duccio.73 che ringrazio ancora
Enrico |
|
| 05/05/2020 14:56 | |
Tu hai chiesto..
...Vorrei che questi valori mi andassero, dopo una macro. in un altro excel RIEPILOGO
...Ogni volta che apro il file TOOL mi dovrebbe fare lo stesso, inserendo i nuovi dati sulla prima riga vuota del file RIEPILOGO
Ho pensato di farlo con AUTO_CLOSE
Se desideri cambia il nome della Sub e creaTi un bottone, potrai premerlo ogni volta che Vuoi |
| | Post: 119 | Registrato il: 13/01/2017
| Città: GENOVA | Età: 55 | Utente Junior | 2013 | | OFFLINE | |
|
| 05/05/2020 15:01 | |
ciao
si, infatti ho fatto cosi (per capirne il funzionamento)
mi sono creato un bottone e associato alla tua macro
ma non mi funziona :(
Mi cancella i dati che ho scrtto nel file TOOL ma non me li copia in RIEPILOGO
Li ho salvati tutti e due nella srtessa cartella e sono tutti e due aperti..
boh :( |
|
| 05/05/2020 15:32 | |
Non Funziona (forse non hai ancora inserito i Dati in B1:B3)?
Il mio codice funziona, quando esce, apre RIEPILOGO, incolla e chiude tutto
Sono contrario ad avere due Files aperTi nello stesso momento
Comunque il Codice di duccio.73 funziona (con due files aperti insieme), al limite si può semplificarlo così
Ps In RIEPILOGO esiste il Foglio1 dove incolla i dati?
Pps. Apri l'editor, riduci un pò la schermata in modo da vedere sia TOOL che l'editor
Adesso seleziona la prima riga del VBA, premi F8 vedrai che diventa gialla.
Ripremi F8 ogni secondo e vedrai a monitor quello che fà
Sub Ricopia()
Windows("TOOL.xlsm").Activate
Range("B1:B3").Copy
Windows("RIEPILOGO.xlsx").Activate
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Windows("TOOL.xlsm").Activate
End Sub
[Modificato da ABCDEF@Excel 05/05/2020 15:49] |
| | Post: 120 | Registrato il: 13/01/2017
| Città: GENOVA | Età: 55 | Utente Junior | 2013 | | OFFLINE | |
|
| 05/05/2020 15:51 | |
Ok, sono riuscito a far funzionare la tua !!!
molto bene e funziona alla meraviglia GRAZIE
Una domanda: funziona solo se il Riepilogo è chuso o anche se è aperto ?
Seconda domanda:
Se lancio la tua macro, senza voler chiudere il TOOL e senza che mi cancelli i dati, si può ?
scusate per la "lungaggine"..
:( |
|
| 05/05/2020 16:01 | |
1° La mia funziona solo col files Riepilogo chiuso (errore di codice)
2° Basta che cambi la prima riga in Sub Copia-in-Riepilogo ()
Ps. Se desideri, nel caso fosse già aperto, questo non darebbe errore. Però appena premi il bottone lo chiude
Sub nome()
Dim fpath As String, fname As String, Ssh As String, ur As Long
Range("B1:B3").Copy
fpath = ThisWorkbook.Path
fname = "RIEPILOGO.xlsx"
Ssh = "Foglio1"
On Error Resume Next
Application.DisplayAlerts = False
Workbooks.Open (fpath & "\" & fname)
Application.DisplayAlerts = True
Sheets(Ssh).Range("A1").Select
ur = Sheets(Ssh).Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets(Ssh).Cells(ur, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
ActiveWorkbook.Save
ActiveWorkbook.Close
Range("B1:B3") = ""
End Sub[Modificato da ABCDEF@Excel 05/05/2020 16:17] |
|
|
|
|