EXCEL E DINTORNI

[Baciccia4251]

Inserisco un nuovo link: https://mega.nz/file/HVhGwZrI#phKyzOsf4dYBVT85vjj0Dca6WegSFJHU5o8hphv6MN8

Mi sono accorto che il foglio Bari non era corretto. Ora funziona bene, almeno sembra. Prima in alcune quindicine le ultime estrazioni non c'erano. La Macro nel Foglio Bari si attiva cliccando sul tasto "Inserisci", e sembra funzionare, vedremo.
Invece i tentativi, sul Foglio Percentuali, per cancellare i numeri segnalati e usciti sono miseramente falliti. D'altra parte come può una IA capire la mia spiegazione se non la capisco neanch'io?
Corda princeps (il traduttore italiano-latino mi assicura significare In alto i cuori. Speriamo non siano parolacce)
Baciccia

 

[fillott0]

Scusa Baciccia che versione excel usi? leggo che ha estensione .XLS pero ci sono macro quindi dovrebbe essere xlm o xlb e poi che sistema usi per mandare i file al forum ? Evidentemente sono rimasto indietro con le versioni

 

[Baciccia4251]

In realtà uso Office2021. Però alcuni non riescono ad aprire il file in questo formato. Quindi lo salvo in formato Office xls, sperando di non perdere qualcosa.
Una volta che il file xls è pronto lo scarico su Mega, copio il link per condividerlo e lo pubblico.
Il mio computer è un I3 con 16 GB di RAM, il S.O. è Windows 11.
Non so se questo risponde alle tue domande, faccio fatica, molta, a comprendere quello che leggo.
A volte mi faccio aiutare, ma in questo periodo sono solo.
Quindi scusa se mi chiedi come mi chiamo e ti rispondo: Roma!
Ti giuro che non mi chiamo così...
Con stima e simpatia
Baciccia

 

[fillott0]

In realtà uso Office2021. Però alcuni non riescono ad aprire il file in questo formato. Quindi lo salvo in formato Office xls, sperando di non perdere qualcosa.
Una volta che il file xls è pronto lo scarico su Mega, copio il link per condividerlo e lo pubblico.
Il mio computer è un I3 con 16 GB di RAM, il S.O. è Windows 11.
Non so se questo risponde alle tue domande, faccio fatica, molta, a comprendere quello che leggo.
A volte mi faccio aiutare, ma in questo periodo sono solo.
Quindi scusa se mi chiedi come mi chiamo e ti rispondo: Roma!
Ti giuro che non mi chiamo così...
Con stima e simpatia
Baciccia

siccome per mandare file , password e altre cose del genere sono sempre in difficoltà mi chiedevo come si facesse a fare una cosa simile . Sapevo che alcuni mandavano dei file excel con delle macro in formato txt ma per aprirle mi scordo come si fa.Quindi questo sistema non lo conoscevo e quanto hai mandato sono riuscito a vederlo agevolmente ,e a salvarlo con le macro in xlm. Ultima cosa Mega cosa è? è gratis?

 

[Baciccia4251]

siccome per mandare file , password e altre cose del genere sono sempre in difficoltà mi chiedevo come si facesse a fare una cosa simile . Sapevo che alcuni mandavano dei file excel con delle macro in formato txt ma per aprirle mi scordo come si fa.Quindi questo sistema non lo conoscevo e quanto hai mandato sono riuscito a vederlo agevolmente ,e a salvarlo con le macro in xlm. Ultima cosa Mega cosa è? è gratis?

