Condividi:        

Macro vba per spoglio colonne 10elotto

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

Macro vba per spoglio colonne 10elotto

Postdi karug64 » 12/12/13 22:14

Salve a tutti.
Nel mio foglio ho nelle colonne da A a T i numeri delle estrazioni del 10elotto.
Nelle colonne da V1 ad AE10 i numeri di un sistema.

E' possibile creare una macro che confronti le singole colonne da V1 a AE10 con tutte quelle presenti da A1 a T(n) e scriva nella colonna AG (in corrispondenza di ogni colonna) il punteggio massimo riscontrato ?

Grazie
Office 2010
karug64
Utente Senior
 
Post: 746
Iscritto il: 20/11/11 21:22

Sponsor
 

Re: Macro vba per spoglio colonne

Postdi Flash30005 » 12/12/13 23:58

Si è possibile ma richiedo l'invio del file con i dati

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macro vba per spoglio colonne 10elotto

Postdi karug64 » 13/12/13 23:46

Ecco il link al file

http://www.filedropper.com/spoglio

Grazie in anticipo
Office 2010
karug64
Utente Senior
 
Post: 746
Iscritto il: 20/11/11 21:22

Re: Macro vba per spoglio colonne 10elotto

Postdi Flash30005 » 16/12/13 05:52

C'è qualcosa che mi sfugge perché dal tuo schema dati esistono delle colonne da confrontare con un certo archivio (estrazioni)
Ogni colonna avrà una certa presenza di numeri ad ogni estrazione e pertanto non capisco come si possano inserire tutti quei dati in una sola cella. Cosa diversa se vogliamo la massima presenza dei numeri su un archivio di estrazioni e riportare la riga di appartenenza dell'estrazione dove si è riscontrata questa presenza.
Se è questo ciò che desideri ottenere allora la macro che propongo dovrebbe essere risolutiva
Codice: Seleziona tutto
Sub ContaPres()
URA = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
URC = Worksheets("Foglio1").Range("W" & Rows.Count).End(xlUp).Row
Worksheets("Foglio1").Range("AH3:AI100").ClearContents
For RRC = 3 To URC
MMyC = 0
For RRA = 3 To URA
MyC = Evaluate("=SUM(COUNTIF(Foglio1!W" & RRC & ":AF" & RRC & ",Foglio1!A" & RRA & ":T" & RRA & "))")
If MMyC < MyC Then
MMyC = MyC
Estraz = RRA
End If
Next RRA
Worksheets("Foglio1").Range("AH" & RRC).Value = MMyC
Worksheets("Foglio1").Range("AI" & RRC).Value = Estraz
Next RRC
End Sub


Fai sapere
ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macro vba per spoglio colonne 10elotto

Postdi karug64 » 16/12/13 10:55

Ciao. Tutto ok. Funziona.

C'e' solo un problema, che e' dipeso sicuramente da una mia cattiva spiegazione.

Se per esempio una colonna ottenesse due o piu' max punteggi uguali, non mi viene evidenziato.
Per esempio la colonna due ottiene 8 punti sulla riga 15 e 167. Mi riporta solo la riga 15 (cioe' la prima).

La soluzione migliore, non so se fattibile, sarebbe quella di riportare nella colonna AI il numero dei max punteggi ottenuti (quindi nell'esempio in AI dovrebbe esserci scritto 2) e, qui viene il bello, inserire nel campo nota delle caselle della colonna AH i numeri delle righe in cui sono stati rinvenuti i punteggi (quindi nella nota in AH1 dovrei vedere 15,167)

Grazie
Office 2010
karug64
Utente Senior
 
Post: 746
Iscritto il: 20/11/11 21:22

Re: Macro vba per spoglio colonne 10elotto

Postdi Flash30005 » 16/12/13 23:16

Prova questa modificata
Codice: Seleziona tutto
Sub ContaPres2()
URA = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
URC = Worksheets("Foglio1").Range("W" & Rows.Count).End(xlUp).Row
Worksheets("Foglio1").Range("AH3:AI100").ClearContents
For RRC = 3 To URC
Estraz = ""
MMyC = 0
For RRA = 3 To URA
MyC = Evaluate("=SUM(COUNTIF(Foglio1!W" & RRC & ":AF" & RRC & ",Foglio1!A" & RRA & ":T" & RRA & "))")
If MMyC < MyC Then
MMyC = MyC
'Estraz = RRA
End If
Next RRA
Worksheets("Foglio1").Range("AH" & RRC).Value = MMyC
For RRA2 = 3 To URA
If Evaluate("=SUM(COUNTIF(Foglio1!W" & RRC & ":AF" & RRC & ",Foglio1!A" & RRA2 & ":T" & RRA2 & "))") = MMyC Then
Estraz = Estraz & ", " & RRA2
End If
Next RRA2
Worksheets("Foglio1").Range("AI" & RRC).Value = Mid(Estraz, 3, Len(Estraz))
Next RRC
End Sub


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macro vba per spoglio colonne 10elotto

Postdi karug64 » 17/12/13 23:10

Ottimo. Grazie
Office 2010
karug64
Utente Senior
 
Post: 746
Iscritto il: 20/11/11 21:22


Torna a Applicazioni Office Windows


Topic correlati a "Macro vba per spoglio colonne 10elotto":


Chi c’è in linea

Visitano il forum: Nessuno e 50 ospiti