Ciao. Grazie per il messaggio. Per Prima cosa devi cambiare il metodo del conteggio delle celle: usa la formula della prima casella per tutte le altre cambiando l'ultimo numero della formula. As Esempio: =DATA(C2;B2;A2)-GIORNO.SETTIMANA(A2&"/"&B2&"/"&C2;2)+1 Cella B7 =DATA(C2;B2;A2)-GIORNO.SETTIMANA(A2&"/"&B2&"/"&C2;2)+2 Cella C7 =DATA(C2;B2;A2)-GIORNO.SETTIMANA(A2&"/"&B2&"/"&C2;2)+3 Cella D7 tutte le celle. Fatto questo devi inserire 6 righe. Una per la singola riga contenente le date. A questo punto devi inserire nella cella B8 (se hai rispettato il mio video) la seguente Formula: =SE(D7=Festività!$I$6;"CAPODANNO";""). Avrai così nella Cella B7 il Numero 1 e nella Cella B8 la scritta CAPODANNO. Anno di riferimento 2024. Quindi inserisci una formattazione Condizionale con i seguenti criteri: Formatta solo le celle che contengono... Valore(prima Casella) Uguale a (seconda Caselle) "=CAPODANNO" (terza Casella). Formato Casella... Scegli il colore. Spero che questa versione sia chiara. Fammi sapere. Ciao e Buon Divertimento

Ciao, si certamente. I quiz possono essere usati per esercitazioni. 👍

Grazie per il messaggio. Non dovrebbe dare questi tipi di errore. Probabilmente sarà un problema di univocità. Appena possibile verifico e ti farò sapere come risolvere. Grazie ancora per il feedback 👍.

Ciao, ho controllato il database. Funzina tutto. Ti lascio il link per scaricare il mio file. drive.google.com/file/d/1wF_7PeMORLQ3_7EnpnlYith4BPlgV8mv/view?usp=sharing Controlla e fammi sapere. Ciao

Grazie mille troppo gentile più tardi ci guardo

Grazie ancora ho risolto il problema

Perfetto. Grande 👍

Ciao Raffaele, grandissimo... questo è il Mondo dell'informatica. Bravo. Continua cosi. Se dovessi avere altre domande, scrivimi pure. Ciao. 👍

@@AntoNardo79 Buongiorno Anto, A tale proposito anche sono riuscito a farlo con diverse ore a riflettere, non ho capito bene il concetto perchè non è possibile fare ricerche nel campo numerico. In futuro se é possibile sapere perchè, e se c'è la possibilità di fare ricerche in un campo numerico. Grazie e buona giornata e buon lavoro.....

Ciao Raffaele, il campo numerico scelto direttamente da te è un campo dove possono essere inseriti solo caratteri numerici. Nel secondo caso, ossia quando si sceglie Ricerca Guidata, dopo settata, il camoo risluta cmq numerico. In entrambi i casi la Ricerca può essere fatta. Crea la Tabella Setta i Campi della Tabella Crea La Query Crea la Maschera e inserisci una Casella Combinata con l'elenco che devi cercare. Collega la Query con la Casella Combinata, creata precedentemente. A quasto punto dovresti aver fatto tutto. Se non dovesse funzionare, potresti inserire nella Query, la Tabella contenete i dati che devi cercare. Dipende come imposti i criteri di ricerca. Ti lascio il link: kzbin.info/www/bejne/rZ6ukoqoqt6Vh9U Ciao. Fammi sapere.

Ciao e grazie per il feedback. Prova ad inviare il db che stai eseguendo, se per te non è un problema. Magari provo io a capire perché non funziona . Sul sito trovi la mia mail personale. Grazie 👍

@@AntoNardo79 no nessun problema ad inviare il DB che sto eseguendo con il tutorial

Ciao, ho inviato la copia del DB con cui seguo il tutorial, grazie

Ciao Raffaele, si certamente. Basta eseguire le stesse operazioni modificando la query che gestisce la maschera. Fai una copia del db e prova a farlo. Se ci dovessero essere problemi, scrivimi pure nei commenti. Ciao

