Non sono i tentativi non riusciti che mi fanno sorridere quanto i tentativi non tentati che mi fanno incavolare...
Cio' detto, mi pare che tu hai la Copiaweb che parte ogni minuto e importa da web, e a questa si accodano la Sub Ordina e la Sub CopyValues.
Andiamo in coda alla Sub CopyValues, dove al posto di "mCopia" (che quindi puo' essere eliminata) inseriamo:
- Codice: Seleziona tutto
Dim I As Long, ShSt As Worksheet, ShX As Worksheet, lastC As Long, cIcs As Long
'
Set ShSt = Sheets("Storico") '<<< Il foglio coi dati da copiare
Set ShX = Sheets("Foglio2") '<<< Il foglio su cui copiare
lastC = ShSt.Cells(1, Columns.Count).End(xlToLeft).Column
ShX.Range("A3").CurrentRegion.ClearContents 'AZZERA su Foglio2 l'area da A3 verso dx /il basso
With ShSt
.Range(.Cells(1, "C"), .Cells(1, lastC)).Copy
ShX.Range("A3").PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, , True
For I = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If UCase(ShSt.Cells(I, 1)) = "X" Then
cIcs = cIcs + 1
.Range(.Cells(I, 2), .Cells(I, lastC)).Copy
ShX.Range("A2").Offset(0, cIcs).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, , True
End If
Next I
End With
Application.CutCopyMode = False
'mCopia
Sheets("Azioni_ITA").Protect 'GIA' PRESENTE
End Sub 'GIA' PRESENTE
Le istruzioni Dim puoi posizionarle in cima alla Sub, dove normalmente (per convenzione) si trovano le dichiarazioni.
Il codice aggiunto:
-imposta un riferimento ai fogli Storico e Foglio2
-CANCELLA SENZA PREAVVISO su Foglio2 l'area contigua che si trova da A2 verso destra e verso il basso (sara' cancellata l'area fintanto che non si trova una riga in basso e una colonna a destra totalmente vuota)
-scorre le righe di Storico, e quelle che hanno in colonna A una X vengono copiate, trasponendole in verticale, su Foglio2; vengono copiati sia i nomi dei titoli che tutte le quotazioni.
-in colonna A di Foglio2 viene copiato il contenuto di Riga1 di Storico, cioe' data /ora di importazione
La macro non si occupa di formattare Foglio2, e' possibile che qualche campo debba essere formattato manualmente al primo utilizzo
Prova e fai sapere...