Moderatori: Anthony47, Flash30005
Adesso mi stai confondendo... Se Macro2 (che non hai detto quanto dura) non puo' andare in esecuzione quando ha finito Macro1 allora quando la fai partire?Se riesco a rendere indipendenti le due macro avrei risolto il problema anche perché non posso mandare in esecuzione là macro due di seguito a macro 1 perché come ti dicevo perderei dei dati
Public Sub DDE()
timeDDE = [L20]
interDDE = [M20]
contDDE = 0
ncicliDDEFINE = [L18]
[J17] = "prima rilevazione " & timeDDE
primarilevazione = [O18]
Application.OnTime timeDDE, "caricoDDE"
End Sub
Public Sub caricoDDE()
contDDE = contDDE + 1
[J20] = contDDE
datiDDE(contDDE) = [J18]
timeDDE = timeDDE + interDDE
If primarilevazione = 0 And contDDE = 420 Then
openDDE = datiDDE(1)
closeDDE = datiDDE(30)
maxDDE = 0
minDDE = 100000
For icont = 1 To 420
If datiDDE(icont) > maxDDE Then maxDDE = datiDDE(icont)
If datiDDE(icont) < minDDE Then minDDE = datiDDE(icont)
Next icont
[N20] = openDDE
[Q20] = closeDDE
[P20] = minDDE
[O20] = maxDDE
For icont = 1 To 420
datiDDE(icont) = 0
Next icont
contDDE = 0
primarilevazione = 1
[Q18] = primarilevazione
ncicli = ncicli + 1
[I20] = ncicli
[K20] = Now
End If
If primarilevazione = 1 And contDDE = 450 Then
openDDE = datiDDE(1)
closeDDE = datiDDE(60)
maxDDE = 0
minDDE = 100000
For icont = 1 To 450
If datiDDE(icont) > maxDDE Then maxDDE = datiDDE(icont)
If datiDDE(icont) < minDDE Then minDDE = datiDDE(icont)
Next icont
[N20] = openDDE
[Q20] = closeDDE
[P20] = minDDE
[M20] = maxDDE
For icont = 1 To 450
datiDDE(icont) = 0
Next icont
contDDE = 0
primarilevazione = 1
[Q18] = primarilevazione
ncicli = ncicli + 1
[I20] = ncicli
[K20] = Now
End If
If ncicli = ncicliDDEFINE Then Exit Sub
Application.OnTime timeDDE, "caricoDDE"
End Sub
Sheets("Dati").Select
R = [I6].Value + 1
[I6] = R
R = R + 2
Cells(R, 6) = [M3]
Cells(R, 7) = [N3]
Cells(R, 8) = [O3]
Cells(R, 9) = [P3]
Cells(R, 1) = Now
Cells(R, 2) = timeset
timeset = timeset + INTERVALLO
[I9] = "Prossima rilevazione: " & timeset
[K13] = Cells(R, 6)
[I13] = Cells(R, 1)
[J13] = Cells(R, 2)
omissis
Sheets("Dati").Select
Application.OnTime TimeValue(FINE), "StopOnTime"
If INTERVALLO > 0 Then Application.OnTime timeset, "RoutineOnTime"
ThisWorkbook.Sheets("DDE in lettura").Range("J20) = contDDE
Set myDest = ThisWorkbook.Sheets("DDE in lettura")
myDest.Range("J20) = contDDE
UserForm1.Show vbModeless
UserForm1.Label1.Caption = "Testo del messaggio"
Unload UserForm1
ActiveCell.Select
Sheets("Calcolo").Select
Range("A4").Select
Selection.End(xlDown).Select
ActiveCell.Range("A1:BX1").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:BX2"), Type:= _
xlFillDefault
ActiveCell.Range("A1:BX2").Select
Sub Macro2()
'
contriga = 15
contcolonna = 6
valore = ThisWorkbook.Sheets("calcolo").Range("F8")
ThisWorkbook.Sheets("foglio3").Range("A1") = valore
ThisWorkbook.Sheets("calcolo").Cells(contriga, contcolonna).Copy
ThisWorkbook.Sheets("calcolo").Cells(contriga + 1, contcolonna).PasteSpecial
End Sub
Sub Macro2()
'
contriga = 16
contcolonna = 6
'
valore = ThisWorkbook.Sheets("calcolo").Range("F8")
ThisWorkbook.Sheets("foglio3").Range("A1") = valore
ThisWorkbook.Sheets("calcolo").Range(Cells(16, 6), Cells(16, 7)).Copy
ThisWorkbook.Sheets("calcolo").Range(Cells(contriga + 1, 6), Cells(contriga + 1, 7)).PasteSpecial
'ThisWorkbook.Sheets("calcolo").Range(Cells(contriga + 1, 6), Cells(contriga + 1, 7)).Copy
'ThisWorkbook.Sheets("calcolo").Range(Cells(1, 6), Cells(1, 7)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Taspose:=False
End Sub
ThisWorkbook.Sheets("calcolo").Range(Cells(16, 6), Cells(16, 7)).Copy
With ThisWorkbook.Sheets("Foglio1")
.Range(.Cells(16, 6), .Cells(16, 7)).Copy
.Cells(contriga + 1, 6).PasteSpecial ' VEDI NOTA*
'altre istruzioni
'
End With
Torna a Applicazioni Office Windows
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 14 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Visitano il forum: Nessuno e 98 ospiti