Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Errore di automazione-Danno irreparabile

Ultimo Aggiornamento: 17/12/2019 17:30
Post: 1
Registrato il: 05/12/2019
Età: 54
Utente Junior
Microsoft office 365 Excel Ver 1911
OFFLINE
17/12/2019 03:56

Buongiorno,
sto avendo problemi con il file allegato.
Il file contiene una userform per la compilazione assistita di fogli di lavoro.
all'interno della Userform ho inserito vari controlli, tra cui Combobox e textbox.
Il codice cerca di facilitare l'inserimento di dati facendo popolare le combobox con dei valori all'interno di una listbox in funzione del testo digitato.
Per la prima riga dell'area TESSUTI nella page PANTALONE il codice funziona. Per fare questo ho sfruttato le proprietà di qualche evento.
Appena scrivo qualcosa all'interno di un evento della della seconda combobox (TESSUTO LATERALE) il programma mi restituisce questo errore: "Errore di automazione - Danno irreparabile" e mi va in debug.
Anche cancellando il codice appena scritto, il file non funziona più.

Dove sbaglio?
Secondo voi devo inserire qualche istruzione particolare?

Grazie mille per l'aiuto.
Andrea
Post: 2.469
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
17/12/2019 10:44

ciao
dovresti essere un po' più esaustivo. Personalmente non sono riuscito a riprodurre l'errore.

Sta di fatto, comunque, che le combo del riquadro TESSUTI, destinate al TIPO - COLORE non presentano nessuna possibilità di scelta.

Nel frattempo: che ci stanno a fare le public sub stampa nei fogli?
Spostale, in un modulo e assegna loro 3 nomi diversi, tipo Salva1 -Salva2 - salva3, rendile semplici (es: Sub Salva1) ed assegnale ciascuno ai relativi pulsanti.

saluti



[Modificato da dodo47 17/12/2019 13:14]
Domenico
Win 10 - Excel 2016
Post: 1
Registrato il: 05/12/2019
Età: 54
Utente Junior
Microsoft office 365 Excel Ver 1911
OFFLINE
17/12/2019 14:53

Grazie per il consiglio, lo farò.
Le combobox "COLORE" vorrei farle popolare automaticamente con le varianti disponibili in funzione del tessuto scelto. Per questo ho creato la listbox1 in cui riepilogo tutte le combinazioni tessuto-colore nel 1 campo ID (che è appunto l'unione dei campi testo "DESCRIZIONE" tessuto e "VARIANTE" colore.
Al momento il codice è stato scritto solo per il 1° tessuto ("TESSUTO CENTRALE").
E' proprio quando vado a scrivere il codice sugli "eventi" per le altre combobox che mi si verifica l'errore:
Errore di automazione
Errore irreparabile

il sistema va in debug e il file risulta effettivamente danneggiato, tantochè anche cancellando il frammento di codice appena scritto, non riparte, neanche chiudendo e riaprendo il file.

Allego di nuovo il file che sulla mia macchina presenta già il problema.

grazie mille
Andrea
Post: 2.470
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
17/12/2019 17:30

ciao
non sono entrato nel merito delle tue macro. Ho spostato le sub dei foglio (che non hanno senso) nel modulo1 rinominando (es: salva1 - salva2 - etc)

Ho tolto (con l'apice) le istruzioni ad inizio di tutte le routine:

On Error Resume Next

Oltre ad essere errato mettere tale istruzione "a caso" è estremamente pericoloso in quanto qualsiasi errore avvenga, viene bypassato passando il controllo alla successiva riga di codice.

Eventuali errori vanno gestisti tramite una apposita routine, es:

Sub pippo()

on error goto errori
.....TUO CODICE......

esci:
exit sub
errori:
msgbox "errore " & err.number & " - " & err.description
resume esci

End sub


Non so se quanto sopra influisce sull'errore da te rilevato. Prova

saluti




Domenico
Win 10 - Excel 2016
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 06:33. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com