Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Inverti funzione macro Copy

Ultimo Aggiornamento: 29/08/2019 23:01
Post: 84
Registrato il: 03/05/2016
Città: MILANO
Età: 50
Utente Junior
Excel 2011
OFFLINE
29/08/2019 12:54

Ciao a tutti ho trovato il seguente codice in rete che farebbe proprio al caso mio se solo funzionasse nel senso inverso


Il seguente codice copia dal foglio 2 i valori contenuti nella riga 10 e li copia nella riga del foglio1
a secondo del numero di riga riportato in A1

Sub prova()
'
Ur = Sheets("foglio1").Range("A1").Value
Sheets("foglio2").Rows("10:10").Copy
Sheets("Foglio1").Cells(Ur, "A").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub


Sarebbe per me fantastico se potesse copiare i valori contenuti nella riga riportata in A1 ( foglio 1

dalla colonna A : F del foglio 1 e copiarli nel foglio 2 nella riga 10 partendo dalla colonna F


Pensavo che fosse stato sufficiente invertire PasteSpecial e Copy ma non sono riuscito a risolvere :-(


UN GRAZIE A TUTTI

Simone
Post: 864
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Senior
Excel 2016-32bit Win11
OFFLINE
29/08/2019 19:02

Questa versione della macro copia i dati come hai indicato:
Option Explicit

Sub prova()
    
    Sheets("Foglio1").Range("A1:F1").Copy
    Sheets("Foglio2").Cells(10, "F").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    
End Sub

______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
Post: 84
Registrato il: 03/05/2016
Città: MILANO
Età: 50
Utente Junior
Excel 2011
OFFLINE
29/08/2019 20:50

Ciao Rollis ti ringrazio molto per l'aiuto

Mi scuso ma purtroppo ho fatto confusione nello scrivere tralasciando spiegazioni

Non é il numero contenuto nella cella A1 del foglio 1 che voglio copiare nel foglio 2 ma i valori contenuti nella riga scelta dalla cella A1
nella riga 10 del foglio 2

esempio : se nella cella A1 del foglio 1 risulta il numero 22
Dovrebbe copiare i valori della riga 22 dalla colonna A alla F del foglio 1 e incollarli nella riga 10 del foglio 2 a partire dalla colonna F

Ho provato a modificare la macro, in parte sembra funzionare ,ma copia solo il primo valore e non so’ perchè

Sub prova()
ur = Sheets("foglio1").Range("A1").Value
Sheets("Foglio1").Cells(ur, "A").Copy
Sheets("Foglio2").Cells(10, "F").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

Grazie, saluti
Simone
Post: 865
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Senior
Excel 2016-32bit Win11
OFFLINE
29/08/2019 22:14

L'avevo intuito che qualcosa ci covava … ma tant'è ti avevo indicato la strada giusta, bastava inserire la variabile che indica la riga scelta:

Sheets("Foglio1").Range("A" & ur & ":F" & ur).Copy

______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
Post: 85
Registrato il: 03/05/2016
Città: MILANO
Età: 50
Utente Junior
Excel 2011
OFFLINE
29/08/2019 22:35

Ti ringrazio tantissimo Rollis

saluti
Simone
Post: 866
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Senior
Excel 2016-32bit Win11
OFFLINE
29/08/2019 23:01

Grazie del riscontro positivo 👍.

______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
Vota:
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]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 11:07. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com