Salve
ho un problema allo stesso foglio richiesto prima
http://pronostigoal.forumfree.it/?t=68353369vi chiedevo gentilmente se qualcuno poteva darmi una mano perchè non sono un esperto di excel ma sto provando a tentativi
i campionati dovrebbe pescarli ancora nel modo corretto
il problema è il pescaggio incontri
sono riuscito a importare le partite modificando una query, ma servirebbe qualcuno esperto che rimettesse le cose in ordine perchè me le copia nel foglio partite ma non nella pagina principale
non so che excel avete
ma se prendete il foglio vitellone 4.0 in prima pagina - andate sul foglio partite - dati - selezionate connessioni esistenti - andate alla CONNESSIONE25 (non connection) - fate tasto destro su questa -
modifica proprietà connessione - definizione - modifica query - e cambiate l' indirizzo query da:
questo
www.betonews.com/table.asp?tp=2002&...=2016&df=1&dw=3a questo &lang=en&dd=11&dm=5&dy=2016&df=1&dw=3" rel="nofollow" target="_blank" class="postlink">www.betonews.com/table.asp?tp=leggi&...=2016&df=1&dw=3
vedrete che le partite nel foglio partite le importa
i problemi che rimane è far si che le partite vengano copiate in prima pagina, poi il resto funziona
in rosso le due parti da modificare in vba per farlo funzionare di nuovo ho fatto delle prove ma non ci sono riuscito a farlo funzionare come prima
Sub Rettangoloarrotondato2_Click()
If MsgBox("ATTENZIONE!!!:" & vbNewLine & _
vbNewLine & _
" QUESTA FUNZIONE AGGIORNA GLI INCONTRI " & vbNewLine & _
vbNewLine & _
"LA DATA E' QUELLA GIUSTA?." & vbNewLine & _
vbNewLine & _
"SEI PROPRIO SICURO?", _
vbCritical + vbYesNo + vbDefaultButton2, "Cancellazione CELLA") = vbNo Then
Exit Sub
End If
Application.ScreenUpdating = False
Sheets("PARTITE").Select
Range("G4").Select
With Selection.QueryTable
.Connection = _
"URL;http://www.betonews.com/table.asp?tp=2002&lang=en&dd=" & [ab3] & "&dm=" & [ab4] & "&dy=" & [ab5] & "&df=1&dw=3"
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "25"
.WebPreFormattedTextToColumns = False
.WebConsecutiveDelimitersAsOne = False
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = True
.Refresh BackgroundQuery:=False
End With
Sheets("PARTITE").Select
Range("R3:t10000").Select
Selection.ClearContents
ctr = Range("X2")
For Z = 3 To ctr
Range("r" & Z) = Range("G" & Z)
Range("s" & Z) = Range("i" & Z)
Range("t" & Z) = Range("C" & Z)
Next Z
part = Sheets("PARTITE").Range("x2")
Start = 7
For p = 3 To part
If Range("AA" & p) = "OK" Then
Sheets("PRONO").Range("G" & Start) = Sheets("PARTITE").Range("r" & p)
Sheets("PRONO").Range("H" & Start) = Sheets("PARTITE").Range("s" & p)
Sheets("PRONO").Range("C" & Start) = Sheets("PARTITE").Range("t" & p)
Start = Start + 1
Else
End If
Next p
Sheets("PRONO").Select
Range("V4") = Range("Z2")
End Sub