Dividere celle con numeri

Hai un problema con Excel?

Nuova discussione

Dividere celle con numeri
di Attilio data: 09/08/2017 23:18:47
salve, ho una lista delle estrazioni del gioco del lotto, non italiano, le estrazioni vengono effettuate ogni giorno e ne sono 2, una viene estratta verso le 14:00 e l'altra ogni sera verso le 20:00, ho le estrazioni complete in un foglio1, elencate con la data uguale per le 2 estrazioni dello stesso giorno e si differenziano, quella dell'ora pranzo con LUNCHTIME e quella serale con TEATIME, quello che vorrei fare che nel foglio2, vengano elencati per data singola l'intera fila delle estrazioni del giorno, farlo a mano è un impresa da Dio, c'è qualche maniera per poter effettuare tale selezione?............mando un file di esempio, grazie, nel foglio2 le date sono messe alla rinfusa, per rendere l'idea, ho dovuro dividere i fogli per il solito MAX 1 Mb
di alfrimpa data: 10/08/2017 09:41:45
Ciao Attilio

Hai allegato due file; quale dei due occorre usare?

Su nessuno dei due ci sono le voci LUNCHTIME e TEATIME.

Puoi allegare un file dove mostri il risultato che vuoi ottenere (per pochi record) inserito a mano?

Per caso (sul secondo file) il LUNCHTIME è in rosso ed il TEATIME in blu?

Alfredo
di Attilio data: 10/08/2017 11:54:39
Ciao, allora sul file denominato giunta, se noti, nelle date le estrazioni nello stesso giorno sono 2 come spiegato, la prima è il Lunchtime e la seconda sempre dello stesso giorno è Teatime, a volte capita che o perché è Natale o per uno sciopero, avviene che l'estrazione non viene effettuata e, quindi capita che in un giorno ci sia solo l'estrazione Lunchtime o estrazione Teatime, in questo caso la serie dei 7 numeri che manca, o lunchtime o teatime vien coperta con lo zero, quindi nel file denominato arcorizzon, vengano messe le estrazioni per data, una sola data per giorno con lunchtime e teatime consecutivi
di alfrimpa data: 10/08/2017 12:01:15
Io non ho capito qual è il risultato che vuoi ottenere.

Puoi metterlo su un file?

Alfredo
di Attilio data: 10/08/2017 12:59:06
dal foglio1 che sarebbe dal file giunta.xlsx venga effettutato un foglio2 come da file che ti ho inviato con nome ArcOrizzon.xlsx, cioè nel foglio2 invece di comparire 2 estrazioni con la stessa data distinguibili da Lunchtime e teatime, una sola data e lunchtime e teatime in un unica riga, scrivo qui esempio:
25/02/2003: 14 - 2 - 27 - 36 - 45 - 1 - 5
25/02/2003: 23 - 35 - 42 - 1 - 5 - 25 - 21
nel foglio da realizzare comparisse così:
25/02/2003: 14 - 2 - 27 - 36 - 45 - 1 - 5 - 23 - 35 - 42 - 1 - 5 - 25 - 21
se non sono riuscito a spiegarmi chiedi pure, grazie

di alfrimpa data: 10/08/2017 15:14:26
Ciao Attilio

Sulla base delle tue indicazioni ho scritto la macro che vedi qui che credo faccia quello che hai chiesto.

Tieni però presente che (mi pare) nel file giunta.xls non mi sembra vi siano LUNCHTIME senza il corrispettivo TEATIME.

In questo caso credo che la macro funzioni bene; diversamente le cose si complicherebbero molto e, allo stato, non saprei come affrontare questa evenienza.
Alfredo

Sub copia()
Dim ur As Long
Dim lr As Integer
Dim i As Integer
Dim cnt As Integer
lr = Sheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Row
cnt = 1
For i = 2 To lr - 1 Step 2
    ur = Sheets("Foglio2").Cells(Rows.Count, 3).End(xlUp).Row
    Sheets("Foglio2").Cells(ur + 1, 1).Value = cnt
    Sheets("Foglio2").Cells(ur + 1, 2).Value = Sheets("Foglio1").Range("B" & i).Value
    Sheets("Foglio1").Range("c" & i & ":" & "i" & i).Copy Destination:=Sheets("Foglio2").Cells(ur + 1, 3)
    Sheets("Foglio1").Range("c" & i + 1 & ":" & "i" & i + 1).Copy Destination:=Sheets("Foglio2").Cells(ur + 1, 10)
    cnt = cnt + 1
Next i
End Sub

di Attilio data: 10/08/2017 16:35:01
Ok.........provo, e ti faccio sapere, grazie sei stato gentilissimo
di Attilio data: 10/08/2017 19:25:43
fatto andato tutto ok, l'unica pecca è che se trova il lunchtime vuoto salta il giorno, meno male che ce ne era uno solo e ho risolto a mano, grazie ancora
di alfrimpa data: 10/08/2017 19:40:54
Te lo avevo detto comunque meglio così.

Per elaborare 2000 record ci mette una quindicina di secondi

Alfredo

Vuoi Approfondire?