dati da web (excel)

[caimanonor]

anthony sbagliavo qui visto che stamattina le partite erano poche avevo selezionato fino alla cella 198 invece devo selezionare tutta la tabella da a9 : ae 1507

Range("A9:AE1507").Select

ed ora sembra funzionare bene, grazieeeeeeee

[Anthony47]

Bravo...
Togli pure dalla macro quegli inutili ActiveWindow.ScrollColumn

Ciao

[caimanonor]

Bravo...
Togli pure dalla macro quegli inutili ActiveWindow.ScrollColumn

Ciao

ok ho eliminato le stringhe ke avevi detto, sto testando il file e sembra andare tutto bene, non finirò mai di ringraziarti

[caimanonor]

ciao anthony stamattina sto provando d importare dati da un altro sito e ho 2 problemini:
1) la data della partita sul sito si trova però quando importo i dati mi da un ora in meno;
2) come posso inserire nelle colonne KLMN mentre importo i dati (prezzo) vorrei inserire al posto della spazio un puntino (per separare i prezzi milioni o migliaia) tipo mi porta € 132 678 al posto dello spazio un bel puntino hihihihihiihihhih

[Anthony47]

Ci sono due discussioni in corso quasi simili; una e' la tua, l' altra e' questa: viewtopic.php?f=26&t=97386
Per risolvere il problema dell' spazio devi usare la funzione Replace, come suggerito a mpsinf qui: viewtopic.php?f=26&t=97386#p559209
Userai Replace per modificare il valore di "h" che scrivvi in Cells(i - kk, j + 1) nell' istruzione Cells(i - kk, j + 1) = h
Inserirai questa manipolazione in un If:

Codice: Seleziona tutto

If (j+1)>10 and j+1<15 Then  'Controlla colonne
   'Compila manipolando il valore "H"
Else
  'Compila normalmente
End if


Per il problema dell' ora, se non so a di quale sito parli posso solo immaginare che sei sfortunato e non c' e' niente da fare

Ciao!

[caimanonor]

ma dove inserire queste formule..tramite macro???

[Anthony47]

Il problema e' sempre aperto, o hai trovato la quadra?

[caimanonor]

anthony il problema cè sempre, non riesco a trovare una formula giusta :-(

[Anthony47]

Prima che sfugga di nuovo...
Il cuore della tua macro era un ciclo del tipo

Codice: Seleziona tutto

        If Col1 Then
            Cells(i - kk, j + 1) = CDate(h)
            If (Int(Cells(i - kk, j + 1)) <> Int(Range("Ab1"))) And Range("AB1") <> "" Then _
                Cells(i - kk, j + 1).Clear: kk = kk + 1: Exit For
        Else
            Cells(i - kk, j + 1) = h   '>>>
        End If


Ora tu vuoi che in colonne KLMN eventuali spazi vengano rimpiazzati da "."; il mio suggerimento e' che trasformi quelle stringhe in veri numeri e su essi applichi la formattazione "Valuta".
Questo dovrebbe corrispondere alla seguente versione di ciclo:

Codice: Seleziona tutto

        If Col1 Then
            Cells(i - kk, j + 1) = CDate(h)
            If (Int(Cells(i - kk, j + 1)) <> Int(Range("Ab1"))) And Range("AB1") <> "" Then _
                Cells(i - kk, j + 1).Clear: kk = kk + 1: Exit For
        Else
If (j + 1) > 10 And (j + 1) < 15 And i > 1 Then
    Cells(i - kk, j + 1) = CDbl(Replace(Replace(h, " ", ""), "€", ""))
    Cells(i - kk, j + 1).NumberFormat = "$ #,##0.00"
Else
            Cells(i - kk, j + 1) = h   '>>>
End If
        End If


Ciao