Veri aktarımı Hakkında

[hasankardas]

Webden çektiğim verileri aktarmaya çalışıyorum ancak Yok hatası alıyorum. tablo içerinde açıklama yaptım. Teşekkürler.

 

[y.selim]

çekilen verilerde boşluklar oluşuyor bu yüzden formül diğer sayfadaki verileri bulamıyor.bunu F2 ye basayarak görebilirsiniz. bunu kaldırmak için KIRP fonksiyonunu kullanın.

 

[hasankardas]

onu farketmiştim. makro atayarak çözmüştüm. formulle daha güzel oldu. diğer işlem saatini de çekmek istiyorum. onu sayı formatında veriyor. cevabınız için teşekkür ederim.

 

[Ömer BARAN]

Merhaba işlem saatine ilişkin olarak kullandığınız formül J sütunundaki bilgiyi çağırıyor, K sütunundaki saat bilgisi için formüldeki 10 sayısını 11 olarak değiştirip, sütunu saat olarak biçimlendirince istediğiniz sonuca ulaşılabiliyor.

 

[halit3]

Yenile makrosunun bununla değiştirin.

Sub YENİLE()

With Sheets("VERİLER").QueryTables.Add(Connection:="URL;http://www.borsahaber.com" _
, Destination:=Sheets("VERİLER").Range("A3"))
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshStyle = xlOverwriteCells
.RefreshPeriod = 0
.Refresh BackgroundQuery:=False
End With

Sheets("VERİLER").Columns("A:A").Replace What:="  ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Dim xQuery


[COLOR="Red"]If Sheets("VERİLER").QueryTables.Count > 0 Then[/COLOR]
For Each xQuery In Sheets("VERİLER").QueryTables
xQuery.Delete
Next xQuery
[COLOR="red"]End If[/COLOR]

End Sub

 

[hasankardas]

Teşekkür ederim. dikkatsizlik olmuş.