Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

aggingere righe

Ultimo Aggiornamento: 01/02/2017 21:41
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.
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 08:38. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com