Moderatori: Anthony47, Flash30005
Sub aggioauto()
' aggiornamento Macro
'
'CellaFlag = "A1"
'
ThisWorkbook.RefreshAll '<< Mod
'Application.Wait (Now + TimeValue("0:00:20")) '<< Del
'wait 20 seconds '<< Aggiunte Do /Loop
ActiveWindow.SmallScroll Down:=75
Range("CC112:CS500").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
myTim = Timer
Do
DoEvents: If Timer > myTim + 10 Or Timer < myTim Then Exit Do '<< *2
Loop
'
Dim UR As Integer
UR = ThisWorkbook.Sheets("Prono").Range("C" & Rows.Count).End(xlUp).Row + 1
If UR < 3 Then
UR = 3
End If
If CellaFlag <> "" Then 'Non rischedulare se gia' attivo
With ThisWorkbook.Sheets("Prono")
ThisWorkbook.Sheets("Prono").Range("bF2:bS2").Copy
ThisWorkbook.Sheets("Prono").Range("C" & UR).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
.Range(CellaFlag) = .Range(CellaFlag) + 1
If .Range(CellaFlag) < 9999 Then
If (.Range("G2") * 3600 + .Range("H2") * 60 + .Range("I2") < 10) Then .Range("I2") = 10 '<< *3
mTempo = Now + TimeSerial(.Range("G2"), .Range("H2"), .Range("I2"))
Application.OnTime mTempo, "aggioauto"
End If
End With
End If
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 83 ospiti