excel ve msgbox çıktığını anlama

[fcw1031]

Kodun 1 tane olması yeterli zaten. Ama olmuyorsa,yenilemenin tekrarlama aralığını 7-8 sn. demiştiniz. 15-20 sn. yaparak bir deneyin. Yani güncelleme bitsin ve aradan 1-2 sn. geçmesine izin verin ve bir de o şekilde deneyin.

Ne yazık ki süreyi uzattığım halde aynı sıkıntı devam ediyor

 

[fcw1031]

Ben bu konudaki sorunuzla ilgili kodu birazcık kısalttım ve süreyi iki saniyeden beş saniyeye çıkardım.

Option Explicit
Dim ileri
Sub calıstır()
verial
End Sub
Sub durdur()
On Error Resume Next
Application.OnTime ileri, "verial", , False
Dim qt As QueryTable
For Each qt In ActiveSheet.QueryTables
qt.Delete
Next qt
End Sub
Sub verial()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://sube.sekerbank.com.tr/web/servlet/SekerbankServlet?service=SBkurlarOranlar.ButundovizKurlariListele" _
, Destination:=Range("A1"))
.Name = "SekerbankServlet?service=SBkurlarOranlar.ButundovizKurlariListele"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
On Error Resume Next
.Refresh BackgroundQuery:=False
End With
ileri = Now + TimeValue("00:00:05")
Application.OnTime ileri, "verial"
 
End Sub

Peki web sayfasından belirli bir yeri almayı nasıl becereceğim? Örneğin http://www.forexpros.com/currencies/usd-try sadece dolar fiyatı