| | Post: 1 | Registrato il: 22/01/2017
| Utente Junior | Excel 2010 | | OFFLINE | |
|
22/01/2017 21:26 | |
Buongiorno a tutti,
uso Excel 2010 e vorrei aggiungere delle righe ogni volta che premo un tasto.
Ovviamente le righe dovrebbe essere aggiunte a seguire di quelle già riempite.
Vorrei che aggiungendo le righe, copiasse solo da alcune celle precedenti il contenuto.
Mi date un mano?
Grazie in anticipo.
|
|
| | Post: 2.618 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | OFFLINE |
|
22/01/2017 21:33 | |
Ciao Gianpiero
Non capisco bene; potresti allegare un file di esempio e spiegare, con riferimento a quello, ciò che vuoi fare/ottenere? [Modificato da alfrimpa 22/01/2017 21:33]
Alfredo |
| | Post: 1 | Registrato il: 22/01/2017
| Utente Junior | Excel 2010 | | OFFLINE | |
|
22/01/2017 21:42 | |
Certo che posso caricare un file.
Mi serve questo file excel per stilare la lista degli invitati al mio matrimonio. In sostanza ad ogni pressione del tasto "aggiungi famiglia" dovrei aggiungere le righe con i campi "standard".
Ora non so se è possibile inserire nr. di righe variabili (es. quando premo il tasto excel può chiedermi quante righe/nr. componenti deve aggiungere il sistema).
Spero di essermi spiegato... |
| | Post: 2.619 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | OFFLINE |
|
23/01/2017 10:41 | |
Ciao Gianpiero
Dal tuo esempio non riesco a capire qual è il risultato che vuoi ottenere.
Potresti allegare un file di esempio un po' più chiaro inserendo manualmente il risultato voluto?
Alfredo |
| | Post: 2 | Registrato il: 22/01/2017
| Utente Junior | Excel 2010 | | OFFLINE | |
|
23/01/2017 20:12 | |
Certo, cercherò di essere più chiaro.
In sostanza ad ogni pressione del tasto "Aggiungi famiglia" vorrei che aggiungesse il gruppo di celle (diagonale A3:J6).
E' chiaro che vado io a mano a compilare i campi "nome", "cognome", ...
Secondo voi è possibile?
Grazie in anticipo.
|
| | Post: 3.646 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
23/01/2017 20:41 | |
Sub aggiungi()
LR = Cells(Rows.Count, "F").End(xlUp).Row + 1
n = InputBox("quante famiglie ")
For i = 1 To n
Range("A3:J6").Copy Cells(LR, 1)
LR = LR + 4
Next
End Sub
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 3 | Registrato il: 22/01/2017
| Utente Junior | Excel 2010 | | OFFLINE | |
|
23/01/2017 21:27 | |
perfetto.
Ora si può inserire anche il numero di righe variabile?
(non tutte le famiglie sono da 4 componenti)
Grazie in anticipo. [Modificato da conoscenza 23/01/2017 21:30] |
| | Post: 3.649 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
24/01/2017 11:43 | |
Come puoi vedere io copio il Range("A3:J6") più volte.
Nel caso di num componenti variabile cosa copio ?
dovresti mettere nel foglio 2 la tabella da copiare in questi casi
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 4 | Registrato il: 22/01/2017
| Utente Junior | Excel 2010 | | OFFLINE | |
|
24/01/2017 23:31 | |
Ciao,
ci sono parzialmene riuscito. Ho cambiato un po' il file excel che vi allego.
Il codice è questo:
Sub Pulsante1_Click()
LR = Cells(Rows.Count, "F").End(xlUp).Row + 1
n = InputBox("quante famiglie ")
For i = 1 To n
m = InputBox("quanti componenti")
Range("A3:J4").Copy Cells(LR, 1)
If m > 2 Then
LR = LR + 2
For j = 2 To m - 1
Range("A4:E4").Copy Cells(LR, 1)
LR = LR + 1
Next
m = 0
End If
LR = LR + m
Next
End Sub
l'unico problema è che essendo la colonna F vuota, alla ripresa mi interpreta male "LR", e quindi a meno che l'ultima famiglia non sia di 2 persone viene sovrascritta.
Avete qualche idea in merito?
Grazie in anticipo. |
| | Post: 3.653 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
25/01/2017 09:04 | |
ritengo migliore il file precedente con l'aggiunta di quanto ti ho suggerito
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 5 | Registrato il: 22/01/2017
| Utente Junior | Excel 2010 | | OFFLINE | |
|
01/02/2017 21:41 | |
Ciao,
alla fine ho creato il foglio che qui allego, ed uso questo codice:
Sub Pulsante1_Click()
LR = Cells(Rows.Count, "A").End(xlUp).Row + 1
n = InputBox("quante famiglie desideri inserire?")
For i = 1 To n
m = InputBox("quanti componenti ha la famiglia che stai inserendo?")
Range("A3:L4").Copy Cells(LR, 1)
ActiveSheet.Cells(LR, 1) = LR - 4
ActiveSheet.Cells(LR + 1, 1) = LR - 3
If m > 2 Then
LR = LR + 2
For j = 2 To m - 1
Range("A4:F4").Copy Cells(LR, 1)
ActiveSheet.Cells(LR, 1) = LR - 4
LR = LR + 1
Next
m = 0
End If
LR = LR + m
Next
End Sub
Grazie mille per le dritte. |
|
|