Döviz güncelleme

[beyaz34]

Döviz güncelleme bu kodlarla eskiden gencelleme yapıyordu ama artık yapmıyor hata neresinde acaba.
-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+--+-+-+-+-+--+
Sub guncelle()
Sheets("Döviz").Select
Range("F10").Select
With Selection.QueryTable
.Connection = "URL;http://www.tcmb.gov.tr/yeni/ana.php"
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = "7"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Beep
End Sub

 

[Korhan Ayhan]

Selamlar,

Sanırım sitenin yapısı değiştiğinden sonuca ulaşamıyorsunuz. Kullandığınız kodu aşağıdaki şekilde düzeltip denermisiniz.

Sub GÜNCELLE()
    Sheets("Döviz").Select
    Range("F10").Select
    With Selection.QueryTable
    .Connection = "URL;http://www.tcmb.gov.tr/yeni/tablolar.php"
    .WebSelectionType = xlSpecifiedTables
    .WebFormatting = xlWebFormattingAll
    .WebTables = "4"
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
    End With
    Beep
End Sub

 

[beyaz34]

Sayın COST_CONTROL hala hata veriyor.

.Refresh BackgroundQuery:=False bu satırda hata veriyos

İyi çalışmalar.

 

[iaydin20]

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Set s1 = Sheets("DÖVİZ")
Set S2 = Sheets("KURLAR")
TARİH = Date

S2.Cells.Delete
Application.StatusBar = "Kur bilgileri alınıyor. Lütfen bekleyiniz..."
S2.Select

With Application
.DecimalSeparator = "."
.ThousandsSeparator = ","
.UseSystemSeparators = False
End With

On Error GoTo HATA

With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.tcmb.gov.tr/yeni/tablolar.php", Destination:=S2.[A1])
.Name = "KURLAR"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "4"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

With Application
.UseSystemSeparators = True
End With

S2.[B:C].NumberFormat = "#,##0.0000"
S2.[C1] = Date
S2.[C1].NumberFormat = "m/d/yyyy"

s1.Select
[B1] = S2.[B4]
[B2] = S2.[B3]
[B7] = Now
Set s1 = Nothing
Set S2 = Nothing
Application.ScreenUpdating = True
Application.StatusBar = False
Exit Sub

HATA:
s1.Select
With Application
.UseSystemSeparators = True
End With
Application.ScreenUpdating = True
Application.StatusBar = False
MsgBox "İnternet bağlantısı şu anda kurulamıyor." & vbCrLf & "Lütfen daha sonra tekrar deneyin.", vbCritical, "UYARI !"
Set s1 = Nothing
Set S2 = Nothing
End Sub




kardeş bu kodu kendine göre uygularsan olur

 

[Korhan Ayhan]

Selamlar,

Size önerdiğim kodu boş bir excel sayfasında deneyerek göndermiştim. Hata veren dosyanızı eklerseniz yardımcı olabiliriz.

 

[beyaz34]

çalışmamı yolluyorum bir bakarmısınız

 

[beyaz34]

çalışmamı yolluyorum bir bakarmısınız


http://s1.sharetor.com/tr/down/5118549ry10

 

[Korhan Ayhan]

Selamlar,

Dosyanıza ulaşamıyorum. Lütfen foruma eklermisiniz.

 

[beyaz34]

Sayın COST_CONTROL foruma ekledim iyi çalışmalar dilerim

 

[Korhan Ayhan]

Selamlar,

Dosyanızı açmaya çalıştığımda sürekli uyarı mesajı alıyorum ve açılmıyor. Sanırım dosyanız bozuk.

 

[beyaz34]

Sayın COST_CONTROL foruma ekleyemiyorum msn den versem size bir mahsuru yoksa iyi çalışmalar dilerim

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[beyaz34]

Kur Güncelleme

1 sene önce bu konu hakkında yardımlarınızı almıştım .
Ama hhd yandı gecen hafta yedeklerin içinde hatalı olan kalmış arama yaptım ama sitedeki yüklediğimiz dosyalarda silinmiş.

Kur Güncelleme butonuna baştığım zaman Güncelleme yapmıyor.


(UserForm Kullandığım)

Private Sub CommandButton6_Click()
Sheets("Filateli").Select
Range("AK11").Select
With Selection.QueryTable
.Connection = "URL;http://www.tcmb.gov.tr/yeni/tablolar.php"
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = "7"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Call UserForm_Initialize
Beep
End Sub

------------------------------------------------------------------------------------------
(Module Kullandığım)

Sub guncelle()
Sheets("Filateli").Select
Range("AK11").Select
With Selection.QueryTable
.Connection = "URL;http://www.tcmb.gov.tr/yeni/tablolar.php"
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = "7"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Beep
End Sub

dosyanın boyutunu ayarlayıp örnek koyacağım..

 

[desk]

Bu genel bir sıkıntı sanırım aradığınızı buluyorsunuz ama ekteki dosya gitmiş oluyor çoğu postta bu böyle linklerin hiçbiri çalışmıyor atachlar gitmiş. Dosyayı her actığımda bir hücreye kur güncellettirmek istiyorum bir sürü örnek var ama dosyaların hepsi silinmiş.