con questa macro aggiorno tutte le query che ho nel mio file
sono circa un centinaio, la macro funziona.
vorrei aggiungere un contatore
da vedere sotto nella barra inferiore del monitor,
che mi dice il numero di querry gia aggiornate.
questa la macro:
- Codice: Seleziona tutto
Sub Rettangoloarrotondato1_Click()
If MsgBox("ATTENZIONE!!!:" & vbNewLine & _
vbNewLine & _
" QUESTA FUNZIONE AGGIORNA LE CLASSIFICHE " & vbNewLine & _
vbNewLine & _
"L'OPERAZIONE POTREBBE DURARE QUALCHE MINUTO" & vbNewLine & _
vbNewLine & _
"CONTINUARE CON L'AGGIORNAMENTO?", _
vbCritical + vbYesNo + vbDefaultButton2, "Cancellazione CELLA") = vbNo Then
Exit Sub
End If
UserForm1.Show vbModeless
DoEvents
Worksheets("prono").Unprotect
Worksheets("undover").Unprotect ' devo sbloccalo altrim quando arriva qui si blocca
For Each WkSh In Worksheets
For Each WQ In WkSh.QueryTables
WQ.Refresh BackgroundQuery:=False
Next WQ
Next WkSh
Unload UserForm1
messaggio = MsgBox("AGGIORNAMENTO TERMINATO", 0, "OK")
Range("V2") = Range("Z2")
End Sub
vi ringrazio
ciao