cambio time frame

  • Ecco la 60° Edizione del settimanale "Le opportunità di Borsa" dedicato ai consulenti finanziari ed esperti di borsa.

    Questa settimana abbiamo assistito a nuovi record assoluti in Europa e a Wall Street. Il tutto, dopo una ottava che ha visto il susseguirsi di riunioni di banche centrali. Lunedì la Bank of Japan (BoJ) ha alzato i tassi per la prima volta dal 2007, mettendo fine all’era del costo del denaro negativo e al controllo della curva dei rendimenti. Mercoledì la Federal Reserve (Fed) ha confermato i tassi nel range 5,25%-5,50%, mentre i “dots”, le proiezioni dei funzionari sul costo del denaro, indicano sempre tre tagli nel corso del 2024. Il Fomc ha anche discusso in merito ad un possibile rallentamento del ritmo di riduzione del portafoglio titoli. Ieri la Bank of England (BoE) ha lasciato i tassi di interesse invariati al 5,25%. Per continuare a leggere visita il link

giandino

Nuovo Utente
Registrato
6/4/04
Messaggi
1.604
Punti reazioni
180
Gentilmente,
avrei bisogno di una macro, che traformi i dati a 1 min in dati a tre minuti.

Grazie :bow:
 
Ultima modifica:
:wall:
 

Allegati

  • cartel1.xls
    110,5 KB · Visite: 73
Come faccio a far ripetere questa macro, fino alla fine della serie dei dati a 1 min?

Sub Macro1()
'
' Macro1 Macro
' Macro registrata il 10/04/2004 da x
'

'
Sheets("Foglio1").Select
Range("A1:C1").Select
Selection.Copy
Sheets("Foglio2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("D1").Select
ActiveCell.FormulaR1C1 = "=+MAX(Foglio1!RC[-1]:R[2]C[2])"
Range("E1").Select
ActiveCell.FormulaR1C1 = "=+MIN(Foglio1!RC[-2]:R[2]C[1])"
Range("F1").Select
ActiveCell.FormulaR1C1 = "=+Foglio1!R[2]C"
Range("G1").Select
ActiveCell.FormulaR1C1 = "=+SUM(Foglio1!RC:R[2]C)"
Range("G2").Select
Selection.End(xlToLeft).Select
Sheets("Foglio1").Select
Rows("1:3").Select
Selection.EntireRow.Hidden = True
End Sub




:confused:

Grazie
 
Indietro