Macro VBA Excel (Microsoft Office 365)

Question

Ho compilato una macro in Excel (VBA) ma mentre lavora (Loop fino al raggiungimento di un obiettivo) non riesco ad aprile altri file excel ... ho sbagliato qualcosa?

Answer 1

WOW ora funziona e posso lavorare con altri fogli excel!

L'unica cosa è che le operazioni di calcolo rallentano in maniera "drammatica" ... come posso fare?

Grazie ancora Norman!

Answer 2

Ciao Valerio,

Se tu dovessi ancora avere un problema, prova a caricare il file problematico ti chiederei gentilmente di caricare il file problematico, dopo averlo depurato dei dati sensibili, su un servizio di condivisione di file, ad esempio Microsoft OneDrive o DropBox, e postare un link al file in una risposta qui.

Per caricare il file su Microsoft OneDrive, vedi:

   Condividere file e cartelle di OneDrive

Per caricare il file su DropBox, vedi:

Come faccio a condividere file e cartelle in Dropbox?

===

Regards,

Norman

Answer 3

Ciao Valerio,

Prova a sostituire:

       Application.Wait (1)

con:

        Application.Wait (Now + TimeValue("0:00:01"))

===

Regards,

Norman

Answer 4

Non vedo come allegare il file ... Questo è il codice:

Option Explicit

Public Sub RicalcolaPerValerioCheNeHaBisogno()

Dim MaxK As Integer

Dim ValMax As Integer

Dim Tentativi As Long

    MaxK = Sheets("Tabella").Range("B2")

    ValMax = Sheets("Tabella").Range("A2")

    Sheets("Tabella").Range("D2") = 0

    Tentativi = 0

    Do While (MaxK <= ValMax)

        Calculate

        Tentativi = Tentativi + 1

        MaxK = Sheets("Tabella").Range("B2")

        Sheets("Tabella").Range("C2") = Tentativi

        If MaxK > Sheets("Tabella").Range("D2") Then

          Sheets("Tabella").Range("D2") = MaxK

          Sheets("Dettagli").Range("I" & Sheets("Tabella").Range("E2") + 1 & ":I20000").Copy

          Range(Selection, Selection.End(xlDown)).Select

          Sheets("Tabella").Range("G2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

          Sheets("Tabella").Range("G1").Select

        End If

        Application.Wait (1)

    Loop

End Sub

Answer 5

Ciao Valerio,

Ho compilato una macro in Excel (VBA) ma mentre lavora (Loop fino al raggiungimento di un obiettivo) non riesco ad aprile altri file excel ... ho sbagliato qualcosa?

Ti chiederei gentilmente di postare il codice problematico e magari caricare un file di esempio.

===

Regards,

Norman