Ciao a tutti come da titolo, quando faccio un aggiornamento query, devo fare la copià dei dati aggiornati.
ma purtroppo la macro creata non aspetta l'aggiornamento della query quindi mi copia i dati non aggiornati.
se inserisco "Wait" mi si blocca la macro ed anche l'aggiornamento della query.
la macro fa l'aggiornamento di dati metereologici di una città a scelta da un menù a tendina, questa la macro
Sub Meteo() 'permette la scelta della citta del meteo ed aggiorna la query
SetFg
Sh1.Activate
'sNo
Sh1.Cells(6, 2) = Sh3.Cells(3, 57)
Sh1.Cells(7, 2).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Città"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = False
End With
If Sh1.Cells(7, 2) <> "" Then
Sh3.Cells(2, 61) = Sh1.Cells(7, 2)
ActiveWorkbook.Connections("Query - PrevisioniDelTempo").Refresh
'''''''-----Intervallo per aggiornamento query-------
Sh3.Range("PrevisioniDelTempo[#All]").Copy
Sh1.Activate
Sh1.Range("C7").Select
ActiveSheet.Pictures.Paste.Select
Else
MsgBox "Fare la scelta della città per il meteo", vbInformation, "Meteo"
End If
'sSi
End Sub
vorrei trovare il metodo per fare prima l'aggiornamento e poi copiare i dati.
Ciao By Sal
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie
clicca qui