EXCEL VBA prelevare valore da sheet creati da una macro

[giuliad88]

Ciao, ho una macro che mi crea dei fogli excel, tanti quanti elementi trova nello Sheet modello a partire dalla riga 6. Incollo il codice che ho usato:

Dim riga As Integer
riga = 6
Do While True

Dim nomeComponente As String
nomeComponente = Sheets("Modello").Range("B" & riga)

If nomeComponente = "" Then
Exit Do
End If

Call creazioneFoglioComponente(nomeComponente, riga)
riga = riga + 1
Loop

End Sub

Private Sub creazioneFoglioComponente(nomeComponente As String, riga As Integer)

Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = nomeComponente ' Creo foglio con nome componente
Sheets(nomeComponente).Select ' Seleziono il foglio appena creato

Poi crea una serie di tabelle su questi fogli.
Ora io vorrei prendere il valore presente nella cella K12 di ogni foglio creato e metterlo in un altro foglio all'interno della colonna G partendo dalla riga 7. Come posso fare per dirgli una cosa del genere?

[ricky53]

Ciao,
visto che in "B6", del foglio "Modello", hai il nome del foglio che creerai con la macro, prova questa soluzione con formula:
a) in "G7", del foglio "Modello", scrivi

Codice: Seleziona tutto

=INDIRETTO(B6 & "!K12")

b) copia in basso fino a necessità


Se il foglio nel quale vuoi avere i valori non è "Modello" ma un altro allora la formula diventa:

Codice: Seleziona tutto

=INDIRETTO(Modello!B6 & "!K12")

da scrivere in "G7" di questo tuo foglio

Prova e ... sono QUI

[giuliad88]

Era esattamente quello che cercavo! Grazie mille!

[Flash30005]

Perdona Giulia88 ma potresti dare almeno una risposta come feedback alle soluzioni che ti vengono proposte
http://www.pc-facile.com/forum/viewtopic.php?f=26&t=101002
o pensi che non ce ne sia bisogno?

[giuliad88]

Scusami! Non avevo visto la nuova risposta... come vedi ho dato feedback e ringraziato... non credo ci sia bisogno di essere aggressivi.

[Flash30005]

?
"Perché guardi la pagliuzza che è nell'occhio del tuo fratello
e non ti accorgi della trave che è nel tuo occhio?"

Per me puoi continuare a comportarti come se il Forum fosse al tuo servizio ma se lo è, è solo perché le persone che si rendono disponibili lo fanno in maniera disinteressata ma tutti si aspettano almeno un feedback (non dico ringraziamenti soprattutto se forzati)
ciao e buon proseguimento