aggiungere righe in automatico

Ciao ragazzi. Il mio problema è il seguente. Ho un foglio excel composto da oltre 1000 righe e da 20 colonne. Il tutto è già formattato e contiene formule preziose.
A questo foglio devo aggiungere ora, per ogni riga, altre due righe. A mano è un lavoro lunghissimo. C'è un sistema per automatizzare questo procedimento che non guasti l'attuale formattazione?
NB. Se non fossi stato chiaro, il mio problema non è quello di aggiungere altre 2000 righe in fondo, ma due righe sotto ogni riga esistente.
Ciao.

salve
prova con questa:

Sub alternaDue()
Uriga = Cells(Rows.Count, "A").End(xlUp).Row
For N = Uriga To 1 Step -1
Rows(N + 1 & ":" & N + 2).Insert
Next N
End Sub
saluti
Giap

Ciao, anzitutto grazie. Ma sono talmente ignorante in materia che....avrei bisogno di una spiegazione più lineare!!!
Cosa devo fare con questo codice, dove devo incollarlo?
Grazie per la pazienza

Ciao seti1973, la prima cosa da fare prima di qualsiasi cosa è copiare il tuo file può sempre succedere qualche problema e perderesti i dati.

apri il tuo file, e posizionati sul foglio da fare l'operazione, premi Alt+F11 si apre l'editor del VBA compare una finestra grigia se non ci sono moduli, nel menu "inserisci" scegli modulo, e vedrai coparire una finestra bianca in cui scrivere il Codice, fai copia incolla del codice dato e poi di nuovo Alt+f11 torni al foglio Excel a questo punto premi di nuovo Alt+F8 e si apre la finestra delle macro presenti nel tuo file e vedrai il nome della macro che hai appena copiato, la selezioni e dai Esegui, questo è tutto.

Ciao By Sal

Provo e vi faccio sapere. Per ora grazie

mmmmm. Funziona ma, aggiunge solo 2 righe sotto la prima riga ogni volta che eseguo la macro. Avrei desiderato che le aggiungesse in automatico sotto ogni riga compilata

Ciao seti1973
la macro è corretta ma evidentemente il tuo elenco non inizia dalla colonna A.
Nella macro correggi questa riga


sostituendo "A" con la lettera della prima colonna effettiva del tuo elenco e riprova.

ciao
pietrol

Grazie a tutti! Perfetta

Ciao a tutti
avrei un problema simile ma un po' più complesso: sulla mia tabella nella colonna N compare un valore numerico variabile
vorrei aggiungere sotto ogni riga un numero di righe vuote (o ancora meglio contenenti gli stessi dati della riga di riferimento) corrispondente a quel valore presente nella colonna N di quella riga; è possibile secondo voi?
grazie mille!

Ciao Utsilasi, non è chiara la tua richiesta, quante righe dovrebbero essere aggiunte?, e poi che significa copiare i dati esistenti.

Un esempio vale più di mille parole, inserisci un file senza dati sensibili com'è e come vuoi che sia.

Ciao By Sal

ecco lo schema:
mele|2
pere|3
pesche|1

da trasformare in
mele
mele
pere
pere
pere
pesche

sono nel frattempo riuscito a trovare in rete un esempio di codice che funziona
grazie per il supporto!



Public Sub COPY()

'gestione errori
On Error GoTo RigaErrore

'dichiaro le variabili
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim lUltRiga1 As Long
Dim lUltRiga2 As Long
Dim lng1 As Long
Dim lng2 As Long
'Dim lRighe As Long

'impedisco il refresh del monitor
With Application
.ScreenUpdating = False
.CutCopyMode = False
End With

'metto il riferimento ai fogli
Set sh1 = Worksheets("Foglio1")
Set sh2 = Worksheets("Foglio2")

With sh1
'trovo l'ultima riga con
'valori della colonna A
'del Foglio1
lUltRiga1 = .Range("A" & _
.Rows.Count).End( _
xlUp).Row
'trovo la prima riga
'vuota della colonna A
'del Foglio2
lUltRiga2 = sh2.Range("A" & _
.Rows.Count).End( _
xlUp).Row
'pulisco tutte le celle del Foglio2
'a partire da A2, lasciando l'eventuale
'formattazione
sh2.Range("A2:P" & lUltRiga2).Value = ""
lUltRiga2 = 2
'ciclo le righe
For lng1 = 2 To lUltRiga1
'prendo il valore in D per il ciclo
For lng2 = 1 To .Range("P" & lng1).Value
'copio la riga dal Foglio1
'al Foglio2 in base al valore
'che ho in D
.Range("A" & lng1 & ":P" & lng1).COPY _
Destination:=sh2.Range( _
"A" & lUltRiga2)
lUltRiga2 = lUltRiga2 + 1
Next
Next
End With

