webden veri almak

[forumshared]

Webden veri alan bir kodum var.

    With ActiveSheet.QueryTables.Add(Connection:=Baglanti_Adresi, Destination:=Range("Z100"))
        .Name = "Deneme"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 1
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

Baglanti_Adresi olarak tanımladığım adresten veri alıp Z100 hücresine yazdırıyor. Ve her 1 dakikada veriyi yeniliyor. Ancak veriyi yenilerken Z100 hücresinin üstüne yazmıyor da yanındaki hücreye yazıyor. Benim istediğim ise alınan ve 1 dakika aralıkla yenilenen verinin sürekli Z100 hücresine yazdırmak. Bu nasıl mümkün olabilir acaba?

 

[forumshared]

Afedersiniz araştırdım ve buldum.

.RefreshStyle = xlOverwriteCells

olacakmış.