Visual o excel

Versione Completa Stampa Cerca Utenti Iscriviti Condividi :

Excel Forum » Excel Forum » » Soluzioni Excel Domande e Risposte

satos

00sabato 13 agosto 2016 18:55

Ciao, chiedo agli esperti come poter effettuare questa ricerca.
Nel foglio che ho allegato c'è l'archivio del lotto aggiornabile.
Quello che serve a me è: fare una ricerca nelle ultime 10 estrazioni sulla ruota da me selezionata ed avere le presenze dei soli numeri zerati "10-20-30-40-50-60-70-80-90" es. nelle ultime 10 estrazioni a Bari i numeri dei zerati sortiti sono: 60-90-10 potrebbero anche esserci delle ripetizioni es 10-20-50-10 ecc.
Vi allego il foglio excel dove ho improntato qualcosa.
Spero in un vostro aiuto......Grazie [SM=x423023]

patel45

00sabato 13 agosto 2016 19:02

i file con macro devono essere zippati

satos

00sabato 13 agosto 2016 19:04

Grazie petel45
l'ho inserito zippato...spero si veda

satos

00sabato 13 agosto 2016 19:09

eccolo

by sal

00domenica 14 agosto 2016 08:07

Estrazioni

Ciao Satos, eccoti la macro con il file.

questa la Macro

Sub trova()
Dim sh1 As Worksheet, sh2 As Worksheet, Rng As Range, Num
Dim r, x, y, d1, d2, c1, cp, cf, n, Cl

Set sh1 = Worksheets("Ricerca")
Set sh2 = Worksheets("Archivio")

sh1.Activate
d1 = Cells(4, 3)
d2 = Cells(10, 4)
Range("E15:U15").ClearContents
Num = Array(10, 20, 30, 40, 50, 60, 70, 80, 90)

Application.ScreenUpdating = False
 
sh2.Activate
r = Cells(Rows.Count, 1).End(xlUp).Row
    Select Case d1
      Case "Bari": cp = 3: cf = cp + 4
      Case "Cagliari": cp = 8: cf = cp + 4
      Case "Firenze": cp = 13: cf = cp + 4
      Case "Genova": cp = 18: cf = cp + 4
      Case "Milano": cp = 23: cf = cp + 4
      Case "Napoli": cp = 28: cf = cp + 4
      Case "Palermo": cp = 33: cf = cp + 4
      Case "Roma": cp = 38: cf = cp + 4
      Case "Torino": cp = 43: cf = cp + 4
      Case "Venezia": cp = 48: cf = cp + 4
      Case "Nazionale": cp = 53: cf = cp + 4
    End Select
Set Rng = Range(Cells(r - d2, cp), Cells(r, cf))

sh1.Activate
c1 = 5
For Each Cl In Rng
  For y = 0 To 8
    If Cl = Num(y) Then Cells(15, c1) = Cl: c1 = c1 + 1
  Next y
Next Cl
Cells(1, 1).Select
End Sub

Ciao By Sal [SM=x423051]

satos

00domenica 14 agosto 2016 21:10

Ciao by sal, ti ringrazio tantissimo.
Buona serata
[SM=x423025]

Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 11:00.