macro cerca numeri senza celle vuote, a macro cerca numeri pari.
Funziona bene, i dati sono giusti e fa il suo lavoro molto bene ma c’è qualche cosa che
non va e non riesco a capire perché una macro con matrice impiega un po' “troppo” a
finire probabilmente troppe colonne da elaborare e, i dati di output, non iniziano dove
apparentemente destinati dal codice (l’output dovrebbe iniziare dalla G1 senza colonne vuote).
Comunque allego la macro come indicazione ma non cerco né di far perdete tempo
eventualmente da mettere a posto né di sapere cosa non va. Vorrei confrontare e capirlo
da solo eventuali aggiustamenti, errori o struttura.
Pertanto, se possibile, chiedo a tutti un aiuto di una macro, ad uso esclusivamente didattico
con graditi commenti, che dovrebbe compiere le seguenti indicazioni.
1a) la macro deve essere autonoma ossia senza intervento umano
2b) l’intervallo inizia sempre dalla cella G1 con righe da poche
migliaia oppure fino in fondo (1.048.575)
3c) trovare l’ultima colonna piena (da G1 verso dx)
4d) mettere in memoria tutti i numeri pari (oppure eliminare i dispari).
5e) Nel range di azione non ci devono essere numeri dispari.
L‘ouput può essere:
5e.1) i numeri pari raggrupparli e scriverli a partire dalla cella G1.
5e.2) oppure lasciali random dove stanno con i “buchi” lasciati dei numeri dispari
5e.3) oppure copiare solo i pari e incollati a partire dalla prima cella della prima
colonna libera a dx.
5e.4) oppure …
Scegliere un solo metodo il più facile e veloce per non perdere tempo.
Per trovare la cella (come da oggetto inerente alla macro) attendo una eventuale risposta
della macro di aiuto e poi probabilmente se, necessario, spiegherò l’aiuto per trovare la cella
libera altrimenti c’è pericolo di enorme confusione.
In allegato un file con cinque fogli_
__foglio Scuola_org con i dati originali se necessitano fare copia incolla sul foglio Scuola
__foglio Scuola con l’intervallo su cui la macro di aiuto dovrebbe lavorare
__Foglio Mia_Macro il risultato della mia macro (trovata in rete e modificata)
__Foglio Groviera come sono i dati dei numeri pari senza quelli dispari
__Foglio Laterale se si decide di fare qualche cosa del genere.
Rammento, a me servono i numeri pari con una macro didattica possibilmente ricca di commenti.
Ringraziando anticipatamente tutti coloro che mi possono aiutare 73 ikwae
https://we.tl/t-7Ih5wGtlH9
- Codice: Seleziona tutto
Sub Matrice_Per_Numeri_PARI_rete()
Dim Par_Dis() As Variant, uRig As Long, q As Long, a As Long, i As Long, j As Long, c As Long
Dim sh As Worksheets
Set sh = Worksheets("Scuola")
With sh
uRig = .Range("G" & Rows.Count).End(xlUp).Row
End With
a = 1
ReDim Par_Dis(1 To uRig)
For c = 7 To 100
For i = 1 To uRig
'Pari
If Cells(i, c) Mod 2 = 0 Then Par_Dis(a) = Cells(i, c): a = a + 1
Next i
For j = 1 To uRig
Cells(j, 0 + c) = Par_Dis(j)
Next j
For q = 1 To uRig
Par_Dis(q) = ""
Next q
a = 1
Next c
End Sub
sembra di leggere un libro già letto ma che non sono capace di scriverlo.
un po' 