macro copia incolla righe in automatico da un foglio ad un altro dello stesso file

Question

spero di esserci riuscito,se ancora e' negativo,puoi darmi una email dove inviarlo

grazie

maurizio caserta

Answer 1

Ciao Maurizio,

ho modificato il tuo file. Di seguito il link

Sistem Trading modificato

Non ho potuto fare l'aggiornamento completo dei dati (con la cattura via web) in quanto mi viene richiesto un file che non ho. Tuttavia la funzionalità del timer e della copia dei dati tra i due fogli funziona correttamente.

David

Answer 2

ti chiedo scusa,ho bisogno di una macro che copi ed incolli ogni singola riga da un foglio ad un altro,mi spiego meglio.

ho un file dove e' presente un foglio che l'ho chiamato parametri e in questo ricevo il dde della fineco,un altro foglio dati e in questo ho la storicizzazione dell data,ora,volume,chiusura,apertura,massimo,minimo,variazione,e delle formule per il calcolo delle medie mobili,della velocita',dei cicli,eccetera.per ogni singola colonna.

quindi avrei bisogno di una macro che copiasse le singole righe,ogni 3 minuti,dal foglio dati al foglio calcolo.

percui faccio solo un esempio per essere piu' chiaro;le contrattazioni della borsa iniziano alle

09:00,bene allora nel foglio dati avro la prima riga,che parte dalla b3:iv3,dove per ogni singola cella identifica un valore,dato da una formula,ora questa riga deve essere copiata ed incollata nel foglio calcolo ,ma soltanto il valore delle celle o range che va da b3:iv3

continuando con il tempo alle 09:03 avro una seconda riga con nuovi valori.ancora alle09:06

avro'ancora un'altra riga con nuovi valori che verranno ancora copiati ed incollati nel foglio calcolo,e cosi via fino alla seduta delle contrattazioni della borsa.

il fine del copia incolla e' quello di ottenere dei grafici puliti,precisi cioe' senza semirette verticali o orizzontali che mi sfalzano la lettura corretta per entrare o uscire dal mercato

dove proprio l'intersezione delle curve che mi suggeriscono l'entrata o l'uscita dal trader.

si e' vero esistono infiniti esempi,mauno come quello che avrei bisogno,sinceramente e' da piu' un anno che giro,non sono stato in grado di individuare la soluzione,ho aquistato dei testi sul vba ,niente da fare faccio solo tanta confusione,e tanto malditesta,so che voi siete dei geni nell'informatica,

ps se esiste la soluzione potresti spiegarmi come ,e dove inserire le ,o la macro

mi permetto di mandarti quello che ce' scritto nell'editor

nel foglio parametri ho :

Makros for the command buttons

' *********************************************************************

Sub cmd_TimerOn()

    Dim interval As Double

    ' get the interval value fomr cell D8

    interval = CDbl(Range("B3").Value)

    ' start the timer with the specified interval

    Call timer_Start(interval)

End Sub

Sub cmd_TimerOff()

    ' stop the timer

    Call timer_Stop

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

nei moduli :

modopenurl

 used for opening URLs in the standard web browser

Private Declare Function ShellExecute Lib "shell32" Alias "ShellExecuteA" _

   (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) _

   As Long

Public Sub OpenURL(ByVal URL As String)

   ShellExecute 0&, "OPEN", URL, vbNullString, vbNullString, vbNormalFocus

End Sub

modtime

Option Explicit

Dim timer_enabled As Boolean

Dim timer_interval As Double

' *********************************************************************

'  your code goes into this Makro

' *********************************************************************

