Copia e incolla su una cella variabile

[erryrox]

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.

[Anthony47]

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

[erryrox]

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


[Anthony47]

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