Re:
raffaele1953, 04/08/2018 16.46:
Ho già capito l'albero di Natale di WIN e comunque, vedo ancora come l'utente "non desidera usare" le "varie" variabile (Lr,R1,R2). Altro cose sul MAC non capisco.
Scusami, ma come ti ho detto sono un neofita del VBA, inoltre quando ancora non conosco bene qualcosa (come le variabili) le evito.
Comunque sono riuscito a far funzionare le fasce di quota sul Mac in questo modo:
Sub FASCIAQUOTA()
Range("T5:AC10000").Select
Application.CutCopyMode = False
Selection.ClearContents
If ActiveSheet.Range("M5").Value = "-1" Then MsgBox "Inserire una quota esistente per il MINIMO": Exit Sub
If ActiveSheet.Range("R24").Value = "" Or ActiveSheet.Range("R25").Value = "" Then MsgBox "Inserire il MIN e MAX": Exit Sub
Dim Lr As Long, R1 As Double, R2 As Double, I As Long, F As Long
Lr = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("G5:G" & Lr), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("B5:K" & Lr)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
R1 = ActiveSheet.Range("R5").Value ' R5 dove c'e la formula
R2 = ActiveSheet.Range("R25").Value
I = Application.WorksheetFunction.Match(R1, ActiveSheet.Range("G:G"), 1) - Range("M5").Value
F = Application.WorksheetFunction.Match(R2, ActiveSheet.Range("G:G"), 1)
ActiveSheet.Range("B" & I & ":K" & F).Copy
ActiveSheet.Range("T5").PasteSpecial
Columns("T:AC").Select
Columns("T:AC").EntireColumn.AutoFit
Range("T1").Select
End Sub
Ho utilizzato il tuo codice, che aveva il problema (sul mac) di trovare solo l'ultimo dei minimi richiesti. L'ho risolto mettendo la formula
=CONTA.SE(G:G;"="&R24)-1
che mi conta quanti minimi devo recuperare. A questo punto ho modificato l'istruzione
I = Application.WorksheetFunction.Match(R1, ActiveSheet.Range("G:G"), 1) - Range("M5").Value
in modo che mi prenda tutti i minimi.
Ho anche messo
If ActiveSheet.Range("M5").Value = "-1" Then MsgBox "Inserire una quota esistente per il MINIMO": Exit Sub
per evitare quote inesistenti.
Le formule le trovi in M5 e S5 (sono nascoste).
Ho eliminato il foglio RIEPILOGO e anche le macro di apertura e chiusura (che erano inutili) Ora sono rimaste solo le macro per aprire i vari fogli, che credo funzionino anche sul PC, e quelle per ordinare.
Se potete darci un'occhiata e adattarle al PC ve ne sarei grato. Chiaramente ne basta una per tipo.
Infine volevo spiegare che i dati utilizzati fanno parte di un data base molto grande dove preleviamo da internet solo i risultati delle partite, e i dati delle partite da giocare.
Poi li elaboriamo in più passaggi per ottenere le percentuali, le quote "oneste" e quelle "probabili". Inoltre calcoliamo anche il ricarico che attuano i bookmaker.
Non esistono cose del genere su internet e credo che questo lavoro possa interessare moltissimi appassionati di scommesse.
Se non siete pratici di scommesse, provate a chiedere a qualcuno.
Perché faccio tutto questo lavoro? Beh, mi appassiona e penso che se riesco a convincere qualcuno a giocare in modo intelligente ho fatto qualcosa di buono.
Grazie.
P.S. il file è sempre qui:
https://www.dropbox.com/s/2gzp3sq9ebictdl/x%20forum.xlsm?dl=0