Sub Timer()

    ' output the current time to cell D13

    Worksheets("Parametri").Range("B2").Value = CStr(Time)

    Worksheets("Parametri").Range("B1").Value = Worksheets("Parametri").Range("B1").Value + 1

    ' data

    Worksheets("Dati").Range("B" & Worksheets("Parametri").Range("B1").Value).Value = Worksheets("Parametri").Range("B5").Value

    ' ora

    Worksheets("Dati").Range("C" & Worksheets("Parametri").Range("B1").Value).Value = Worksheets("Parametri").Range("B6").Value

    ' valore

    Worksheets("Dati").Range("D" & Worksheets("Parametri").Range("B1").Value).Value = Worksheets("Parametri").Range("B4").Value

    ' volumi

    Worksheets("Dati").Range("E" & Worksheets("Parametri").Range("B1").Value).Value = Worksheets("Parametri").Range("B7").Value

    ' apertura

    Worksheets("Dati").Range("f" & Worksheets("Parametri").Range("B1").Value).Value = Worksheets("Parametri").Range("B11").Value

    'massimo

    Worksheets("Dati").Range("g" & Worksheets("Parametri").Range("B1").Value).Value = Worksheets("Parametri").Range("B10").Value

    'minimo

    Worksheets("Dati").Range("h" & Worksheets("Parametri").Range("B1").Value).Value = Worksheets("Parametri").Range("b9").Value

    'variazione

    Worksheets("Dati").Range("i" & Worksheets("Parametri").Range("B1").Value).Value = Worksheets("Parametri").Range("b8").Value

    'n.den

     Worksheets("Dati").Range("j" & Worksheets("Parametri").Range("B1").Value).Value = Worksheets("Parametri").Range("b14").Value

   'q.den

     Worksheets("Dati").Range("k" & Worksheets("Parametri").Range("B1").Value).Value = Worksheets("Parametri").Range("b15").Value

   'p.den

     Worksheets("Dati").Range("l" & Worksheets("Parametri").Range("B1").Value).Value = Worksheets("Parametri").Range("b16").Value

    'p.let

     Worksheets("Dati").Range("m" & Worksheets("Parametri").Range("B1").Value).Value = Worksheets("Parametri").Range("b17").Value

    'q.let

     Worksheets("Dati").Range("n" & Worksheets("Parametri").Range("B1").Value).Value = Worksheets("Parametri").Range("b18").Value

     'n.let

     Worksheets("Dati").Range("o" & Worksheets("Parametri").Range("B1").Value).Value = Worksheets("Parametri").Range("b19").Value

    'pressine let

    Worksheets("Dati").Range("p" & Worksheets("Parametri").Range("B1").Value).Value = Worksheets("Parametri").Range("c18").Value

'pressine let

    Worksheets("Dati").Range("q" & Worksheets("Parametri").Range("B1").Value).Value = Worksheets("Parametri").Range("c14").Value

'last_open

    Worksheets("Dati").Range("cv" & Worksheets("Parametri").Range("B1").Value).Value = Worksheets("Parametri").Range("b20").Value

    ' ciclo_1

    Worksheets("Dati").Range("cw" & Worksheets("Parametri").Range("B1").Value).Value = Worksheets("Parametri").Range("b21").Value

End Sub

' *********************************************************************

'  internal timer methods

' *********************************************************************

Sub timer_OnTimer()

    Call Timer

    If timer_enabled Then Call timer_Start

End Sub

Sub timer_Start(Optional ByVal interval As Double)

    If interval > 0 Then timer_interval = interval

    timer_enabled = True

    If timer_interval > 0 Then Application.OnTime (Now + timer_interval), "Timer_OnTimer"

End Sub

Sub timer_Stop()

    timer_enabled = False

End Sub

mod1

Sub CopiaDati()

    Sheets("Dati").Select

    Cells.Select

    Range("A1:iv5000").Select

    Application.CutCopyMode = False

    Selection.Copy

    Sheets("calcolo").Select

    Cells.Select

    Range("A1:iv5000").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

Sheets("Calcolo").Range("A1").Select

Application.ScreenUpdating = True

End Sub

quest'ultimo e' collegato ad un pulsante posto nel foglio dati

questa macro copia i valori dal foglio dati al foglio calcolo ma non in automatico,ma attraverso il pulsante avvia.

e per me non e' una soluzione,perche ho bisogno di una macro che copia ed incolla ogni singola nuova riga dal foglio dati al foglio calcolo rispettando il tempo dei tre minuti

Ho bisogno di questa soluzione,magari cambio lavoro

grazie maurizio caserta

la mia email ******@virgilio.it

ancora ultima cosa ho tentato tante volte di inviare una copia del foglio lavoro e condividerlo,ma non ci riesco

Answer 3

Ciao Maurizio,

credo che se tu facessi una ricerca in questo forum troveresti qualche centinaio (ma forse sono pessimista) di post relative all'argomento.

Se riesci ad essere più preciso su ciò che hai e ciò che vorresti ottenere magari riusciamo ad aiutarti meglio

David

Answer 4

buon giorno a tutti,vorrei sapere se ce',o esiste una soluzione al mio quesito.

Grazie

Answer 5

spero di esserci riuscito,se ancora e' negativo,puoi darmi una email dove inviarlo

 

grazie

maurizio caserta

 

No, niente.  La mia mail qui sotto, da ricomporre. Ci guardo lunedì.

maurogsc

chiocciola

alice.it