creare una macro in excel

[nicola75ss]

@metallica68: forse non sei molto pratico del funzionamento di un forum ma non puoi sollecitare risposte dopo 20 minuti. Non siamo in una chat. Gli utenti intervengono compatibilmente con i propri impegni.

Inoltre come ti è stato scritto se vuoi che qualcuno ti aiuti dovresti caricare un file excel di esempio, riportando qui il link da cui poterlo scaricare.

[metallica68]

faccio il mea culpa per l'insistenza , vedro' cosa posso fare per caricare il file excel

[metallica68]

questo e' il link del file in excel con la spiegazione inclusa

http://myfreefilehosting.com/f/b1b091effd_0.82MB

[patel]

tu dici che "in sequenza dall'alto verso il basso ogni 15 minuti andranno nella casella A2000", ma da dove vengono questi dati ? chi li inserisce nel foglio ?

[metallica68]

se tu clicchi per esempio su S 1971 ti appare in alto la formula da dove arriva sto dato comunque per farla breve nelle colonne scure M e O ci sono i dati in tempo reale che variano in continuazione se M 1971 e N1971 conbaciano O1971 andra a posizionarsi in S1971

[VanessaInfo]

Originariamente inviato da metallica68
se tu clicchi per esempio su S 1971 ti appare in alto la formula da dove arriva sto dato comunque per farla breve nelle colonne scure M e O ci sono i dati in tempo reale che variano in continuazione se M 1971 e N1971 conbaciano O1971 andra a posizionarsi in S1971

Posto la mia soluzione, ancora temporanea e da perfezionare, come da regolamento è bene inserrire qua le risposte:

Private Sub Copia_Click() 
' Shift_Celle Macro ' Macro registrata il 28/04/2010 da * 
Riga_Inziale_Copia = 1971 'definisci inizio dati da spostare 
Riga_Finale_Copia = 2006 'definisci fine dati da spostare  
Numero_Righe = Riga_Finale_Copia - Riga_Inziale_Copia  'serve per capire quante righe andrai a copiare  

Riga_Copia_Da = 1966 'riga iniziale 
Riga_Copia_A = Riga_Copia_Da + Numero_Righe 'Tolgo a partire da A1 n righe equivalenti a quelle che devi copiare e poi shifto pian piano tutte le altre  

Range("A1:A" & Numero_Righe).Select 
Selection.ClearContents      
Range("A" & Numero_Righe + 1 & ":A" & Riga_Copia_A).Select     
Selection.Copy     
Range("A1").Select     
ActiveSheet.Paste     
Range("S" & Riga_Inziale_Copia + 1 & ":S" & Riga_Finale_Copia).Select     
Selection.Copy     
Range("A" & Riga_Copia_Da).Select     
ActiveSheet.Paste    
 
Application.OnTime Now + TimeValue("00:00:3"), "Foglio3.Copia_Click"  
End Sub

La macro viene eseguita ogni 3 secondi..per ora però bisogna premere un pusante (una volta sola...).

La macro che stoppa invece il timer mi dà problemi...attendo vs consiglio...

VaneX

P.S: l'ho fatto di fretta ma funziona...chiedo scusa in anticipo...
Ovviamente si possono parametrizzare anche le colonne....per ora fisse ad A ed S

Per associarla all'apertura del file basterà richiamarla usando la sub:
Private Sub Workbook_Open()
Copia_Click
End Sub

[metallica68]

hai fatto un ottimo lavoro , pero' non sapendo fare le macro(sono impedito) se puoi postarmi il link del file excel con la macro incorporata
te ne sarei grato grazie vane

[VanessaInfo]

Originariamente inviato da metallica68
hai fatto un ottimo lavoro , pero' non sapendo fare le macro(sono impedito) se puoi postarmi il link del file excel con la macro incorporata
te ne sarei grato grazie vane

inviata mail

[VanessaInfo]

...forse questo thread andava messo in programmazione...

attendiamo i moderatori...

[VanessaInfo]

Originariamente inviato da VanessaInfo
...forse questo thread andava messo in programmazione...

attendiamo i moderatori...

la sub per l'interruzione :

Application.OnTime EarliestTime:=SchTime, Procedure:="Foglio3.Copia_Click", Schedule:=False

SchTime= Now + TimeValue("00:00:03")'variabile visibile ad entrambi i moduli mi raccomando

inoltre si può aggiungere questa sub per la variazione di colore dei blocchi copiati:
Range("S" & Riga_Inziale_Copia & ":S" & Riga_Finale_Copia).Select
Selection.Interior.ColorIndex = Int((50 - 1 + 1) * Rnd + 1) '