Mega, con la sola registrazione, da un certo numero di GB gratis, mi sembra 10 ma non ne sono sicuro.
Comunque ti metto il link per il sito, sulla destra troverai "ISCRIVITI", magari prima fai qualche ricerca. E' un buon sito.
Ideale per condividere file con tutti quelli a cui mandi il link.
Se ti iscrivi e hai qualche difficoltà (se in quel momento io sono io, cioè se il cervello non è uscito per spese) sarò felice di aiutarti, anche se non mi sembra esserci ulla di particolarmente difficile.
Ad esempio io per caricare i fiel apro il sito di mega e, dopo aver inserito le mie credenziali (salvati in un posto sicuro la Password di recupero, perché se perdi la tua password loro non possono aiutarti, perché non registrano le Password), col Mouse trascino il file all'interno di Mega, appare una finestrella e clicco su Copia o qualcosa di simile.
Non dimenticare che, in altro Post, suggerisco, per chi non ha Excel, di installare WPS con i 3 file che contengono il VB.
Ora non lo uso, però, mi permetteva di aprire qualsiasi file di Office: Doc, XLS, XLSM e via elencando. Non posso assicurare che funzioni ancora, ma non ho nessuna ragione per credere di no.
Un abbraccio virtuale
Baciccia

 

[Baciccia4251]

Come al solito il link mi è rimasto nel Mouse: https://mega.io/it/

 

[Baciccia4251]

Pezzetti e bocconi...
Sono andato a curiosare

Confronta piani e prezzi - MEGA

Ottieni 20 GB di spazio di archiviazione cloud gratuito. I nostri piani individuali arrivano fino a 16 TB, mente il nostro piano flessibile Business arriva fino a 10 PB.

mega.io

Offre 20 gigante gratis per il piano gratuito (verso fine pagina)
Not bad
Baciccia

 

[Baciccia4251]

La Storia Infinita...
Mi sono accorto che nel file postato, bella macro che nel Foglio Percentuali copia i valori c'è un errore. La prima quindicina è corretta, la 16 30 e le altre hanno'indice non corretto.
Oggi proverò a correggere e se riesco posterò il file corretto.
Baciccia

 

[Baciccia4251]

