alfa46
Nuovo forumer
Se hai impostato le quattro Query (data-close MIB30-open Fut-close Fut) riporta i dati rispettivamente in A5-B5-D5-E5.
- Porta il foglio Sistema in prima posizione.
- Apri l'Editor di Visual Basic
- Dal menu INSERISCI (scusa la ripetizione) inserisci Modulo.
- Nella relativa finestra copia il seguente codice:
Sub Aggiorna()
' Scelta rapida da tastiera: CTRL+a
'Questo sotto serve a non vedere i saltellamenti dei Select
Application.ScreenUpdating = False
Dim CL As Object
For Each CL In Worksheets(1).Range("5:5")
If CL.Value > 0 Then
CL.Select
Selection.Copy
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
Next
Range("a5").Select
Selection.Copy
Range("a6").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Application.CutCopyMode = False
End Sub
Sub PulisciUltimo()
'
' PilisciUltimo Macro
'Questo sotto serve a non vedere i saltellamenti dei Select
Application.ScreenUpdating = False
Dim CL As Object
For Each CL In Worksheets(1).Range("5:5")
If CL.Value > 0 Then
CL.Select
Selection.Copy
Selection.End(xlDown).Select
ActiveCell.Offset(0, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.ClearContents
End If
Next
Range("a5").Select
Selection.Copy
Range("a6").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Application.CutCopyMode = False
End Sub
- Poi da "Strumenti di Controllo" crei un pulante che chiamerai "Aggiorna"
- Nel VBAProject clicca sul "Foglio Sistema" e nella finestra che si apre copia il seguente codice:
Private Sub CommandButton1_Click()
Application.Run "'RegoloX.l2009.xls'!Aggiorna"
End Sub
Spero di esserti stato d'aiuto anche se sono un nuovo iscritto.
Ciao
Ultima modifica:
