| | Post: 12 | Registrato il: 17/01/2007
| Città: CRESCENTINO | Età: 42 | Utente Junior | ultima | | OFFLINE | |
|
  16/01/2017 16:28 | |
Buonasera a tutti,
sempre grazie anticipate per l'attenzione. Ho provato a ricercare sul forum, ma non sono riuscito a trovare nulla di simile. Ho costruito una maschera (solo grafica, lasciando celle interessate bianche ed editabili) i cui inserimenti desidererei venissero copiati sulle righe di un altro foglio, senza sovrascrivere, ma bensì sfruttando la prima riga libera. Ho imbastito da neofita una cosa simile, ma ovviamente non funziona. C'è qualcuno che ha voglia di aiutarmi?
ub Pulsante19_Click()
Dim Ultimariga As Integer
'Ultimariga = Sheets("ANALISI MINU").Cells(Rows.Count, "C").End(xlUp).Row
Sheets("INSERIMENTO DATI").Select
Range("C9").Select
Selection.Copy
Sheets("ANALISI MINU").Select
Range("A3").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("INSERIMENTO DATI").Select
Range("E9").Select
Selection.Copy
Sheets("ANALISI MINU").Select
Range("B3").Select
ActiveSheet.Paste
End Sub LELINO |
|
| | Post: 2.591 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | ONLINE |
|
| 16/01/2017 16:37 | |
Ciao Gabriele
A prescindere dalla tua macro allega un file di esempio con dati, spiegazione e risultato desiderato inserito manualmente.
Alfredo |
| | Post: 12 | Registrato il: 17/01/2007
| Città: CRESCENTINO | Età: 42 | Utente Junior | ultima | | OFFLINE | |
|
| 16/01/2017 17:10 | |
Ciao Alfredo,
grazie. Ecco quanto da te richiesto.
Gabriele LELINO |
| | Post: 13 | Registrato il: 17/01/2007
| Città: CRESCENTINO | Età: 42 | Utente Junior | ultima | | OFFLINE | |
|
| 17/01/2017 14:09 | |
Il risultato che vorrei ottenere è quello di inserire i dati nella maschera contenuta nel foglio inserimento dati e copiare ciò che inserisco sulle righe del foglio "analisi dati". Quello che vorrei è i dati venissero copiati sulla stessa riga se appartenenti allo stesso inserimento. Una volta completato l'inserimento, vorrei che il prossimo venga copiato nella riga successiva di "analisi dati". In ultimo, non è detto che tutti i campi debbano essere inseriti, direi di prendere il campo ODS come sempre presente.
Spero di essere stato il più possibile chiaro..
Grazie come sempre,
Gabriele LELINO |
| | Post: 2.602 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | ONLINE |
|
| 17/01/2017 14:12 | |
Scusa Gabriele puoi allegare un file con dei dati in modo che possa capire cosa copiare e dove questi devono essere incollati?
Alfredo |
| | Post: 14 | Registrato il: 17/01/2007
| Città: CRESCENTINO | Età: 42 | Utente Junior | ultima | | OFFLINE | |
|
| 17/01/2017 14:17 | |
Ecco, allego il file di prova.
Grazie,
Gabriele LELINO |
| | Post: 2.604 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | ONLINE |
|
| 17/01/2017 14:51 | |
Scusa Gabriele ma hai allegato lo stesso file precedente vuoto!
Alfredo |
| | Post: 15 | Registrato il: 17/01/2007
| Città: CRESCENTINO | Età: 42 | Utente Junior | ultima | | OFFLINE | |
|
| 17/01/2017 14:56 | |
Ok, scusa. Eccone uno di esempio.
Grazie,
Gabriele LELINO |
| | Post: 2.605 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | ONLINE |
|
| 17/01/2017 15:13 | |
Ciao Gabriele
Prova con questa macro
vb Sub CopiaDati()
Dim ur As Long
ur = Worksheets("ANALISI DATI").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("ANALISI DATI").Cells(ur + 1, "A").Value = Worksheets("INSERIMENTO DATI").Range("C9")
Worksheets("ANALISI DATI").Cells(ur + 1, "b").Value = Worksheets("INSERIMENTO DATI").Range("E9")
Worksheets("ANALISI DATI").Cells(ur + 1, "g").Value = Worksheets("INSERIMENTO DATI").Range("b12")
Worksheets("ANALISI DATI").Cells(ur + 1, "h").Value = Worksheets("INSERIMENTO DATI").Range("E12")
Worksheets("ANALISI DATI").Cells(ur + 1, "i").Value = Worksheets("INSERIMENTO DATI").Range("g12")
End Sub
Elimina la struttura Tabella che c'è nel foglio "ANALISI DATI" perché dà problemi con il VBA.
Alfredo |
| | Post: 16 | Registrato il: 17/01/2007
| Città: CRESCENTINO | Età: 42 | Utente Junior | ultima | | OFFLINE | |
|
| 17/01/2017 16:59 | |
Grazie mille. Funziona. Grazie ancora!!!
Gabriele LELINO |
|
|
|
|