Macro con Range variabile

Hai un problema con Excel?

Nuova discussione

Macro con Range variabile
di Andreat data: 30/12/2014 16:18:43
Ciao a tutti, mi sono appena iscritto.
Premetto che ho poca dimestichezza con vba di Excel ma vorrei alcune informazioni.
Mi spiego, ho creato una macro che mi copia da un range (B1:G1) fino ad un range (B2:G65536), cioè fino alla fine del foglio.
Ora nella cella A1 ho un valore di 4500 che a mia discrezione viene modificato, vorrei che questo valore andasse a sostituire il range (B2:G65536) trasformandolo in (B2:G4500).
E' possibile?
Vi allego la mia macro
Range("B1:G1").Select Selection.Copy Range("B2:G65536").Select ActiveSheet.Paste
di Mister_x (utente non iscritto) data: 30/12/2014 16:22:45
ciao

Range("B2:G"&[A1]).Select

ciao
di alfrimpa (utente non iscritto) data: 30/12/2014 16:26:13
Ciao

Ti basta definire una variabile nella quale memorizzi il valore della cella A1 che utilizzerai per definire l'intervallo da selezionare.

Alfredo
Dim nrighe as long nrighe = Range("A1").Value Range("B1:G" & nrighe).Select Poi continua con il tuo codice
di alfrimpa (utente non iscritto) data: 30/12/2014 16:28:25
Ciao Mister_x

Ci siamo accavallati ma la tua soluzione è più "professionale"

Io mi arrangio e a certe finezze non ci arrivo

Comunque non si finisce mai di imparare.

Grazie

Alfredo
di Andreat data: 30/12/2014 16:39:25
Grazie a tutti dell'immediata risposta, come sempre era semplice, stasera proverò.
Approfitto anche per sapere altre cose.
Sto creando una macro che mi permetta di velocizzare il tutto, vorrei però inserire una specie di barra di avanzamento in modo che mi permetta di controllare la fine della mia macro.
Meglio se ci fossero anche i minuti rimanenti alla fine del processo.
E' complicato il tutto?
Ho letto però che andrebbe a rallentare la macro, è vero?
Grazie
di lepat (utente non iscritto) data: 30/12/2014 16:45:40
in rete troverai vari esempi di progression bar, il rallentamento è inevitabile, ma l'effetto è sicuramente positivo
di Andreat data: 30/12/2014 21:08:03
Grazie a tutti della disponibilità, funziona alla meraviglia

Vuoi Approfondire?