Macro per incollare riga

axel_gra, 26/09/2016 11.15:

---

...Io dovrei copiare la riga 9, cercare la prima riga vuota nel foglio dopo la riga 9, e incollare una nuova riga copiata dalla 9 (senza mantenere i valori, ma soltanto formule e formattazione).
E' fattibile secondo voi?

---

dodo47, 26/09/2016 12.59:

---

ma la riga 9 contiene solo formule?
se contiene valori e formule devi copiare solo le celle con formule o tutto: formule e valori?

Oppure devi fare quello che fa ora ma sulla prima libera ?

Devi comunque dire pure qual è la colonna che ha sempre un dato, altrimenti risulta complesso trovare la prima riga vuota.

In attesa, questa è la tua macro semplificata:

Sub INS_RIGA()
 Application.ScreenUpdating = False
 Rows("9:9").Copy
 Rows("10:10").Insert Shift:=xlDown
 Application.CutCopyMode = False
 Range("B10:D10,I10:J10").ClearContents
 Range("B9").Select
 Application.ScreenUpdating = True
End Sub

saluti

---

dodo47, 26/09/2016 15.58:

---

Ciao
non è congruente quello che dici, almeno per quel che ho capito.

Intanto parliamo di "copiare" non "inserire", in quanto se la copia va fatta su una riga vuota, è inutile inserire.

Seconda cosa: se cancelli il contenuto della cella B, questa è vuota, quindi non ha del testo, pertanto la copia finirà nella riga successiva in cui la col B ha del testo.

Es:
colonne -->..A.........B...........C

riga9----->dato1....dato2.......dato3
riga10---->dato4....dato5.......dato6
riga11 (vuota)

se copio riga9 in riga11 (prima riga vuota) e poi cancello cella b11, succede questo:

riga9----->dato1....dato2.......dato3
riga10---->dato4....dato5.......dato6
riga11---->dato1................dato3

la prossima volta la copia andrà a finire in riga10 perché B11 è vuota pertanto:

riga9----->dato1....dato2.......dato3
riga10---->dato1................dato3
riga11---->dato1................dato3

Spero di essermi spiegato.

saluti

---

locatevaresino, 26/09/2016 16.13:

---

ciao

intanto saluto dodo

spero di capire cosa intendi fare
piccola modifica alla sub di dodo

---

Sub INS_RIGA()
Dim Nriga As Long
Nriga = Cells(Rows.Count, 2).End(xlUp).Row + 1
Application.ScreenUpdating = False
Rows("9:9").Copy
Range("a" & Nriga).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B" & Nriga & ",D" & Nriga & ",I" & Nriga & ",J" & Nriga).ClearContents
Range("B9").Select
Application.ScreenUpdating = True
End Sub

---

---

dodo47, 26/09/2016 16.49:

---

Ciao
(un caro saluto locate...)

Axel_gra
Personalmente rimango della mia idea e cioè che la riga 9 viene copiata sempre nella riga 10 dato che B è vuoto.
Forse bisogna valutare col H visto che c'è una formula che comunque restituisce un valore e che pertanto può determinare che la successiva riga è vuota.

INOLTRE:
copiare la riga non va bene in quanto duplica anche il grafico non in modo corretto.

Domanda: il grafico va copiato? Se si, quello successivo si deve riferire alla rig 10 e poi alla riga 11 ecc ecc ?

saluti

---

Marius44, 27/09/2016 11.08:

---

Salve a tutti
Forse dirò una cavolata, ma tentar non nuoce.
Prova a spostare un tantino più in alto l'istogramma in modo tale che quando si copia la riga 9 il grafico non venga coinvolto nel "copia".

Ciao,
Mario

---