'riga sempre eseguita
RigaChiusura:
'ripristino l'aggiornamento del monitor
With Application
.ScreenUpdating = True
.CutCopyMode = True
End With
'Set a Nothing delle variabili oggetto
Set sh2 = Nothing
Set sh1 = Nothing
Exit Sub

'in caso di errore
RigaErrore:
MsgBox Err.Number & vbNewLine & Err.Description
Resume RigaChiusura

End Sub

Buona sera, Utsilasi;
non vorrei aver male interpretato la Tua esigenza, ma, potresti provare con questo sermplice Codice:

Option Explicit
Sub Prova()
Dim URec As Long, x As Long, y As Long, z As Long
Dim Rec
    URec = Range("A" & Rows.Count).End(xlUp).Row
    For x = URec To 1 Step -1
        If Cells(x, 2) > 1 Then
            y = Cells(x, 2)
            Rec = Cells(x, 1)
            Cells(x + 1, 1).Select
                For z = 1 To y - 1
                Selection.EntireRow.Insert
                    Cells(x + 1, 1).Value = Rec
                Next z
        End If
    Next x
End Sub

Il risultato è quello riportato nell'immagine allegata.

A disposizione.

Buona serata.

Giuseppe

Salve,
riscrivo qui perché credo sia il post giusto, visto che il mio quesito include i due precedenti.

Immaginiamo di voler creare una riga sotto ciascuna riga esistente. La nuova riga deve contenere sia delle formule che fanno riferimento alle relative celle superiori, sia dei testi.


Esempio: foglio di partenza

RIGA, CELLA (contenuto), CELLA (Contenuto)
------------------------------------------
A, A1 (Testo), A2 (123)


La macro deve creare la riga B con il seguente contenuto:

RIGA, CELLA (contenuto), CELLA (Contenuto)
------------------------------------------
B, B1 (Altro testo), B2 (A2-1)


Con il seguente risultato:

RIGA, CELLA (contenuto), CELLA (Contenuto)
------------------------------------------
A, A1 (Testo libero), A2 (123)
B, B1 (Altro testo), B2 (122)


Come fareste?
Grazie
Antonio

Ciao a tutti!

Riapro questo topic in quanto ho un problema molto simile.

Possiedo un foglio excel con una serie di indirizzi IP di server e i relativi utenti presenti su ciascuno di essi.
Per ciascuno di questi server devo aggiungere automaticamente 2 RIGHE in modo da poter inserire per ciacuno altri due utenti. Nelle due righe che si andranno ad aggiungere dovranno essere presenti, in una determinata colonna, la voce "pippo" nella prima, e la voce "sara" nella seconda.
Allego un immagine per chiarire il concetto.

Potreste aiutarmi fornendomi un codice VBA? Io purtroppo non sono preparato sulla programmazione

Vi ringrazio in anticipo!
Un saluto

Ciao iron46
ti propongo una soluzione senza utilizzo di codice, solo una serie di passi da seguire.

1. Fai una copia del file e lavora su quella (spero di non offenderti!)
2. Filtra l'elenco per avere solo le righe con utente "root" e poi copia le righe filtrate in un altro foglio.
3. Nell'elenco così ottenuto cambia il contenuto della "determinata colonna" con "pippo" su tutte le righe.
4. Copia le righe così modificate sotto il primo elenco
5. Ripeti il punto 3. e 4. sostituendo stavolta "pippo" con "sara"
A questo punto avrai l'elenco originale seguito da due righe in più per ogni IP
6. Ordina l'elenco per indirizzo IP


Se non ho capito qualcosa scrivi qui.

ciao
pietrol

pietrol, 03/09/2015 01:59:

---

Ciao iron46
ti propongo una soluzione senza utilizzo di codice, solo una serie di passi da seguire.

