trasponi da csv a excel

[raimea]

ciao
nella stessa cartella ho 2 file
uno formato . csv
poi un file excel che tramite macro -- prelevabtf1 -- mi preleva i dati dal csv
e mi compila il foglio betfire

la macro funziona
ma pare non riesce piu a fare un passaggio,
i dati in colonna K7:K

non vengono piu tradotti correttamente in valuta euro.
anche se nella macro c'e il passaggio :

'-----metto celle valuta euro-------------------------
Call adattoprelievo

Codice: Seleziona tutto

  Range("i7:k1000").NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"

questo impedisce di funzionare alla formula somma inserita in k5

vorrei riuscire a risolvere se possibile.

allego i 2 file

https://www.dropbox.com/scl/fi/30t8o4xztfmh3zb6mgmhp/preleva_csv.xlsm?dl=0&rlkey=xkmw8e63a7wbc82q3ma23w43g
https://www.dropbox.com/s/cewr3sjz843danl/ExchangeBets_Settled.csv?dl=0

grazie
ciao

[raimea]

errata corrige
la cella in cui non fa la somma correttamete
a causa della colonna K e' >>> L5

pardon.

[Anthony47]

E' possibile che il formato dei dati nel csv sia cambiato?
Con il contenuto che vedo va cambiato nella Sub adattoprelievo questa parte:

Codice: Seleziona tutto

        For nCol = 5 To 7
            If IsNumeric(Replace(aTabella(nRiga, nCol), ".", ",")) Then
                aTabella(nRiga, nCol) = CDbl(Replace(aTabella(nRiga, nCol), ".", ","))
            End If
        Next nCol


Questo e' il nuovo contenuto, dove e' cambiato il contenuto della Replace

[raimea]

ciao

E' possibile che il formato dei dati nel csv sia cambiato?

si molto probabile.

comunque ora tutto ok
ho sostituito quanto riportato

grazie