Problema con apertura MsgBox con duplice condizione

[Raffaele53]

Leggenda,dovrebbe essere giusto, Ti rimane solo da provare...

1) Si può scrivere/cancellare "SOLO UNA CELLA" per volta
2) Riordinato il Worksheet_Change, il codice che si spostava tra le celle l'ho tolto. Le colonne B,C,F,H,L,M,P sono nel VBA e ognuna può spostarsi, trova la colonna EX ElseIf .... Range("H2:H201") e la relativa riga sotto "Target.Offset(0, 1).Activate" e modificala col numero giusto
3) Non capisco come poteva avviarsi un'eventuale scansione del codice a barre, adesso per avviarlo basta scrivere in colonna B tre chiocciole @@@
4) Aggiunto macro che azzera tutto
5) Inserito formula in Zona di carico e relativi numero Max Camion
7) Rimarebbe la faccenda che Targa,Vettore,Cliente e Merce che si può migliorare (presumo che questi dati siano più o meno sempre i stessi? Mà non posso farlo dato che usi una versione Excel superiore

[systemcrack]

Cavolo Raffaele! Hai fatto un lavorone..!!! Grazie Davvero!!! Nei prossimi giorni darò un'occhiata al tuo file e studierò i tuoi codici.

[systemcrack]

Buongiorno a tutti,
sono finalmente riuscito a dare un'occhiata al file di Raffaele e ci sono solo 2 cose per il momento che non comprendo o che non funzionano bene:

Inserito formula in Zona di carico e relativi numero Max Camion

Dove hai inserito la formula nella cella G25 del foglio "Zona di Carico"?
Inoltre vorrei che anche se viene visualizzato il MsgBox "TROPPI CAMION" desse comunque la possibilità di aggiungere quella zona di carico. Ora è possibile solo cliccare solo su ok, ma la zona di carico viene cancellata.

La seconda cosa è che prima facendo doppio click sulla cella in cui era indicata la zona di carico (colonna P) veniva lanciata una stampa fronte e retro in cui erano raffigurate relativa zona di carico e la safety card. Al momento se faccio il doppio click ricevo un errore

3) Non capisco come poteva avviarsi un'eventuale scansione del codice a barre, adesso per avviarlo basta scrivere in colonna B tre chiocciole @@@

Avevo optato per un utilizzo ibrido dello schema (scanner, tastiera).. nel codice a barre da scannerizzare era presente un separatore identificato come | quindi se avessi letto il codice con la pistola i dati sarebbero stati spalmati sulla riga grazie ai separatori (contenuti nel codice a barre) e disposti nelle celle giuste grazie alle due macro di cui ti accennavo qui.

7) Rimarebbe la faccenda che Targa,Vettore,Cliente e Merce che si può migliorare (presumo che questi dati siano più o meno sempre i stessi? Mà non posso farlo dato che usi una versione Excel superiore

A dire la verità TARGHE, VETTORI, CLIENTI, cambiano spesso e non sono sempre li stessi, anche perchè da qui partono merci e camion anche per l'estero. Ad ogni modo hai già fatto tantissimo Raffaele e sei stato più che gentile.. inoltre già così il file è già super performante rispetto a prima.

Per rendere questo schema ultra pratico avrei un'ultima idea aggiunta, ma mi vergogno a chiederti ulteriore aggiunte.. prima proverò a sbattermi io per qualche mese e poi nel caso tornerò a chiedere aiuto.

[Raffaele53]

>>>Dove hai inserito la formula nella cella G25 del foglio "Zona di Carico"?
La formula di Anthony47 è in G4:G24, ho solo aggiunto un =SE(D25="";"";.......
Significa che quando inserirai una nuova ZONA in D25, la cella G25 funziona già (naturale che se Vuoi puoi scriverla sino G100)

A riguardo che cancella la cella dopo il "TROPPI CAMION" elimina queste quattro righe

Codice: Seleziona tutto

                MsgBox ("TROPPI CAMION"): Target.Offset(0, 0) = ""
                Application.EnableEvents = False
                Target.Offset(0, 0) = ""
                Application.EnableEvents = True

ed inserisci queste al suo posto

Codice: Seleziona tutto

            Dim Risposta As Integer
            Risposta = MsgBox(prompt:="Ci sono TROPPI CAMION, devo inserirlo per forza???", Buttons:=vbYesNo)
                If Risposta = vbYes Then
                    MsgBox "Aggiunto"
                Else
                    Application.EnableEvents = False
                    Target.Offset(0, 0) = ""
                    Application.EnableEvents = True
                End If

Di norma quando si scrive un codice è consigliabile scrivere in alto >>>Option Explicit che Ti ricorda che devi dichiarare tutte le variabili. Visto la Sub Worksheet_BeforeDoubleClick(...) prova ad aggiungere subito sotto>>> Dim mySh (presumo sia "Dim mySh As Object" mà non ho il file MAPPA.MAG.ESTERNI.xlsx per provare). Se non funziona ancora togli "Option Explicit"

[systemcrack]

Grazie Raffaele per tutto l'aiuto che mi hai dato! Purtroppo ho visto solo ora la tua risposta che proverò a mettere in pratica lunedì. Non mi rimane che augurarti un buon weekend.