Pagina precedente | 1 | Pagina successiva
Facebook  

Macro copia e incolla

Ultimo Aggiornamento: 11/10/2018 00.31
Autore
Stampa | Notifica email    
Post: 1
Registrato il: 10/10/2018
Utente Junior
Excel 2016
OFFLINE
10/10/2018 15.29

Buongiorno a tutti, avrei un problema con excel; in particolare, dovrei costruire una macro che mi permetta di copiare singole righe in una colonna (questi dati sono nella colonna N del foglio 2) e incollarle nella colonna B del foglio 1 a partire da B52, per poi incollarsi con un intervallo ogni 54 righe. In altre parole, N1 deve essere copiata in B52, N2 deve andare in B106, N3 in B160 ecc ecc. Io ho provato, ma non mi sta riuscendo; se mi date una mano mi fareste un grandissimo piacere. Grazie mille, Marco
Macro per file fatturemacro22/11/2018 08.54 by Giulia Ravanelli
Macro somma Valori anche se c'è testomacro13/11/2018 19.57 by gattodimarmo1980
Macro per allineamento immaginimacro29/11/2018 07.57 by by sal
Post: 628
Registrato il: 24/06/2015
Città: CATANIA
Età: 74
Utente Senior
Excel2010
OFFLINE
10/10/2018 15.44

Ciao

è sempre consigliabile allegare il file (senza dati sensibili) con le prove fatte per tentare di correggere qualche errore.

Se imposto una struttura a mio piacimento può non collimare con la tua e se ti faccio il lavoro tu non saprai mai dove sbagliavi.

Ciao,
Mario
Post: 1
Registrato il: 10/10/2018
Utente Junior
Excel 2016
OFFLINE
10/10/2018 16.39

esempio
Ho messo in allegato il file excel in questione. Avevo trovato online questa macro e avevo provato un po' a lavorare su questa, però non so se fa al caso mio. Le celle mi venivano copiate tutte insieme, e non singole celle; inoltre non venivano incollate sul foglio dove volevo io (sulla colonna B sì, però non con gli intervalli che dicevo prima). Non mi riesce molto,sono le prime volte che provo a impostare le macro su virtual basic. Vi ringrazio molto!

Sub a()
drow = ActiveCell.Row
Sheets(1).Select
Sheets(2).Select
LR = Cells(Rows.Count, "N").End(xlUp).Row
step1 =
step2 =
For r = 32 To LR Step step2
Range("N" & r & ":N" & r + step1).Copy Sheets(1).Cells(drow, 2)
drow = drow + step2
Next
End Sub
Post: 3.141
Registrato il: 03/04/2013
Utente Master
Excel 2000 - 2013
OFFLINE
10/10/2018 18.06

Buona sera, Marco.
@Marco Sciolis, chiede:


... dovrei costruire una macro che mi permetta di copiare singole righe in una colonna (questi dati sono nella colonna N del foglio 2) e incollarle nella colonna B del foglio 1 a partire da B52, per poi incollarsi con un intervallo ogni 54 righe. In altre parole, N1 deve essere copiata in B52, N2 deve andare in B106, N3 in B160 ...


purtroppo nel File che hai allegato, non c'è congruenza con quello che chiedi.
- Il Foglio di lavoro Foglio2 non è presente
- Nel Foglio di lavoro Foglio1 ci sono già unna serie di Record

Ciò detto, ho rinominato il Foglio di lavoro Foglio1 in Foglio2, contestualmente ho utilizzato un nuovo Foglio di lavoro vuoto che ho definto Foglio1.

Con questa nuova struttura, ho testato questo Codice VBA (Visual Basic for Application):
Option Explicit

Sub Copia_N()
Application.ScreenUpdating = False
Dim Trck As Long, x As Long, y As Long

    Trck = Cells(Rows.Count, "N").End(xlUp).Row
        With Worksheets("Foglio1")
            y = 52
        .Cells.ClearContents
            For x = 1 To Trck
                Cells(x, "N").Copy .Cells(y, 2)
                    y = y + 54
            Next x
        .Select
            End With
Application.ScreenUpdating = True
End Sub


