Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

macro incolla valori diversi

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

macro incolla valori diversi

Postdi martin » 07/01/09 17:22

salve anthony
buon anno
ti devo chiedere altra cortesia:

devo copiare su 200 pagine nominate : p1 p2 p3....

un valore di una cella alla pag precedente, mi spego meglio_

es. g1di p2=g1di p1
g1di p3=g1di p2
g1 di p4=g1di p3 e cosi via
mi avevi gia dato una macro per incollare è funziona benissimo
il pro ora è cambiare p1 in p2 p3 etc. (='p1'!G1)
ciao grazie martin
martin
Utente Senior
 
Post: 108
Iscritto il: 03/12/08 17:04

Sponsor
 

Re: macro incolla valori diversi

Postdi Anthony47 » 08/01/09 01:21

Mi pare cioe' che devi mettere in G1 di tutti i fogli da P2 a P200 la formula =P1!G1
Per questo, di base userai un ciclo come questo che segue, che presuppone che P2 sia piu' a sx (prendendo a riferimento la posizione del tab col nome) dei fogli P3:Pxxx, e che Pxxx sia l' ultimo foglio; se non e' cosi' sono necessari piccoli aggiustamenti al codice.

Codice: Seleziona tutto
Sheets("P2").select
For I=Activesheet.index to ActiveWorkbook.Worksheets.Count
Sheets(I).Range("G1").Formula="=P1!G1"
Next I


Infine tieni presente che se l' operazione e' una tantum la puoi fare anche a mano:
-selezioni P2 e su questo foglio la cella G1
-tenendo premuto Maiusc, seleziona il tab col nome Pxxx
-nella barra della formula scrivi la formula =P1!G1
Fatto

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: macro incolla valori diversi

Postdi martin » 08/01/09 08:57

ciao Anthony

mi spiego meglio (non è un semplice incolla)
G1 di ogni pagina dovra leggere la pag precedente a partire da P2
p2 p3 p4 p5
(='p1'!G1)...(='p2'!G1)...(='p3'!G1)...(='p4'!G1)....

in poche parole deve essere qualcosa come ...."( ='p(I) '!G1 ) "dove I prende il nome della pag precedente dove si trova
grazie sempre per avermi risposto
martin
martin
Utente Senior
 
Post: 108
Iscritto il: 03/12/08 17:04

Re: macro incolla valori diversi

Postdi Anthony47 » 08/01/09 15:02

La proposta fatta che non ha nulla a che vedere con un icolla, quindi forse non e' stata compresa.

Secondo quanto detto nel primo post e confermato dal tuo ultimo, vuoi mettere in P2-G1 la formula =P1!G1, in P3-G1=P2!G1, in P4-G1=P3!G3 e cosi' via.
Per la proprieta' transitoria, ogni G1 richiamera' quindi il valore contenuto in P1!G1, cosa che la mia proposta fa.

Se la richiesta invece e' diversa da quella che ho capito, allora prova a descrivere con parole diverse.

Ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: macro incolla valori diversi

Postdi martin » 08/01/09 15:44

mi spiego meglio dandoti spiegazione di ciò che desidero ottenere.

p1 p2 p3 ....sono situazioni diverse.

se scrivo in G1 p1 "rossi" in G1 p2 p3 p4... etc mi troverò "rossi".
ma se in G1 p4 scriverò "verdi" in G1 p5 p6 p7 ... troverò verdi
e cosi via .
martin
Utente Senior
 
Post: 108
Iscritto il: 03/12/08 17:04

Re: macro incolla valori diversi

Postdi Anthony47 » 10/01/09 00:45

Mi era sfuggita la notifica di risposta; prova con
Codice: Seleziona tutto
Sheets("P2").Select
For I = ActiveSheet.Index To ActiveWorkbook.Worksheets.Count
Sheets(I).Range("G1").Formula = "='" & Sheets(I - 1).Name & "'!G1"
Next I

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: macro incolla valori diversi

Postdi martin » 10/01/09 01:18

Anthony...
anche questa volta...mi...hai dato la formula .........giustaaaaaaaaaaaaaaaaa!!!!!!!!!!!
:lol: grazieeeeeeee!!! sapessi che lavoraccio fastidioso mi hai evitato :lol:
a buon rendere.
Martin
martin
Utente Senior
 
Post: 108
Iscritto il: 03/12/08 17:04

Re: macro incolla valori diversi

Postdi martin » 24/01/09 15:50

Anthony47 ha scritto:Mi era sfuggita la notifica di risposta; prova con
Codice: Seleziona tutto
Sheets("P2").Select
For I = ActiveSheet.Index To ActiveWorkbook.Worksheets.Count
Sheets(I).Range("G1").Formula = "='" & Sheets(I - 1).Name & "'!G1"
Next I

Ciao

Ciao Anthony
mi serve ancora il tuo aiuto
dovrei modificare questa macro anzi che utilizzarla nelle pagine
deve essere posta in celle adiacenti di una singola pagina.
quindi la formula sempre a salire di pagina in
a1 a2 a3 a4 etc.... es (='p1'!=g1... ='p2'!=g1...='p3'!=g1... fino a 200

certo tuo aiuto grazie
martin
martin
Utente Senior
 
Post: 108
Iscritto il: 03/12/08 17:04

Re: macro incolla valori diversi

Postdi Anthony47 » 25/01/09 14:14

Il loop e' quasi analogo, salvo che invece di usare "I" per spostare il foglio target lo userai per spostare la cella target; ad esempio questa:
Codice: Seleziona tutto
Activesheet.cells(I,1).Formula = "='" & Sheets(I).Name & "'!G1"


Non
Ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: macro incolla valori diversi

Postdi martin » 26/01/09 06:03

ok Anthony
fatto funziona benissimo ho avuto solo problema perchè mi interessava cella adiacente ma basta togliere , 1 e lasciare (I) va sulla cella adiacente
a ri-grazie
alla prossima
martin
martin
Utente Senior
 
Post: 108
Iscritto il: 03/12/08 17:04

Re: macro incolla valori diversi

Postdi martin » 11/11/09 18:18

salve a tutti
in particolare ai ns moderatori.
cortesia ...
questa macro mi ha aiutato tanto (rif. Anthony)

Sub incspe()
Range("v23").Select
For I = 3 To 200
ActiveSheet.Cells(I).Formula = "='" & Sheets(I).Name & "'!L20"

Next I

copia le celle sullo stesso rigo adiacenti , come si può
cambiarla per copiare in una colonna?
grazie
martin
Utente Senior
 
Post: 108
Iscritto il: 03/12/08 17:04

Re: macro incolla valori diversi

Postdi Anthony47 » 11/11/09 22:56

Dovrebbe essere:
Codice: Seleziona tutto
Range("v23").Select
For I = 3 To 200
Activecell.Cells(I).Formula = "='" & Sheets(I).Name & "'!L20"
Next I


Ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: macro incolla valori diversi

Postdi martin » 12/11/09 03:32

Anthony47 ha scritto:Dovrebbe essere:
Codice: Seleziona tutto
Range("v23").Select
For I = 3 To 200
Activecell.Cells(I).Formula = "='" & Sheets(I).Name & "'!L20"
Next I


Ciao.

ok é quella !!
grazie Anthony
ciao
martin
Utente Senior
 
Post: 108
Iscritto il: 03/12/08 17:04


Torna a Applicazioni Office Windows


Topic correlati a "macro incolla valori diversi":


Chi c’è in linea

Visitano il forum: ilPrincipito e 13 ospiti

cron