Ciao e grazie per il feedback. La tua richuiesta è interessante e corretta. Per poter fare una ricerca di parole con apostrofo è necessario inserire il seguente codice prima del ciclo IF: Dim filtro As String filtro = Replace(Me.cmbFiltro, "'", "''") Spiegazione: Dim filtro As String ---> Si crea una variabile "filtro" come Stringa filtro = Replace(Me.cmbFiltro, "'", "''")---> Utilizzo della funzione Replace per sostituire gli apostrofi singoli con due apostrofi singoli. Spero di aver rispoto correttamente alla tua richiesta. Fammi sapere se funziona tutto. Ciao.

@@AntoNardo79 Grazie mille per l'interessamento. Purtroppo non funziona va lo stesso in errore. ERRORE DI RUN-TIME '3075' Errore di sintassi(operatore mancante)nell'espressione della query 'squadra ='L'ORTO DI ENRICO". Il debug evidenzia l'errore su questa riga: Me.Filter = "squadra ='" & Me.cmbFiltro & "'"

Private Sub cmbFiltro_AfterUpdate() Dim filtro As String filtro = Replace(Me.cmbFiltro, "'", "''") If Me.cmbFiltro = "*TUTTE" Then Me.FilterOn = False Else Me.Filter = "squadra ='" & Me.cmbFiltro & "'" Me.FilterOn = True End If End Sub

Ecco il codice che devi utilizzare: Private Sub cmbFiltro_AfterUpdate() Dim filtro As String filtro = Replace(Me.cmbFiltro, "'", "''") If filtro = "*TUTTO" Then Me.FilterOn = False Else Me.Filter = "squadra='" & filtro & "'" Me.FilterOn = True End If End Sub ho provato il codice e funziona, almeno nel mio caso. Prova a sostituire tutto il codice con questo. Credo di aver capito il tuo errore. E' nella stringa sotto ELSE: "squadra ='" & Me.cmbFiltro & "'". ERRATA. devi sostituirla con: "squadra='" & filtro & "'" . Altrimenti sostituisci semplicemente tutto il codice. Fammi Sapere. Ciao

Ciao, grazie per il feedback. Purtroppo il testo non sarà mai allineato. Se vuoi un modulo con testo allineamento, devi utilizzare un modulo PDF. Io ho creato un modulo con PDF elements. È un software che permette di creare moduli editabili. Ti lascio il link kzbin.info/www/bejne/pHTanISKgptrmLMsi=RKGJu1Bf6CQ82uhL.

Ciao Gennaro, grazie per il feedback. Rispondo alla tua domanda. Per avere una database del genere, una soluzione potrebbe essere: creare una tabella con ID, TIPO_TRENO, DA, A, ORA PARTENZA, ORA ARRIVO. E da qui creare le query di gestione più le maschere per grafica. Ciao

