vba excel comando sostituisci con....

[bruco1987]

ciao a tutti ragazzi, eccomi con un nuovo quesito per voi. Sto impazzendo col trovare il modo di sostituire un serie di range con un altro. Mi spiego meglio; ad esempio nel codice:

Codice: Seleziona tutto

UserForm5.TextBox153.Value = Worksheets("rose").Range("n3").Value
UserForm5.TextBox155.Value = Worksheets("rose").Range("n4").Value
UserForm5.TextBox156.Value = Worksheets("rose").Range("n5").Value
UserForm5.TextBox157.Value = Worksheets("rose").Range("n6").Value
UserForm5.TextBox158.Value = Worksheets("rose").Range("n7").Value
UserForm5.TextBox159.Value = Worksheets("rose").Range("n8").Value
UserForm5.TextBox160.Value = Worksheets("rose").Range("n9").Value
UserForm5.TextBox161.Value = Worksheets("rose").Range("n10").Value
UserForm5.TextBox162.Value = Worksheets("rose").Range("n11").Value
UserForm5.TextBox163.Value = Worksheets("rose").Range("n12").Value
UserForm5.TextBox164.Value = Worksheets("rose").Range("n13").Value
UserForm5.TextBox165.Value = Worksheets("rose").Range("n14").Value
UserForm5.TextBox166.Value = Worksheets("rose").Range("n15").Value
UserForm5.TextBox167.Value = Worksheets("rose").Range("n16").Value
UserForm5.TextBox168.Value = Worksheets("rose").Range("n17").Value
UserForm5.TextBox169.Value = Worksheets("rose").Range("n18").Value
UserForm5.TextBox170.Value = Worksheets("rose").Range("n19").Value
UserForm5.TextBox171.Value = Worksheets("rose").Range("n20").Value
UserForm5.TextBox172.Value = Worksheets("rose").Range("n21").Value
UserForm5.TextBox173.Value = Worksheets("rose").Range("n22").Value
UserForm5.TextBox174.Value = Worksheets("rose").Range("n23").Value
UserForm5.TextBox175.Value = Worksheets("rose").Range("n24").Value
UserForm5.TextBox176.Value = Worksheets("rose").Range("n25").Value
UserForm5.TextBox177.Value = Worksheets("rose").Range("n26").Value
UserForm5.TextBox178.Value = Worksheets("rose").Range("n27").Value


devo sostituire il riferimento alle celle, invece di avere da ("n3") a ("n27") dovrei avere da ("n31") a ("n55"). stavo quindi cercando un modo per farlo in automatico senza perdere tempo a farlo manualmente.... il comando di excel sostituisci con, non fa al caso mio, visto che và a sostituire una costante con un altra e non dei valori variabili... Aiutatemi!!!!
PS credo che questa cosa possa far risparmiare tanto tempo a molte persone, grazie mille

[Flash30005]

In A1 di un foglio inserisci questo testo

Codice: Seleziona tutto

UserForm5.TextBox

In B1 inserisci il valore 153
In C1 questo testo

Codice: Seleziona tutto

.Value = Worksheets("rose").Range("n

In D1 il valore 31in E1 il testo

Codice: Seleziona tutto

").Value

Trascini A1:E1 in A2:E2 e sostituisci in B2 inserendo valore 154 e in D1 il valore 32

Ora in una cella es.: F1

Codice: Seleziona tutto

=A1&B1&C1&D1&E1

Trascini la F1 in F2
Ora selezionando le due righe A1:F2
fino alla riga 29
otterrai nella colonna F il testo (ottenuto dalla formula)
quindi selezioni la colonna F copi e incolli speciale solo valori
copi questo testo e lo inserisci nella macro

Ma per così poche righe non so se conviene fare tutto ciò

ciao

EDIT ore 00:20 - devi far slittare i testi per variare anche il numero del TextBox
Ho corretto il post
e ottieni questo

Codice: Seleziona tutto

UserForm5.TextBox153.Value = Worksheets("rose").Range("n31").Value
UserForm5.TextBox155.Value = Worksheets("rose").Range("n32").Value
UserForm5.TextBox156.Value = Worksheets("rose").Range("n33").Value
UserForm5.TextBox157.Value = Worksheets("rose").Range("n34").Value
UserForm5.TextBox158.Value = Worksheets("rose").Range("n35").Value
UserForm5.TextBox159.Value = Worksheets("rose").Range("n36").Value
UserForm5.TextBox160.Value = Worksheets("rose").Range("n37").Value
UserForm5.TextBox161.Value = Worksheets("rose").Range("n38").Value
UserForm5.TextBox162.Value = Worksheets("rose").Range("n39").Value
UserForm5.TextBox163.Value = Worksheets("rose").Range("n40").Value
UserForm5.TextBox164.Value = Worksheets("rose").Range("n41").Value
UserForm5.TextBox165.Value = Worksheets("rose").Range("n42").Value
UserForm5.TextBox166.Value = Worksheets("rose").Range("n43").Value
UserForm5.TextBox167.Value = Worksheets("rose").Range("n44").Value
UserForm5.TextBox168.Value = Worksheets("rose").Range("n45").Value
UserForm5.TextBox169.Value = Worksheets("rose").Range("n46").Value
UserForm5.TextBox170.Value = Worksheets("rose").Range("n47").Value
UserForm5.TextBox171.Value = Worksheets("rose").Range("n48").Value
UserForm5.TextBox172.Value = Worksheets("rose").Range("n49").Value
UserForm5.TextBox173.Value = Worksheets("rose").Range("n50").Value
UserForm5.TextBox174.Value = Worksheets("rose").Range("n51").Value
UserForm5.TextBox175.Value = Worksheets("rose").Range("n52").Value
UserForm5.TextBox176.Value = Worksheets("rose").Range("n53").Value
UserForm5.TextBox177.Value = Worksheets("rose").Range("n54").Value
UserForm5.TextBox178.Value = Worksheets("rose").Range("n55").Value


[bruco1987]

Ma sei un grande! Non ci avevo pensato a sfruttare excel stesso!!!!! Perfetto! Cmq quella è solo una parte. Diciamo che nel programmino di quelle righe c'è ne circa 9000 hahahahahahha grazie mille!!!

[bruco1987]

scusami volevo solo capire, il valore 153 che mi hai fatto inserire in B1 a cosa si riferisce?

Risposto da solo!!!! Alla textbox..... che scemo ahhahahah ciao e grazie ancora

[Flash30005]

Questa potrebbe essere una tenica
fai, comunque attenzione perché ho notato che la numerazione dei textbox non è sequenziale (manca il 154)
ma potrai sempre adattare copiando la colonna dei valori e incollandola sopra slittando di n celle

Per l'ultimo tuo post (ci siamo accavallati)
Leggi l'edit, ho corretto il post perché devi variare anche il numero del textbox

ciao