|
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. | NEI PREFERITI | .:: | RSS Forum | RSS News | NEWS web | NEWS software | |
| PUBBLICITA' | | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | | CERCA nel FORUM » | |
27-04-2016, 08.50.52 | #1 |
Newbie
Registrato: 26-04-2016
Messaggi: 7
|
VBA semplice copia incolla su foglio excel
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! |
27-04-2016, 11.36.12 | #2 |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: VBA semplice copia incolla su foglio excel
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?
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
27-04-2016, 12.55.36 | #3 |
Newbie
Registrato: 26-04-2016
Messaggi: 7
|
Rif: VBA semplice copia incolla su foglio excel
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, |
27-04-2016, 12.56.51 | #4 |
Newbie
Registrato: 26-04-2016
Messaggi: 7
|
Rif: VBA semplice copia incolla su foglio excel
tra l'altro...
Sei una mia compaesana! mitico! :P |
27-04-2016, 17.42.02 | #5 |
Gold Member
Registrato: 20-05-2004
Loc.: Perugia
Messaggi: 4.188
|
Rif: VBA semplice copia incolla su foglio excel
Allora incontratevi magari oltre alla spiegazione del codice ci scappa anche qualcos'altro
___________________________________
Ogni computer ha la sua storia. Dermatite Seborroica? www.dermatiteseborroica.info |
27-04-2016, 21.36.02 | #6 |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: VBA semplice copia incolla su foglio excel
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
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
28-04-2016, 08.42.02 | #7 |
Newbie
Registrato: 26-04-2016
Messaggi: 7
|
Rif: VBA semplice copia incolla su foglio excel
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- |
28-04-2016, 11.07.19 | #8 |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: VBA semplice copia incolla su foglio excel
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
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
28-04-2016, 12.47.56 | #9 |
Newbie
Registrato: 26-04-2016
Messaggi: 7
|
Rif: VBA semplice copia incolla su foglio excel
https://dl.dropboxusercontent.com/u/...%20EXCELs.xlsm
ecco questo è un file di esempio con la macro spero si capisca! A |
28-04-2016, 22.27.48 | #10 |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: VBA semplice copia incolla su foglio excel
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 Codice:
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
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
29-04-2016, 08.52.02 | #11 |
Newbie
Registrato: 26-04-2016
Messaggi: 7
|
Rif: VBA semplice copia incolla su foglio excel
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! |
30-04-2016, 11.59.20 | #12 |
Newbie
Registrato: 26-04-2016
Messaggi: 7
|
Rif: VBA semplice copia incolla su foglio excel
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 |
Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti) | |
|
|
Discussioni simili | ||||
Discussione | Autore discussione | Forum | Risposte | Ultimo messaggio |
VBA XL: Filtra, copia, incolla su fogli multipli | ziousso | Office suite | 11 | 03-03-2016 15.28.24 |
Foglio Excel, collegamento ipertestuale a testo specifico e non a cella | domenico82 | Office suite | 2 | 11-02-2015 23.55.39 |
[Guida] Crea e invia file PDF da Excel con VBA | Alexsandra | Guide | 0 | 18-02-2012 15.47.31 |
copia ed incolla in Excel | SK888 | Office suite | 2 | 15-01-2009 12.49.06 |
Excel: evitare virgolette con il copia incolla all'esterno? | ghisirds | Office suite | 2 | 10-05-2007 22.41.42 |