Incolla prendendo riferimento da cella esterna

[scanacc]

Devo incollare alcuni dati nel foglio denominato cc.
Generalmente devo iniziare ad incollarlo partendo dalla cella A7

Codice: Seleziona tutto

    Range("A7").Select
    ActiveSheet.Paste


Ora invece è nata l'esigenza di incollare questi dati in una cella che non inizia nella riga 7 bensi inizia in una riga scritta nella cella B2.
Esempio: se nella cella B2 c'è scritto 1123, dovrò cominciare a incollare questi dati in A1123.
Quindi al posto di Range("A7").Select dovrei scrivere Range("A1123").Select
Come posso fare?

[Marius44]

Ciao
Prova così

Range("A" & Range("B2").Value).Select

Ciao,
Mario

[scanacc]

Perfetto! C'è però un problemino.
B2 è su un foglio differente di quello dove devo incollare e quindi nella formula dovremmo specificarlo altrimenti da debug.
Grazie per l'attenzione

[Anthony47]

Se copi da A e devi incollare in B non c'e' bisogno di selezionare B; puoi prendere spunto da questa istruzione:

Codice: Seleziona tutto

Sheets("Foglio2").Range("A5:B9").Copy Destination:=Sheets("Foglio1").Cells(Sheets("Foglio3").Range("B2").Value, "A")


(l'istruzione e' su una singola riga)
Questa copia Sheets("Foglio2").Range("A5:B9") e incolla su Foglio1 a partire dalla cella Axx, dove XX e' letto in Sheets("Foglio3").Range("B2")

Se non riesci ad adattare allora posta il codice su cui stai lavorando e vedremo

Ciao a tutti

[scanacc]

Trovato

Codice: Seleziona tutto

Range("A" & Sheets("SCHEDA dove è il numer di riga da cercare").Range("T2").Value).Select

Almeno pare che funzioni