Link per il formato XLS (Office '97-2003): https://mega.nz/file/WNJV0aKJ#CJFI3qZ0wGLowgRQuzuNAynLl5MlL6y_0HjESlUpDOs
Link per il formato XLSM (Office più recente): https://mega.nz/file/aBJlSRRT#BvMaqj4CU1Fna5gsKg0LgkKy118nQVmsGm6zdYNZs7c

Ora è corretto. I tentativi di modificare la macro "CopiaCelle", per far si che cancelli i numeri segnalati ed usciti, per ora non ha dato esito.
Le macro fornite dall'IA danno errore, anche se le macro sono attivate appare l'errore: Impossibile trovare la macro. Forse le macro sono disabilitate. In realtà le altre macro funzionano. Misteri per chi come me non capisce un'H e neanche una B.

Questa è la macro incriminata:
------------------------------------------------------------------------------------------------
Sub CopiaEDistribuisciDati()
Dim wsBari As Worksheet
Dim wsPercentuali As Worksheet
Dim prevNumbers As Collection
Dim rng As Range
Dim cell As Range
Dim i As Integer
Dim prevNumber As Variant
Dim colToClear As String

' Imposta i fogli
Set wsBari = ThisWorkbook.Sheets("Bari")
Set wsPercentuali = ThisWorkbook.Sheets("Percentuali")
Set prevNumbers = New Collection

' Definire gli intervalli da leggere
Set rng = Union(wsBari.Range("C2:G15"), wsBari.Range("B13:G21"), wsBari.Range("B24:G32"), wsBari.Range("B35:G43"), wsBari.Range("B46:G54"), wsBari.Range("C57:G65"))

' Loop attraverso ogni cella nell'intervallo
For Each cell In rng
If IsNumeric(cell.Value) Then
i = cell.Value
If i >= 1 And i <= 90 Then
' Copia i dati in base alla fascia di numeri
If i >= 1 And i <= 15 Then
wsPercentuali.Range("D" & (i + 2) & ":R" & (i + 2)).Copy Destination:=wsPercentuali.Range("AL" & (i + 2) & ":AZ" & (i + 2))
ElseIf i >= 16 And i <= 30 Then
wsPercentuali.Range("D" & (i + 3) & ":R" & (i + 3)).Copy Destination:=wsPercentuali.Range("AL" & (i + 3) & ":AZ" & (i + 3))
ElseIf i >= 31 And i <= 45 Then
wsPercentuali.Range("D" & (i + 4) & ":R" & (i + 4)).Copy Destination:=wsPercentuali.Range("AL" & (i + 4) & ":AZ" & (i + 4))
ElseIf i >= 46 And i <= 60 Then
wsPercentuali.Range("D" & (i + 5) & ":R" & (i + 5)).Copy Destination:=wsPercentuali.Range("AL" & (i + 5) & ":AZ" & (i + 5))
ElseIf i >= 61 And i <= 75 Then
wsPercentuali.Range("D" & (i + 6) & ":R" & (i + 6)).Copy Destination:=wsPercentuali.Range("AL" & (i + 6) & ":AZ" & (i + 6))
ElseIf i >= 76 And i <= 90 Then
wsPercentuali.Range("D" & (i + 7) & ":R" & (i + 7)).Copy Destination:=wsPercentuali.Range("AL" & (i + 7) & ":AZ" & (i + 7))
End If

' Controlla i numeri precedenti e cancella le celle corrispondenti
colToClear = "" ' Resetta la variabile colToClear
For Each prevNumber In prevNumbers
If prevNumber = i - 1 Then
colToClear = "AU"
ElseIf prevNumber = i - 2 Then
colToClear = "AM"
End If

If colToClear <> "" Then
wsPercentuali.Range(colToClear & (i + 2)).ClearContents
End If
Next prevNumber

' Aggiungi il numero corrente alla lista dei numeri precedenti
prevNumbers.Add i
End If
End If
Next cell
End Sub
--------------------------------------------------------------------------------------------------------------------------------------
Che, tra l'altro, sono convinto sia non funzionante correttamente.
Buon Non Onomastico a tutti
Baciccia

 

[Baciccia4251]

xls: https://mega.nz/file/iFpkzTKR#qnFLV6o_08LnEKTjfVx2SCIoF9dzvUxYhrDO6pZeXXg
xlsm: https://mega.nz/file/bcQQVIJQ#cUhc2ezJDZ82xCHeGRiAz0Zln_awed8LSsLnEgylOU4

Work in progressssssss
Dall'esperienza fatta in questi giorni Chatgpt è superiore a Copilot, anche se, tutt'e due, a volte sembrano SN (scemi naturali).

Nel foglio "Archivio" vi sono tre pulsanti "Aggiorna, Ritardi, Terzine". Aggiorna si usa dopo aver inserito una nuova estrazione o aver fatto delle modifiche per correggere qualche numero. Ritardi calcola i ritardi di ogni numero e li copia nel foglio Ritardi (che fantasia!), Terzine calcola il ritardo di alcune terzine consecutive copiandole sempre nel foglio Ritardi.
Nel foglio Percentuali cliccando sul pulsante "VaiComeUnTreno" vengono copiati, per ogni numero estratto delle ultime 9 estrazioni i valori probabilistici nelle ultime due colonne a destra, una per i valori orizzontali, l'altra per quelli verticali.
Non sono riuscito a risolvere il problema di eliminare i numeri segnalati e successivamente sortiti.
Sono quindi ricorso (ma non è corretto) ad un escamotage: nella colonna A metto in verticale gli ultimi 3,4 estratti e clicco su cancella. Questo elimina semplicemente i valori in verticale di quei numeri (sic). Lo strano è che l'IA ha compreso perfettamente quello che desidero, però non riesce a darmi un soluzione che funzioni, o forse sono io...
Nel foglio Prova, una macro va alla ricerca nell'archivio di quelle estrazioni che hanno due numeri (solo 2 numeri) appartenenti a una stessa quindicina e che siano, una volta sommati tra loro divisibili per due. Se le condizioni sono soddisfatte i risultati appaiono nel foglio con: Data, i due numeri estratti, la loro somma divisa per due e nella cella a fianco viene calcolato il suo complementare (quel numero che sommato al primo da 90). Poi nella cella successiva la macro mostra quante estrazioni sono passate, prima che almeno uno dei due numeri il principale e il complementare, sia stato estratto.
E' solo una prova
Mi sento un perfetto Idiota Sapiente visto che sto facendo qualcosa senza capirci una beata mazza! Ammazza!
Se gli alieni esistono vi sorridano (altrimenti sono dolori...)
Baciccia