errore run time 57121 e 32809 - errore definito dall'applicazione o dall'oggetto

Question

Buongiorno,

lanciando il mio codice vba da pc che non siano il mio vado incontro a questi due tipi di errori di run time (57121 e 32809). Non capisco quale sia il problema dato che sul mio pc gira tutto correttamente. Grazie

Sheets("Input").Range("b193").Value = Sheets("QUOTAZIONE").ComboBox1.text   'error

Answer 1

Ciao Salvatore,

entrambi i metodi non funzionano...inoltre ho notato che per altri file il codice cambia i nomi degli oggetti activeX da un pc all'altro! Per il mio file continua a cercare di creare il CommandButton7! ma non esiste! cercandolo sulla barra di ricerca e dando l'invio mi porta su una cella vuota! non riesco neanche a fare il delete dell'oggetto.

Oltre al suggerimento di Mauro, forse sarebbe opportuno postare la procedura problematica, anziché una singola riga di codice. In questo modo potrebbe essere possibile comprendere meglio ciò che stai cercando di fare e di fare eventuali ulteriori suggerimenti.

Nel frattempo, per quanto riguarda  il CommandButton7, per renderlo visibile, prova:

'==========>>

Public Sub Tester()

    Dim CB As Shape

    Set CB = ActiveSheet.Shapes("CommandButton7")

    With CB

        .Visible = True

        .Select

    End With

End Sub

'<<=========

===

Regards,

Norman

Answer 2

il codeCleaner non mi rileva nulla, e la sub tester funziona correttamente restituendomi ComboBox1.

Answer 3

Non penso comunque sia un problema di celle, è il foglio Input che ha qualche errore, perchè se cambio foglio la stessa stringa di codice funziona.

Answer 4

Ciao Salvatore,

ho provato ad eliminare i file .exd ma niente mi da sempre l'errore in quelle righe che coinvolgono le celle  Sheets("Input").Range("xxx").Value . Si tratta di celle mappate con xml.

Hai anche provato di scaricare l'addin CodeCleaner e di pulire il codice del File problematico?

Quando incontri il problema, prova la seguente macro:

'==========>>

Public Sub Tester()

    MsgBox ThisWorkbook.Sheets("QUOTAZIONE").ComboBox1.Name

End Sub

'<<=========

Ottieni il risultato ComboBox1?

===

Regards,

Norman

Answer 5

ho provato ad eliminare i file .exd ma niente mi da sempre l'errore in quelle righe che coinvolgono le celle  Sheets("Input").Range("xxx").Value . Si tratta di celle mappate con xml.