creare un elenco squadre

[raimea]

ciao
nel fgl tabelle
quando lancio la macro >>> Sub ListaTeams()
puls >>> crea elenco squadre

mi si blocca alla riga:

Codice: Seleziona tutto

  oSh.Range("E7").Resize(oInd, 1) = Application.WorksheetFunction.Transpose(oArr)

questo e' dovuto al fatto che nelle righe
di fgl generale col G , dove va a cercare i dati
ora trova dei dati all interno di una parentesi quadra
che prima non c'era.
(se tolgo la parent quadra e ralativo contenuto tutto funziona)

si riesce a correggere la macro ?

vi allego il file

https://www.dropbox.com/scl/fi/ipxo9h2dpr41g9ke3vxca/parentesi_quadra.xlsm?rlkey=fojl3mr4oukp65eu5b0xuyso9&st=u286w9nn&dl=0

[Anthony47]

Eh, la macro guarda l'elenco delle partite e fa un elenco di squadre partendo da presupposto che il "Trattino" sia usato per separate il Team A dal Team B.
Gia' in passato avevamo scoperto che talvolta il "Trattino" fa anche parte del nome della squadra e avevamo abbozzato una modifica che affrontava quell'aspetto; ora il Trattino e' aggiunto in una informazione che modifica parecchio quello che doveva essere l'elenco delle partite...
Possiamo comunque annullare la presenza della [ modificando la macro in questa parte:

Codice: Seleziona tutto

    If WArr(i, 1) <> "" Then
        cippa = Split(WArr(i, 1) & "[", "[", , vbTextCompare)(0)                                '++ Aggiunta 15-09-2025
        mySplit = Split(cippa, "-", , vbTextCompare)                                            'MM Modificata 15-09-2025
         If UBound(mySplit) > 1 Then mySplit = Split(cippa, Chr(160) & "-", , vbTextCompare)    'MM <<aggiunto 20.5.22 e Modificata 15-09-2025
        If UBound(mySplit) = 1 Then

Vedi la riga marcata ++, aggiunta, e le due righe marcate MM, modificate

Guarda il risultato e ...aspetto i commenti

[raimea]

ciao

Gia' in passato avevamo scoperto che talvolta il "Trattino" fa anche parte del nome della squadra e avevamo abbozzato una modifica che affrontava quell'aspetto

confermo.

ho fatto lo sopra citate modifiche

ed ora e' tutto ok
pur essendoci delle parentesi quadre nella cella

grazie