VBA semplice copia incolla su foglio excel

[Romez]

Salve gente, purtroppo mi tocca disturbarvi,

premetto che sono iper ignorante, volevo ottenere una macro per ripetere un numero definito di volte un comando "incolla spostando in basso" in un foglio excel, ma non riesco a "fermare" negli appunti la selezione copiata.
Ho cercato e ricercato anche nel corso VBA facendo prove e riprove, ma non trovo il giusto sistema.
So che prenderò del super pivello, però non ho altra scelta che chiedervi!

quel che mi serve in sostanza:

Range("A1:F6").Select
Selection.Copy
ActiveCell.Offset(7, 0).Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(7, 0).Select
Selection.Insert Shift:=xlDown

e magari mettere tutto in loop per un numero determinato di righe con dati presente nel secondo foglio.

spero di essermi spiegato!

Grazie mille a chiunque mi aiuti!

[Alexsandra]

Ricapitolando tu vorresti copiare l'intervallo di celle A1:F6 dal foglio 2 (esempio) e copiarlo nel foglio 1 più volte con un intervallo di 7 righe?

ho capito bene quello che intendi fare?

[Romez]

l'intervallo è presente nello stesso foglio,

sul foglio 2 ci sono le righe che rappresentano il numero di volte che va fatto il copia incolla.

praticamente il nostro intervallo di dati andrà a mettersi ogni altra riga di dati che viene presa dal foglio 2.

riga di tati
intervallo
riga di dati
intervallo
riga di dati
intervallo
e cosi via fino a quando le righe di dati sono terminate,

[Romez]

tra l'altro...

Sei una mia compaesana!

mitico! :P

[RunDLL]

Allora incontratevi magari oltre alla spiegazione del codice ci scappa anche qualcos'altro

[Alexsandra]

Visto che i dati e il copia/incolla avviene sullo stesso foglio non ti serve il foglio2

Vuoi copiare TUTTO l'intervallo A1:F6 e incollarlo dalla riga 7 in giù, oppure vuoi copiare 1 riga (es. A1) e incollarla nella riga 7, poi lasciare una riga vuota, copiare la riga 2 e incollarla nella riga 9 ..... e via di seguito

[Romez]

Scusami , con il chiarimento ti ho fatto confusione!

torniamo al codice iniziale:

la pagina ha una serie di righe (piene di dati provenienti da f2) che devono essere intervallate da i dati (a1:f6)

' questi sono i dati che mi servono "fissi nella Clipboard:
Range("A1:F6").Select
Selection.Copy

' salto 7 righe (perche 6 sono quelle della mia selezione)
ActiveCell.Offset(7, 0).Select

' inserisco spostando le righe in basso (altrimenti sovrappone i dati)
Selection.Insert Shift:=xlDown

' riposiziono 7 righe sotto
ActiveCell.Offset(7, 0).Select

' a questo punto Reinserico, ma trovo la clipboard è vuota.
Selection.Insert Shift:=xlDown

le mia domande erano 2:
- come si possono "fermare" i dati (a1:a6) nella clipboard?
- se metto una azione di loop, posso fermarla quando i dati nella colonna A1 del secondo foglio non sono sono più presenti?


se serve posso costruire un foglio con dati fittizi-

[Alexsandra]

Inviato da Romez

se serve posso costruire un foglio con dati fittizi-

sarebbe meglio, così di pancia .... si potrebbe inserire una riga vuota ogni 7 righe, dato che i dati ci sono già.
oppure se non ci sono nel foglio che vuoi usare per queste operazioni si potrebbe ricopiare tutto il foglio 2 nel nuovo foglio e poi inserire la riga vuota con la cadenza che desideri.

ma sarebbe meglio vedere un file di prova

[Romez]

https://dl.dropboxusercontent.com/u/...%20EXCELs.xlsm

ecco questo è un file di esempio con la macro

spero si capisca!

A

[Alexsandra]

ho modificato la tua macro, nel file allegato trovi tutto.
ho limitato le prove a 6 articoli, tu inserisci pure tutti quelli che hai che funziona.

la macro è questa

Sub b()
Uriga = Cells(Rows.Count, "A").End(xlUp).Row
For N = Uriga To 1 Step -1
If N = 6 Then Exit For
Rows(N + 1 & ":" & N + 6).Insert
Range("A1:F6").Copy Destination:=Range(N + 1 & ":" & N + 6)
Next N
End Sub

[Romez]

Funziona, hai preso la cosa dall'ultima riga, hai aggiunto e gli hai detto di copiare la selezione specifica, comando che non trovavo!

TI ringrazio

ORa devo provare ad adattarlo al super file che contiene un vagone di roba.
Per non lasciare nulla al caso i dati che devo cambiare in base alle mie esigenze saranno quelli segnati in rosso dove il primo è la riga da dove partire, il secondo quante righe inserire e il terzo chiaramente la selezione da copiare con sua destinazione

Sub b()
Uriga = Cells(Rows.Count, "A").End(xlUp).Row
For N = Uriga To 1 Step -1
If N = 6 Then Exit For
Rows(N + 1 & ":" & N + 6).Insert
Range("A1:F6").Copy Destination:=Range(N + 1 & ":" & N + 6)
Next N
End Sub

Tutto corretto!?

Ora provo con il mio file e vedo che disastri combino!

Grazie infinite!

[Romez]

Perfetto, sono riuscito ad adattare alle mie esigenze la macro. i file funzionano a meraviglia!

sulle prime era molto lenta (non so perchè) ora invece in 3 minuti risolve piu di 1000 righe.


Grazie mille Alexsandra, Mi sei stata di grande aiuto!

A