Sembra funzionare, ma devi essere tu a confermarlo o meno.




A disposizione.

Buona serata.

Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013
Post: 2
Registrato il: 10/10/2018
Utente Junior
Excel 2016
OFFLINE
10/10/2018 21.58

Grazie mille Giuseppe! Purtroppo l'ho provata e non mi funziona bene, forse non mi sono spiegato molto bene su quello che cercavo di fare. Nel file excel allegato c'è un foglio chiamato Cartel1 e uno chiamato Foglio 1, entrambi sono compilati. La macro che mi dici funziona, però mi cancella tutto il contenuto di Cartel1, mettendomi sì nei posti giusti le celle che volevo, ma lasciandomi Cartel1 completamente bianco. Come potrei fare perché il contenuto di Cartel 1 non si cancelli? Davvero grazie mille per il favore.
Buona serata
Post: 3.144
Registrato il: 03/04/2013
Utente Master
Excel 2000 - 2013
OFFLINE
11/10/2018 00.01

Salve, Marco;
come avevo precisato:
@GiuseppeMN, scrive in Risposta #4:


 ... purtroppo nel File che hai allegato, non c'è con quello che chiedi.
-    Il Foglio di lavoro Foglio2 non è presente
-    Nel Foglio di lavoro Foglio1 ci sono già unna serie di Record

Ciò detto, ho rinominato il Foglio di lavoro Foglio1 in Foglio2, contestualmente ho utilizzato un nuovo Foglio di lavoro vuoto che ho definto Foglio1.

Con questa nuova struttura, ho testato questo Codice VBA (Visual Basic for Application): ...


Voglio dire, la struttura che ho con la quale ho condotto i miei test è quella in allegato; come puoi ben vedere il Foglio di lavoro "Cartel1" non l'ho proprio considerato.

Fai sapere se hai problemi con questo tipo di impostazione precisando quale sia il refuso.




A disposizione.

Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013
Post: 3.145
Registrato il: 03/04/2013
Utente Master
Excel 2000 - 2013
OFFLINE
11/10/2018 00.11

Forse i Valori della Colonna "N" vanno copiati direttamente non in Foglio1 ma in Cartel1?

In questo caso dai uno sguardo al File in allegato.



Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013
Post: 3
Registrato il: 10/10/2018
Utente Junior
Excel 2016
OFFLINE
11/10/2018 00.12

Grazie, mi sono espresso male, non ho chiamato bene i fogli con il loro nome. Il foglio excel che ho originariamente allegato è composto da due fogli (Cartel 1 e Foglio1). Non desidero creare un ulteriore foglio; mi piacerebbe che i valori, copiati da Foglio1 venissero incollati in Cartel1 secondo le regole che dicevo nel primo messaggio. La macro che mi hai mandato funziona, io ho provato a applicarla modificandola perché agisse copiando da Foglio1 su Cartel1, il problema è che mi cancella tutto il contenuto di Cartel1, che invece non dovrebbe essere toccato. Mi potresti aiutare a far sì che in Cartel1 vengano sì incollate le celle ma il contenuto non venga cancellato? Grazie mille e scusami se non mi sono spiegato
Post: 3.146
Registrato il: 03/04/2013
Utente Master
Excel 2000 - 2013
OFFLINE
11/10/2018 00.17

Prova a vedere la mia Risposta #7.


Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013
Post: 4
Registrato il: 10/10/2018
Utente Junior
Excel 2016
OFFLINE
11/10/2018 00.23

Sì!!! La macro nella risposta 7 è perfetta! Grazie mille davvero, mi farà risparmiare tantissimo lavoro ! Ti ringrazio veramente veramente tanto, buonanotte
Post: 3.147
Registrato il: 03/04/2013
Utente Master
Excel 2000 - 2013
OFFLINE
11/10/2018 00.31

Grazie del riscontro, non è sempre così scontato.


Alla prossima.

Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013
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]
Foglio riepilogativo da più fogli dello stesso file (3 messaggi, agg.: 27/07/2017 14.42)
Home Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 04.18. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.5.0.0] - Copyright © 2000-2018 FFZ srl - www.freeforumzone.com