Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Copia e incolla su una cella variabile

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

Copia e incolla su una cella variabile

Postdi erryrox » 04/05/12 10:58

Buongiorno, vi espongo il mio problema:

Ho 2 fogli ( "report" e "registro" ) su una stessa cartella di lavoro.
Nel foglio registro ci sono un elenco di contratti cosi disposti:
1 - pinco - data - euro - voto
2 - pallino - data - euro - voto
3 - ......
nel foglio "report" c'è un form da compilare che restituisce un voto in una cella del foglio stesso; in più nel report ci sono tutti i riferimenti del contratto (presi dal foglio registro).
Ora io dovrei copiare il voto ottenuto e incollarlo nella colonna "voto" del registro nella riga corrispondente al contratto di cui ho compilato il form.
Praticamente mi servirebbe una specie di cerca.vert che mi trova la cella giusta dove incollare il voto.
erryrox
Utente Junior
 
Post: 60
Iscritto il: 16/04/12 14:31

Sponsor
 

Re: Copia e incolla su una cella variabile

Postdi Anthony47 » 04/05/12 14:06

In linea di massima:
Codice: Seleziona tutto
MyRiga=Application.Match(Nome**, Sheets("registro").Range("A:A**"), 0)
Cells(MyRiga, LaColonnaVOTO**).Value = IlVoto**

Gli elementi marcati ** sono da variare con le informazioni coerenti con la tua struttura di dati

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: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Copia e incolla su una cella variabile

Postdi erryrox » 04/05/12 15:26

Anthony, nel frattempo ho scritto questo pezzo di codice, sicuramente il tuo è migliore.... ciao! :)


Codice: Seleziona tutto
Voto = Range("A1").Value     'cella del report con il voto
For Each CL In Sheets("registro contratti").Range("A1:A1000")
If CL.Value = Range("B2") Then      'confronta il numero progressivo del contratto con quello del report
CL.Offset(0, 11) = Voto                  ' incolla il voto nella riga e colonna opportuna
Exit For
End If
Next
erryrox
Utente Junior
 
Post: 60
Iscritto il: 16/04/12 14:31

Re: Copia e incolla su una cella variabile

Postdi Anthony47 » 04/05/12 22:27

Poiche' funziona anche il tuo codice e' ottimo.
Coi dettagli che deduco il mio equivalente diventa:
Codice: Seleziona tutto
MyRiga=Application.Match(Range("B2"), Sheets("registro contratti").Range("A1:A1000"), 0)
If Not IsError(MyRiga) Then Cells(MyRiga, "L").Value = Range("A1")
L' If serve a gestire eventuali errori di ricerca, possibili solo se in B2 metti valori non reperiti nel foglio "registro contratti"

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: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Copia e incolla su una cella variabile":


Chi c’è in linea

Visitano il forum: wallace&gromit e 16 ospiti