Condividi:        

Completamento Pronostici 90 numeri_rete

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Completamento Pronostici 90 numeri_rete

Postdi ikwae » 07/04/23 00:40

Ciao a tutti… Mi sono accorto, che i filtri con i numeri, non coprono tutti i pronostici
mancano pochi numeri (qualche riga) al completamento.
Riuscirei a completare la riga ma non riesco proprio andare a capo (riga successiva).

Pertanto, se possibile, chiedo aiuto a tutti coloro che mi possono aiutare ad avere una
macro che dovrebbe compiere i seguenti passi:
1a) Lavorare esclusivamente nel range R4:W18 (per compatibilità delle macro e del prg)
2b) trovare la prima cella libera nel range partendo da sopra
3c) verificare i numeri scritti se c’è il numero 90 se c’è si passa al numero 89 se non c’è si
scrive in cella vuota il numero 89.
4d) avanzare di una cella e controllare se c’è il numero 88 se non c’è scriverlo in quella cella
5e) avanzare di una cella e controllare se c’è il numero 87 se c’è controllare il numero 86
se c’è anche lui controllare se c’è il numero 85 ecc. ecc.

In pratica si devono riempire tutte le celle vuote con i numeri non presenti nei pronostici
sopra e, scrivere i numeri mancanti, dal 90 verso l’1 così si hanno tutti i 90 numeri in 15 pronostici.

In allegato un unico file “Esempi” con quattro schemi basta copiare quello che più piace e
Incollarlo nel riquadro e mandare in esecuzione la macro di aiuto e il “rettangolo” si dovrebbe
riempire con dei numeri mancanti ossia con i numeri di colore blu sottostanti.
Aggiungo che la macro deve solo riempire pochissime celle vuote quindi anche se non
è veloce non è importante.

Per essere onesti io ho già avuto un aiuto simile nella struttura ma con indicazioni diverse.
E' stato molto semplice spero che anche questo sia semplice e non faccia venire il mal di testa :oops:
Ringraziando anticipatamente tutti coloro che mi possono aiutare 73 ikwae.
https://www.swisstransfer.com/d/cd86024 ... 59c46e4617
Excel 2007
Avatar utente
ikwae
Utente Senior
 
Post: 309
Iscritto il: 27/12/17 23:14

Sponsor
 

Re: Completamento Pronostici 90 numeri_rete

Postdi Anthony47 » 07/04/23 15:15

Mi sembra che questa funzioni:
Codice: Seleziona tutto
Sub Ripopola()
Dim Arr90(1 To 90) As Long
Dim wArr, LastC As Range, myMatch
Dim I As Long, J As Long, II As Long, IJ As Long
'
Set LastC = Range("R4:W18").Find(What:="*", After:=Range("R4"), _
    SearchOrder:=xlByRows, _
    SearchDirection:=xlPrevious)
If LastC Is Nothing Then Set LastC = Range("Q4")
wArr = Range("R4:W18").Value
For I = 1 To UBound(wArr)
    For J = 1 To UBound(wArr, 2)
    If wArr(I, J) <> "" Then
        Arr90(wArr(I, J)) = wArr(I, J)
    End If
    Next J
Next I
'Popola range di uscita:
IJ = LastC.Column
II = LastC.Row
For I = 90 To 1 Step -1
    myMatch = Application.Match(I, Arr90, False)
    If IsError(myMatch) Then
        IJ = IJ + 1
        If IJ > 23 Then
            II = II + 1
            IJ = 18
        End If
        Cells(II, IJ) = I
    End If
Next I
End Sub

Prova...
Avatar utente
Anthony47
Moderatore
 
Post: 19228
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Completamento Pronostici 90 numeri_rete

Postdi ikwae » 07/04/23 17:00

Gentilissimo Anthony ti ho disturbato con un’altra richiesta di aiuto in pochi
giorni purtroppo ero bloccato perché non riuscivo a completare il filtro.

Detto questo … ho generato quattro ulteriori blocchi e, con otto blocchi, il risultato
finale è unanime. Un’altra prova con il “rettangolo” vuoto, senza nessun numero,
ho mandato in esecuzione la macro che ha completato tutti i numeri dal 90 all’1.
Quindi come collaudo finale :D .

Ringraziandoti mille e mille volte per la tua disponibilità oltre che la Santa Pazienza.
Aggiungo, di cuore, una Buona Pasqua e te e famiglia esteso al Team di pc-facile.

Dato che non sono avaro, anzi generoso e sociale, posso permettermi, di augurare
una Buona Pasqua anche a tutti i frequentatori e ospiti del Forum.
Cordialmente ikwae
Excel 2007
Avatar utente
ikwae
Utente Senior
 
Post: 309
Iscritto il: 27/12/17 23:14


Torna a Applicazioni Office Windows


Topic correlati a "Completamento Pronostici 90 numeri_rete":


Chi c’è in linea

Visitano il forum: Nessuno e 20 ospiti