Come far ripetere una MACRO ??
crazy...@gmail.com
sono praticamente un novizio di excel e ho una esigenza di questo tipo
che
ho provato a risolvere con una macro.....
In pratica, ho un foglio in cui sono presenti in sequenza orizzontale
(dalla
cella A1 fino alla cella IU1) delle date di calendario (01/01/2007
--
02/01/2007 -- 03/01/2007 -- ecc......).
Ora ho la necessità di copiare in un secondo foglio sempre dello
stesso
file, queste date in verticale, ovvero con uno sviluppo della sequenza
in
verticale e non più in orizzontale (dalla cella A1 alla cella A250).
Foglio 1 (riga 1):
01/01/2007 -- 02/01/2007 -- 03/01/2007 -- ecc...
Foglio 2 (colonna A):
01/01/2007
02/01/2007
03/01/2007
ecc......
Per fare questo ho registrato una MACRO, ma ora non ho la più pallida
idea
di come far ripetere quella macro in successione, partendo dalla cella
A1 e
scendendo fino alla cella A250, in modo che l'intero calendario che mi
deve
ricreare, si sviluppi in verticale invece che in orizzontale come già
nel
foglio 1 dove già presenti le date.
Questa la MACRO:
Sub Macro_Data()
'
' Macro_Data Macro
' Macro registrata il 12/01/2008 da ***********
'
'
ActiveCell.FormulaR1C1 = "='Euribor 2007'!R[-512]C[1]"
Range("A1").Select
ActiveCell.FormulaR1C1 = "='Euribor 2007'!R[-513]C[2]"
Range("A2").Select
ActiveCell.FormulaR1C1 = "='Euribor 2007'!R[-514]C[3]"
Range("A3).Select
End Sub
Come posso fare, o che comando devo inserire per ripetere l'operazione
nel
range A1 >> A250 ???
Grazie
IvanDaBologna
<crazy...@gmail.com> ha scritto nel messaggio
news:bdcf4acf-f188-42e6...@j20g2000hsi.googlegroups.com...
.............
senza macro prova
Selezioni la serie di date in riga, copia, ti metti nella prima cella da cui
vuoi iniziare l'elenco verticale e Modifica-->Incolla speciale .. -->>
trasponi.
Se questa operazione ti gusta, la rifai col registratore di macro acceso.
IvanDaBologna
Maurizio Borrelli
news:bdcf4acf-f188-42e6...@j20g2000hsi.googlegroups.com:
> sono praticamente un novizio di excel e ho una esigenza di questo tipo
> che ho provato a risolvere con una macro.....
> In pratica, ho un foglio in cui sono presenti in sequenza orizzontale
> (dalla cella A1 fino alla cella IU1) delle date di calendario (01/01/2007
> --
> 02/01/2007 -- 03/01/2007 -- ecc......).
> Ora ho la necessità di copiare in un secondo foglio sempre dello
> stesso file, queste date in verticale, ovvero con uno sviluppo della sequenza
> in verticale e non più in orizzontale (dalla cella A1 alla cella A250).
> Foglio 1 (riga 1):
> 01/01/2007 -- 02/01/2007 -- 03/01/2007 -- ecc...
> Foglio 2 (colonna A):
> 01/01/2007
> 02/01/2007
> 03/01/2007
> ecc......
> Per fare questo ho registrato una MACRO, ma ora non ho la più pallida
> idea di come far ripetere quella macro in successione, partendo dalla cella
> A1 e scendendo fino alla cella A250, in modo che l'intero calendario che mi
> deve ricreare, si sviluppi in verticale invece che in orizzontale come già
> nel foglio 1 dove già presenti le date.
> Questa la MACRO:
> Sub Macro_Data()
> ActiveCell.FormulaR1C1 = "='Euribor 2007'!R[-512]C[1]"
> Range("A1").Select
> ActiveCell.FormulaR1C1 = "='Euribor 2007'!R[-513]C[2]"
> Range("A2").Select
> ActiveCell.FormulaR1C1 = "='Euribor 2007'!R[-514]C[3]"
> Range("A3).Select
> End Sub
> Come posso fare, o che comando devo inserire per ripetere l'operazione
> nel range A1 >> A250 ???
Ciao crazynasdaq.
Un modo senza macro:
1. Seleziona l'intervallo orizzontale.
2. Modifica > Copia
3. Seleziona la prima cella di destinazione dell'intervallo verticale.
4. Modifica > Incolla speciale
[v] Trasponi
[ OK ]
--
(Facci sapere se e eventualmente come hai risolto. Grazie.)
Maurizio Borrelli [MVP]
http://www.riolab.org
Pippo
"Maurizio Borrelli" <maurizio...@freepass.it> ha scritto nel messaggio
news:%23qk28$PVIHA...@TK2MSFTNGP04.phx.gbl...
> "crazynasdaq@..." wrote in message
[cut]
Scusa Maurizio, quando ti e' possibile, puoi dare uno sguardo alla mia
domanda http://tinyurl.com/2otjbe
nel thread "Somma in vba in formati diversi" ?
Ciao e scusate per l'[OT]!
Pippo
crazy...@gmail.com
wrote:
GRAZIE !!!!!!!!!
E' esattamente quello che volevo