Grazie a questo forun e in particolar modo a Flash30005 sono riuscito a creare una macro che va a leggere in un file txt e importa dati in un foglio excel. Ora tanto per completare le mie info avrei bisogno di andare a "catturare" altri dati: vorrei fare in modo di mettere in un foglio i risultati dei miei avversari.
Ci dovrebbe essere essere un controllo se il numero torneo è già stato inserito ( questo potrebbe farlo dalla pagine iniziale, purtroppo capita...), se no vado sul mio foglio "oppo" e cerco se nella colonna "Giocatore" se esiste già, se non esiste lo inserisco e metto uno nella riga corrispondente alla posizione numero 1.
Se il giocatore è alaves12, sono io e posso anche saltarlo.
Il nome dell' avversario va bene sia esempio: " IHateScrNms " che " IHateScrNms (PAESE) " , come siete più comodi.
Se arrivo ad un giocatore che è già arrivato ottavo e nella corrispondente cella ho 1 il programma dovrebbe in automatico crescere di 1 quindi =2. Le info che mi servono sono queste, non mi interessa vincita ne altro.
Alla fine va bene se li metto in ordine alfabetico la colonna A in questo modo ?
Sub prova()
'
' prova ordine alfabetico
Range("A4").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveWorkbook.Worksheets("Oppo").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Oppo").Sort.SortFields.Add Key:=Range("A4:A11"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Oppo").Sort
.SetRange Range("A4:J11")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Chiedo troppo ?
In allegato vi metto file esempio txt e il foglio excel da cui parto.
Grazie
Paolo
Esempio ( anche in allegato poker.txt)
PokerStars Torneo #159742931, No Limit Hold'em
Buy-in: $6.00/$0.50
9 giocatori
Montepremi totale: $54.00
Torneo iniziato 29/04/2009 17:17:09 ET
Torneo finito 29/04/2009 17:58:06 ET
1: IHateScrNms (Lawrence), $27.00 (50%)
2: Lord-Quantus (Chambly), $16.20 (30%)
3: schwimmbutz (Cologne), $10.80 (20%)
4: lil pugg (Buchen),
5: christiaan26 (de wilp),
6: caputoro (Banchette),
7: phshon (San Francisco),
8: alaves12 (magenta),
9: GMyster0167 (Edensor Park),
Ti sei piazzato al 8° posto (eliminato alla mano #27635982963).
14 mani giocate e ha visto il flop:
- 2 volte su 2 dallo small blind (100%)
- 2 volte su 2 dal big blind (100%)
- 1 volte su 10 da un'altra posizione (10%)
- un totale di 5 volte su 14 (36%)
Piatti vinti allo showdown - 0 su 2 (0%)
Piatti vinti senza showdown - 3
Registrazione