-
Salve ragazzi,
io ho iniziato a produrre una mia idea ma, ovviamente, mi sono bloccato perchè il mio livello è quello che è.
Per capire meglio sin dal principio potete guardare un post precedente:https://www.bysal-excel.it/forums/topic/controllo-doppioni/#post-8607
Descrivo quello che ho fatto nella speranza che possiate aiutarmi
Sul doppio Click della colonna “C” del codice che mi interessa si apre una UserForm che contiene 3 cose:
1 – una TextBox la quale vorrei contenesse la situazione di tutti i seriali inseriti per quell’apparato (come già stato fatto da Sal), ovvero la macro VediDopp12 – 2 checkbox con due etichette (una per ogni checkbox)
La prima etichetta si chiama “PRENOTA” ed a fianco una TextBox la quale può accettare solo numeri
La seconda etichetta collegata alla seconda checkbox si chiama “ASSEGNA” ed a fianco due textbox “DA” “A” ed anch’esse possono accettare solo numeri
Alla textbox di “PRENOTA” posso mettere un numero ed una volta confermato con il pulsante OK la macro deve solo colorare di GIALLO un numero di celle pari al numero inserito, quindi se scrivo “10” deve colorare di giallo le prime 10 celle dei seriali di quel codice ma il contenuto delle celle rimane invariato.
Sarebbe “figo” se potesse inserire anche una riga nuova nel caso viene inserito un numero superiore a 20 ed un altra ancora per numeri superiori a 40 e così via
La TextBox ASSEGNA deve fare la stessa cosa ma con anche i numeri seriali disposti in modo progressivo
Il concetto è che solitamente io coloro prima le celle in modo da capire quanto prodotti ha ordinato al fine di organizzarmi ed una volta che sono a conoscenza dei seriali da assegnare posso inserire anche i seriali nelle celle colorare di giallo (infatti nella colonna E c’è una formula che conta in base al colore della cella)
Spero in un Vostro aiuto perchè io non sono ad un livello tale da poterci riuscire da solo
Grazie a tutti per l’aiuto!! -
-
-
-
-
È giusto!! È giustissimo!
Ho capito perfettamente
Io sono un Neofita del VBA ma quello che mi piace del VBA (ma sicuramente lo stesso discorso vale per tutti gli altri linguaggi di programmazione) è che tutto ha una logica e tutto deve essere fatto con logica.
Terrò bene a mente questo consiglio
Grazie mille Sid!!
-
-
Ciao Sid!
Grazie mille! Provo tutto immediatamente
“Compilazione” è il nome della Maschera (quindi in base al tuo consiglio avrei dovuto chiamarla frm_Compilazione)
“InfoProdottoSeriali” è la TextBox la quale deve far comparire il risultato della Macro VediDopp1
Grazie mille
Provo ad eseguire le modifiche che mi hai suggerito
-
PS Compilazione e InfoProdottoSeriali ti ricordi che sono? :P
Ops!!
Mi stavi prendendo in giro!!
Non avevo capito!!!
-
Una possibile soluzione: nella subRoutine Sub VediDopp1(Cod, dd) all’interno dell’Else sostituisci l’istruzione
MsgBox "Seriali assegnati al codice " & Cod & " - " & dd & Chr(10) & Chr(10) & d, vbInformation, "Lista Seriali assegnati"conWith Compilazione .InfoProdottoSeriali.Value = "Seriali assegnati al codice " & Cod & "-" & dd & Chr(10) & Chr(10) & d .Show End WithHo fatto ma la maschera si apre e nella TextBox non compare acluna info…
-
-
-
-
-
-
-
-
A me funziona
Sid scusami, ma io non riesco a capire perchè sul tuo file funziona e sul mio no…
Ho aperto entrambi contemporaneamente paragonandoli senza trovare differenze ma nonostante tutto sul tuo file la TextBox funziona e sul mio no…
Cosa mi sfugge??
Grazie mille per il supporto!!
https://www.dropbox.com/s/7sloglgicfnqvpy/BYSAL.xlsm?dl=0
-
Questa risposta è stata modificata 2 settimane, 3 giorni fa da
Kris_9951. Ragione: Link File
-
Questa risposta è stata modificata 2 settimane, 3 giorni fa da
-
-
Scusa ma adesso non ho modo di stare al pc. Prima di stanotte non posso aiutarti.
Sid ma non preoccuparti
Quando vuoi!
Sei stato anche fin troppo gentile.
Grazie mille per il supporto!!
-
-
Scusa ma la colpa è mia Non ti ho detto che nell’evento SheetBeforeDoubleClick andava attivata l’istruzione della chiamata alla subRoutine Sub VediDopp1(Cod, dd) ed eliminare l’istruzione Compilazione.Show
Ma è pur vero che avrei potuto notarlo anch’io
Grazie mille!!
-
-
Bellissimo!!!
Ed io che pensavo ad un qualcosa di più banale tipo:
If Not IsNumeric(Me.TextBox1) Then
Questo è il Top
Grazie mille!!
Credo che la parte più difficile ora sia quella che riguarda l’auto compilazione dei seriali in base ai valori inseriti nelle TextBox…
-
-
Alla textbox di “PRENOTA” posso mettere un numero ed una volta confermato con il pulsante OK la macro deve solo colorare di GIALLO un numero di celle pari al numero inserito, quindi se scrivo “10” deve colorare di giallo le prime 10 celle dei seriali di quel codice ma il contenuto delle celle rimane invariato. Sarebbe “figo” se potesse inserire anche una riga nuova nel caso viene inserito un numero superiore a 20 ed un altra ancora per numeri superiori a 40 e così via La TextBox ASSEGNA deve fare la stessa cosa ma con anche i numeri seriali disposti in modo progressivo
Quindi considerato che in un primo momento sono a conoscenza solo delle quantità che il cliente ha ordinato per ogni prodotto ed in un secondo momento mi metteranno a conoscenza anche dei seriali di quei prodotti ordinati io ho impostato il mio flusso di lavoro così:
nella fase 1 ovvero la fase in cui sono a conoscenza delle quantità ma non ancora dei seriali io evidenzio in giallo un numero di celle pari alla quantità ordinata dal cliente (questo per iniziare quantomeno ad organizzare il lavoro) e quando verrò a conoscenza dei seriali riempirò quelle stesse celle evidenziate in precedenza con i numeri seriali.
Per questi motivi ho pensato a questi due metodi di inserimento:
– PRENOTA
– ASSEGNA
Il “PRENOTA” colora di giallo le celle in base al numero inserito mentre “ASSEGNA” ci scrive i numeri “DA” “A”
In parole povere questo è quanto
-
Cominciamo con l’opzione PRENOTA
Facendo riferimento al file (corretto) del post #8629– Foglio Cliente1
– Doppioclick in C16 (codice A)
– Flag su PRENOTA
– Textbox (da ora in poi la chaimo TB) TOT PZ inserisco valore 15 (per ora inseriamo max valore 20)Ricapitolando:
1 – Devo colorare tutte le cella del range F16:T16 (15 celle)?
2 – I valori presenti restano?
-
Questo il risultato che vuoi ottenere?
-
Ciao Sid!
Esattamente
Mi potresti apostrofare l’istruzione che cancella anche il contenuto perché non sono ancora sicuro se volercela lasciare o no…
Comunque sia il risultato è quello
Grazie mille!!
-
-
-
-
-
-
-
Grazie mille Sid!!
Tra poco più di 1 ora lo proverò con calma
Ti farò sapere subito! 👍
-
Ciao Sid!
Per prima cosa complimenti! Per me quello che vedo fa parte di un livello ancora troppo lontano per me…
Direi che ci siamo, anzi possiamo anche farla più semplice, nel senso che possiamo anche togliere l’inputbox che chiede di scegliere da quale cella partire facendo anche in modo che parta sempre e comunque dalla prima cella disponibile ovvero quella della colonna F.
Quindi potrebbe anche partire sempre dalla colonna F fino ad arrivare a dove gli viene chiesto di arrivare.
Se è troppo fastidioso andare oltre 20 non è un problema in quanto posso comunque ripetere l’operazione anche per la riga successiva.
Dico questo perchè ho visto che crea anche una nuova riga nel caso in cui le celle da colorare vanno oltre la colonna Y però nella nuova riga che si crea i campi CODICE e MODELLO rimangono vuoti. In realta basterebbe solo riempire il campo CODICE in quanto il campo MODELLO ha un CERCA.VERT.
P.s. ho fatto due aggiunte stupide al codice.
La prima aggiunta è quella di far comparire la maschera anche sulle righe dove non è presente alcun seriale e la seconda sulla macro PRENOTA in quanto ho aggiunto Activesheet.Unprotect all’inizio perchè se il foglio è protetto la macro non funzionava.
Se vuoi puoi continuare su questo
https://www.dropbox.com/s/vije08qq1wwe3zb/BYSAL_V3.1.xlsm?dl=0
Grazie ancora per il supporto!!!!!
-
Dico questo perchè ho visto che crea anche una nuova riga nel caso in cui le celle da colorare vanno oltre la colonna Y però nella nuova riga che si crea i campi CODICE e MODELLO rimangono vuoti.
Risolto anche questo problema; ora inserisce anche codice e modello
Per quanto riguarda la protezione del foglio, devi aggiungere delle condizioni per bypassare la protezione, altrimenti non ti fa aggiungere nuove righe; oltre seleziona celle sbloccate devi flaggare anche inserisci colonne e modifica oggetti; vedi immagine
Rivisto anche le istruzione del metodo Protect, con l’aggiunta delle proprietà citate sopra.
Questo il file aggiornato
https://app.box.com/s/8ev25nrbroa7pgg920ymv70fx4ewhokpFa sapere, ciao
-
Ciao Sid!
Grazie mille!
Ho visto il file e funziona bene
Per quel che mi riguarda puoi anche disabilitare l’input box che chiede di selezionare la cella di partenza e far partire la “colorazione” sempre e comunque dalla colonna F.
Ho due domande:
1 – Perché la colorazione di celle superiori a 20 funziona correttamente solo sulla prima tabella di ogni foglio, mentre sulle altre tabelle no? Se provo a colorare 25 celle partendo sempre dalla colonna F ottengo risultato esatto solo nella prima tabella in alto ma nelle altre no perché vengono colorate più di 25 celle.
2 – Perchè bisogna flaggare “modifica oggetti” se all’inizio della Macro PRENOTA viene disabilitata la protezione del foglio?
Essendo disabilitata la protezione del foglio è comunque possibile creare nuove righe in tabella durante la Macro quindi non capisco…
Grazie mille per il supporto!!
-
1 – Perché la colorazione di celle superiori a 20 funziona correttamente solo sulla prima tabella di ogni foglio, mentre sulle altre tabelle no?………
Sto provando su tutte le tabelle e funziona
2 – Perchè bisogna flaggare “modifica oggetti” se all’inizio della Macro PRENOTA viene disabilitata la protezione del foglio?
Essendo disabilitata la protezione del foglio è comunque possibile creare nuove righe in tabella durante la Macro quindi non capisco…
Perchè la macro viene eseguita con il doppioclick, quindi prima di entrare nel codice dove c’è l’istruzione di sproteggere il foglio; con modifica oggetti mi permette di fare il doppioclick sulla cella (che è un oggetto che in questo caso mi fa eseguire una macro…praticamente è un pulsante)
-
Sto provando su tutte le tabelle e funziona
a me il risultato è questo a parità di operazione
https://www.dropbox.com/s/omfcszf8ofzmort/IMG_2492.JPG?dl=0
Per quanto riguarda la protezione del foglio ho capito
Grazie mille per le info!!
-
-
-
-
Grande Sid!!!
Alla grande!!
Una domanda:
ma perché quando si creano delle righe nuove spuntano sulla colonna E di quelle righe nuove delle formule che io avevo cancellato?
Non è la prima volta che mi capita questo problema… Quelle formule c’erano una volta in quella colonna ma poi io le ho cancellate ma quando crei una nuova riga spuntano fuori di nuovo 😡
https://www.dropbox.com/s/l6viz10cjj6b2sc/IMG_2495.JPG?dl=0
Grazie grazie per il supporto!!!!!!
-
-
-
-
-
Ciao Sid!
Ho portato il contenuto del file usato come esempio nel mio file di lavoro e NONOSTANTE IL FOGLIO SIA PRATICAMENTE IDENTICO ricevo questo errore nel momento in cui provo a colorare le celle:
https://www.dropbox.com/s/w5kjqyg5pqhhxyz/Cattura.PNG?dl=0
C’è qualcosa che mi è sfuggito nel portare i codici da un file all’altro? Non capisco perchè sul file del tuo esempio tutto funziona bene e sul mio no eppure la tabella è identica…
Grazie per il supporto!
-
Questa risposta è stata modificata 1 settimana, 5 giorni fa da Kris_9951. Ragione: Link Foto
-
Questa risposta è stata modificata 1 settimana, 5 giorni fa da
-
-
-
-
Scusami… credevo che la parte evidenziata dal Debug fosse l’errore
Questo è quello che mi compare prima di cliccare su Debug:
https://www.dropbox.com/s/6dywss3x5w6ujrg/Cattura2.PNG?dl=0
Grazie mille per il supporto!!
-
-
-
Ho fatto.
Ho premuto più volte F8 la continua sempre ad evidenziarsi quella riga:
https://www.dropbox.com/s/ebzez2h70lj5ll6/2019-05-10%2022-20-54.mp4?dl=0
Come puoi vedere, in fin dei conti la struttura del mio file è identica a quella del file del tuo esempio…
P.s. Devo dirti un particolare.
Per vedere quale riga veniva evidenziata ho commentato la riga Call PRENOTA copiando poi sotto tutta la Macro PRENOTA perchè inizialmente mi evidenziava solo Call PRENOTA quindi non capivo quale parte di PRENOTA dava problemi…
Grazie mille per il supporto!!!
-
-
Purtroppo no
Ma il video che ho registrato ti può essere utile?
-
-
Grazie a Sid che ha risolto tutti i problemi
Per quel che mi riguarda questa discussione può essere chiusa
-
Devi essere loggato per rispondere a questa discussione.