MACRO SOLO 1 VOLTA



  • MACRO SOLO 1 VOLTA
    di almanegrita (utente non iscritto) data: 11/08/2017 15:10:04

    ciao e ben trovati.
    Ho una macro che viene eseguita.
    Posso inibirne l'uso massimo ogni 10 minuti ?
    Cioe mi spiego, io la clicco, e poi se clicco ancora sul pulsante legato alla macro ottengo un messaggio di errore che dice
    che non posso eseguirla per i prossimi 10 minuti.
    Grazie a tutti.
    Allego il codice..( che mi avete aiutato a produrre ) grazie a tutti voi.
     
    Application.ScreenUpdating = False
    Dim i As Integer
    For i = 1 To 200
        If Sheets("CARICO").Cells(i, 32) <> "" Then
            Sheets("CARICO").Cells(i, 32).Copy
            Sheets("ORDINI_DOPPI").Range("A1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
        End If
    Next i
    
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox "OTTIMO..HO COPIATO."
    End Sub



  • di Vecchio Frac data: 11/08/2017 15:20:43

    Alla prima esecuzione memorizzi in qualche cella nascosta o lontana o in un file di appoggio (ma vedi che basta anche una variabile in memoria, sebbene questa sia una soluzione più labile) l'ora di avvio.
    Alle esecuzioni successive controlli l'ora attuale con quella memorizzata e se la differenza (puoi usare DateDiff) è minore dell'intervallo da te deciso, allora fai comparire il messaggio all'utente e esci dalla procedura senza eseguirla.