Ciao Raffaele, il filtro *TUTTO non può essere applicato ad una query di selezione. Potresti invece inserie questa piccola stringa "Like "*" & [maschere]![Nome_della_Maschera]![Nome_della_Casella] & "*"" (es: Like "*" & [maschere]![frm_Cap![txt_Cerca] & "*") nei criteri della colonna della query di selezione. Questa stringa sarà trattata nel prossimo video che pubblicherò spero a breve. Ciao. Fammi sapere se riesci a risolvere. Se dovessi avere problemi, scrivimi pure nei commenti. Ciao

Buongiorno Anto, lo immaginavo. Ok grazie aspetterò il tuo prossimo video. Mi era sorto solo una domanda e cero se posso applicarlo ai miei database semplici. Buon lavoro.....

Ciao Alberto, grazie per il messaggio. La risposta alla tua domanda è si, Ma potresti semplicemente cliccare con il Tasto dx del mouse sulla casella PT (Punteggio), della Maschera, e selezionare "ORDINA DAL PIÙ PICCOLO AL PIÙ GRANDE", oppure puoi modificare la query che gestisce la Maschera (qry_Classifica). Una volta aperta la query in modalità "VISUALIZZAZIONE STRUTTURA", vai sulla colonna PT e come ordinamento scegli "DECRESCENTE". Spero di aver risposto alla tua domanda. Se dovessi avere problemi, scrivimi pure nei commenti. Ciao.

Ciao Piero, puoi scaricare il file direttamente dal mio sito. Ti lascio il link della pagina excel dove troverai il file contenente tutto il codice. www.laforzainformatica.com/windows/pacchetto-office/excel Grazie.

Ciao Carlo, certamente. Vai sui filtri e inserisci AZ👍

Ciao Raffaele, grazie per il messaggio. Si, credo si possa fare un bel progetto. Vediamo come strutturarlo. Ci sono molti modi. Troveremo uno che vada bene pert tutto. Se hai delle idee scrivi pure nei commenti. Ciao

@@AntoNardo79 Buon pomeriggio Anto, sicuramente hai più esperienza e buone idee al riguardo. Mi riferisco non solo inserire, ma aggiungere descrizioni e cercare in maniera semplice e veloce quando serve per uso personale o famigliare al bisogno!!! Buona domenica👍👋

Ciao, e grazie per il messaggio. Esatto, sono solo tre Video per la maschera inserimento Excel. Puoi scaricarte il file direttamente dal mio sito per poterlo confrontare con il tuo progetto. Grazie. Se hai altre domande, scrivimi nei commenti.

@@AntoNardo79 Ciao Grazie per avermi risposto si una domada ma adesso che ho creato tutto come faccio a salvare il tutto per poterlo usare? intendo rendere utilizzabili i vari pulsanti

Ciaoooo Daniele, devi fare: salva come "Carrella di lavoro con attenzione macro di Excel"

@@AntoNardo79 Grazie mille fatto ora però mi da errore bug nel comando Whrksheets(1).Range("999999").End(x1Up.Offset(1).Select e non capisco perchè

Worksheet ... Probabilmente è sbagliato

Ciao Osvaldo, inviarmi sulla mail il db. Magari riesco a capire l'errore

@@AntoNardo79 Quale è la tua mail??

Ciao Osvaldo, nel tuo db non sono state create le query di aggiornamento. Forse l'errore è nel voler inserire le formule nella query "Cassifica"(questa è una query di selezione) che deve essere lasciata così come è stata creata. Dovresti, invece, creare le query di aggiornamento, come ad esempio: qry_Classifica_1G_Squadra_A , mostrato dal video e quindi inserire le formule. Spero di averti aiutato e di aver capito l'errore. Scrivimi nei commenti. Ciao e W l'Informatica.

@@AntoNardo79 Ciao Anto, forse non mi sono spiegato bene io. Lo so che la query "Classifica" è di selezione e quindi le formule non vanno inserite. Le query di aggiornamento non ci sono perchè sono loro che mi danno l'errore. Nel mio DB, che ti ho mandato, prova (quando ti è possibile naturalmente) ad inserire tu la query di aggiornamento "qry_Classifica_1G_Squadra_A" e così vedrai che ti restituirà l'errore del quale ti ho parlato. Ciao sempre gentilissimo e a disposizione.

Ciao Osvaldo, grazie per il messaggio. Questo problema lo fa anche nelle altre colonne? Prova ad inserire le formule nelle altre colonne e controllo se danno errore. Cmq la prima casa da fare è controllare che la formula sia scritta bene. Fammi sapere se riesci a risolvere altrimenti inviami il db per email. Magari riesco a capire di più sull'errore. Fammi sapere 👍

@@AntoNardo79 Si su tutte le colonne V N P. La formula, l'ho riletta 1000 volte, è scritta correttamente. il tuo indirizzo email quale è??

Grazie 👍 per il feedback

Ciao Nick, ottima osservazione. Si può ma servirebbe una programmazione diversa e più difficile. Qui cerco di insegnare una programmazione medio- Alta e più user-friendly. Magari in un progetto futuro 👍. Grazie per il messaggio.

Grazie a te per il feedback.

Ciao Osvaldo. Si. Sono stato e sono molto impegnato, ma in serata pubblicherò un Video. Promesso.

Ciao Carmelo. Prova a inviarmi il file sulla mia mail [email protected]. Magari riesco a trovare il bug. Ciao 👍

Ciao Antonio, ho controllato il codice e fatto le verifiche. Funziona bene. È strano che non funzioni sul tuo. Se hai scritto tutto come nel tutorial. Controlla nuovamente il codice o copia il mio. Se non funziona potresti inviarmi il file excel al mio indirizzo email [email protected]. In questo modo spero di poterti aiutare. Ciao e grazie ancora per il messaggio.

Ciao Carmelo. Grazie per il messaggio. Mi dispiace. Forse non riesci a risolvere il problema perché devi inserire nel capo solo Oggetto OLE e non ore. La versione che ho io è Microsoft Office 2021. Ma funziona bene anche con 2019 e 2016. Forse è un problema di Office 365. Prova con una versione diversa. Fammi sapere.

Ciao Antonio, e grazie per il messaggio. Ho controllato il codice del tasto modifica e sembrerebbe tutto ok. Magari ci sfugge qualcosa. Nel messaggio successivo ti scrivo il codice. Fammi sapere se riesci. Ciao

Private Sub btnModifica_Click() Dim Risp As String Risp = MsgBox("Sei Sicuro Di Voler Procedere?", vbYesNo + vbQuestion, "AVVISO") If Risp = vbNo Then Call btnPulisci_Click Exit Sub End If ActiveCell.Value = txtNome ActiveCell.Offset(0, 1).Value = txtCognome If optMaschio = True Then ActiveCell.Offset(0, 2).Value = "M" Else ActiveCell.Offset(0, 2).Value = "F" End If ActiveCell.Offset(0, 3) = Me.cboGiorno.Value & "/" & Me.cboMese.Value & "/" & Me.cboAnno.Value ActiveCell.Offset(0, 4) = Me.txtIndirizzo.Value ActiveCell.Offset(0, 5) = Me.txtCitta.Value ActiveCell.Offset(0, 6) = Me.txtProvincia.Value ActiveCell.Offset(0, 7) = Me.txtCap.Value ActiveCell.Offset(0, 8) = Me.txtNumeroCell.Value ActiveCell.Offset(0, 9) = Me.txtEmail.Value ActiveCell.Offset(0, 10) = Me.txtURL.Value Call btnPulisci_Click End Sub

Cioa Raffaele. Grazie per il feedback. Spero di pubblicare in settimana i video restanti.

Ciao e grazie per il messaggio. Si è vero. Non si "svuota" la casella relativa al TIPO. Questo succede perchè, la QUERY, che gestisce la casella di RIEPILOGO, ha in memoria l'ultimo dato utile, che legge attraverso la casella di RIEPILOGO della CATEGORIA. Quast'ultima, anche se aggiornata, non riesce a dare come valore (nullo) "" doppie virgilette, perchè quando è vuota non viene selezionata. Per poter avere la casella del TIPO vuota, bisognerebbe utilizzare un metodo alternativo al collegamento delle QUERY. Cerco di spiegarmi. 1. Nella maschera Home devi inserire una casella di testo. Rinomina la casella in txt_Categiria, vai nelle Finestra Delle Prorpietà, Scheda Formato, Visible=NO. 2. Seleziona cmbAnno, Finestra Delle Prorpietà, Scheda Evento, Dopo Aggiornamento e copia questo codice all'inizio: Me.txt_Categoria.Value = "" 3. Seleziona la casella di Riepilogo "ElencoCategoria", vai nella Finestra Delle Prorpietà, Scheda Evento, Su Clic e inserisci all'inizio il seguente codice: Me.txt_Categoria.Value = [ElencoCategoria]. 4. Modifica i criteri della qryTipo. Quindi Apri la qryTipo in modalità Struttura attraverso il tasto dx del mouse. Copia questo codice : [Maschere]![frm_Home]![txt_Categoria] nei criteri del campo CATEGORIA. Se tutto è stato eseguito correttamente, dovresti aver risolto la tua richiesta. Se dovessero esserci dei problemi, scrivimi pure. Spero di essere stato esaustivo. Grazie ancora per il messaggio. Ciao

Ciao ti disturbo nuovamente in quanto ho apportato le modifiche suggerita dal punto 1 al punto 4, tuttavia la casella di riepilogo Elenco Tipo non si aggiorna. Ho ricontrollato in modo capillare più volte quanto da te indicato nei vari punti, apportando le modifiche, e devo dire che sei sto molto chiaro nell'indicare le modifiche da apportare, ma ahimè non funziona. Ti chiedo pertanto se le modifiche suggerite sono state dettate di getto, vista la tua conoscenza ed esperienza in materia o le hai provate ?. Nel qual caso non vedo perché non dovrebbe funzionare. Grazie per la pazienza e disponibilità ma è con gente come te che si impara. Ciao Buona serata.

Ciao Carmelo, il file da usare é bmp. Il tipo dati deve essere Oggetto OLE. Grazie per il messaggio. Fammi sapere se funziona. Ciao

Grazie mille Nick👍.

Ciao Carlo, si è corretto. Normalmente è così che deve essere strutturato. Bravo 👍. Ho scelto di fare campi di testo breve, per semplicità di tempo. Si procede con un copia e incolla dei dati presi da excel. Quindi anche se sono tabella non collegate direttamente tra loro, possiamo avere lo stesso risultato. Cmq buona osservazione. Well done 👍.

Ciao Osvaldo, inizia subito a fare le tabelle le query e poi le mascherine per le 38 giornate. Conviene farle subito. Grazie per il messaggio. Ciao.

@@AntoNardo79 Tabelle già fatte, query anche a tal proposito ti volevo chiedere una cosa: nelle query c'è una colonna che riporta il numero della giornata ecco io ho notato che per quanto riguarda la query della 1 giornata giustamente inserisci 1 come intestazione di colanna ma lasci sempre 1 anche per la 2 giornata è corretto?? Per quanto riguarda le maschere attendo che tu ce le spieghi nel prossimo tutorial. Ciao.

Ciao Osvaldo, grazie per il messaggio. Devi controllare, ma credo che sia un errore per il copia e incolla. Hai ragione. Devo correggere. Probabilmente nel prossimo video. Non comporta nulla a livello di codice ma è giusto correre. Grazie Osvaldo. Buona giornata

Grazie per il messaggio Alberto. Le cause potrebbero essere 2: 1. Hai inserito nel "tipo dati" il "calcolato" dopo aver impostato un altro "tipo dati" quindi non lo riconosce come tale . Per risolvere cancella tutto il campo con il tasto dx quindi elimina. Inserisci D e dopo inserisci il calcolato. 2. Controlla se GF e GS sono contenti tra le parentesi quadre. Ossia così [GF]-[GS]. Spero di averti risposto. Scrivimi nei commenti se ci dovessero essere problemi. Ciao 👍

@@AntoNardo79 , tutto ok! Grazie! Un'altra domanda dove ha trovato l'elenco dei giocatori?

Prego. Per fare l'elenco sono andato in diversi siti e dopo e con l'AI mi sono ricavato il CSV che ho poi copiato su un file excel. Ma se non vuoi fare tutta questa trafila, puoi scaricare il file direttamente dal mio sito che puoi raggiungere cliccando il link in descrizione dei video che ho pubblicato. Buon divertimento 👍

Ciao Mario. Grazie per il feedback. Si è un aggiornamento interessante. Magari posso provare ad inserire nell'ultimo video questo aggiornamento. 👍

Ciao Nik e grazie per il messaggio... Si è un upgrade che si potrebbe fare. Magari nell' ultima parte del tutorial si farà l'aggiornamento. Grazie per il suggerimento 👍

@@AntoNardo79 Grazie a te

Ciao Osvaldo. La lista dei calciatori può essere aggiornata in ogni momento. È normale che per i goal si deve lasciare lo stesso calciatore nelle due squadre. Magari il cognome con l'asterisco nella vecchia squadra. Potrebbe essere una soluzione. Questo db è semplice nella struttura. Quindi non ha tutto automatico. Grazie per la domanda 👍.

Grazie 👍

Ciao Osvaldo, grazie per il messaggio. Sono stato un po' impegnato. Spero di pubblicare i video nei prossimi giorni. 👍

Perfetto... Grazie per il messaggio... 👍

Ciao e grazie per il messaggio... Probabilmente il nome della maschera è errato... Devi scrivere il nome esattamente come denominato. Ad esempio: frm_Inserimento_Dati. Prova così. Fammi sapere. Ciao 👍