1. Fai una copia del file e lavora su quella (spero di non offenderti!)
2. Filtra l'elenco per avere solo le righe con utente "root" e poi copia le righe filtrate in un altro foglio.
3. Nell'elenco così ottenuto cambia il contenuto della "determinata colonna" con "pippo" su tutte le righe.
4. Copia le righe così modificate sotto il primo elenco
5. Ripeti il punto 3. e 4. sostituendo stavolta "pippo" con "sara"
A questo punto avrai l'elenco originale seguito da due righe in più per ogni IP
6. Ordina l'elenco per indirizzo IP


Se non ho capito qualcosa scrivi qui.

ciao
pietrol

---

Ciao Pietro,

grazie mille per il tuo aiuto! Sono riuscito a fare tutto!

Grazie e un saluto!

ciao
dato che ho lo stesso problema,
colonna 1 colonna 2 colonna 3 colonna 4(numero di righe da ripetere)
volevo sapere qual'è la soluzione al prblema

grazie mille
vitto

Ciao raga, scusatemi ma mi sn imbattuto sulla discussione e finalmente dopo 3 giorni sono riuscito a inserire le righe in automatico nel mio foglio...

Il mio problema è che vorrei automatizzare la trasposizione del contenuto delle celle sulle righe sulle colonne. Detto in modo più semplice spostare il contenuto delle celle che sono in orizzontale e devo metterle in verticale.

Ve lo chiedo perchè ho più di 1000 righe da "girare".

Avete qualche idea???
Grazie mille

Ciao

Potresti fare un Copia, Incolla Speciale, Trasponi ma senza vedere il file è difficile dire di più.

Apri una nuova discussione allegando file di esempio con pochi dati e risultato desiderato inserito a mano.

Ecco ho fatto un esempio...Speriamo si capisca...Allego uno screenshot

Ciao a tutti,
se volessi aggiungere più righe con un valore come posso fare? esempio:
colonna A
1
2
3

dovrebbe diventare:
1
valore X
valore y
valore z
2
valore X
valore y
valore z
3
valore X
valore y
valore z

in cui valore X,y,z è sempre uguale

Grazie!

Ammettiamo che siano in colonna A

Grazie ABCDEF@Excel
era proprio quello che stavo cercando!
solo un ultima cosa, se i valori fossero lettere e non numeri?

colonna A
1
2
3
dovrebbe diventare:
1
casa
palla
zaino
2
casa
palla
zaino
3
casa
palla
zaino

Grazie!

Alle tre righe InputBox devi togliere il *1

GiuseppeMN, 13/06/2014 19.51:

---

Buona sera, Utsilasi;
non vorrei aver male interpretato la Tua esigenza, ma, potresti provare con questo sermplice Codice:

Option Explicit
Sub Prova()
Dim URec As Long, x As Long, y As Long, z As Long
Dim Rec
    URec = Range("A" & Rows.Count).End(xlUp).Row
    For x = URec To 1 Step -1
        If Cells(x, 2) > 1 Then
            y = Cells(x, 2)
            Rec = Cells(x, 1)
            Cells(x + 1, 1).Select
                For z = 1 To y - 1
                Selection.EntireRow.Insert
                    Cells(x + 1, 1).Value = Rec
                Next z
        End If
    Next x
End Sub

Il risultato è quello riportato nell'immagine allegata.

A disposizione.

Buona serata.

Giuseppe

---

Ciao Giuseppe, il tuo Post mi è stato veramente utile e vorrei farti una domanda: Vorrei applicare il risultato da te indicato, copiando il valore di diverse colonne e non solo della prima colonna (A) Grazie mille Anticipatamente Saluti Lillo

Buona pomeriggio, @Lillo.85;
purtroppo non ho più il File con il quale condurre i miei Test.

Considerando che questa Discussione è piuttosto datata, potresti inizare una nuova Discussione allegando un File, senza Dati sensibili, con alcuni Record significativi già inseriti e chiarissi ciò che desideri ottenere.



A presto.

Buona serata.

Giuseppe

Buongiorno ragazzi, il mio problema è il seguente:
Vorrei aggiungere in automatico una colonna ogni tre colonne nel mio file excel già precompilato, partendo da una determinata colonna (APK).Il contenuto della colonna aggiunta dovrebbe presentare la seguente formula (APE4/APF4). Ringrazio anticipatamente. Cordiali saluti,
Giulio

Devi dare ulteriore dati
>>>una colonna ogni tre colonne....per quante volte???
>>>una determinata colonna (APK)...pertanto in APO ci sarà la formula???
>>>APE4/APF4...solo in riga4 oppure bisogna inserirla sino riga-xy???