günlük kur üzerinden dolar veya euro hesaplama sorunu

[tasiyici1]

arkadaşlarım size bir sorum var günlük kuru a1 hücresine elle girip a2 de dolar
a3 de euro fiyatını yazıp kdvsiz ve kdvli fiyatını bulabilşrmiyim acaba yani
a1 e dolar kuru girince a2 deki yazmış oldugum dolar fiyatı ile carpılıp tl cinsinden kdvsiz ve kdvli fiyatı bulmak yada euro kurunu yazdımmı a3 teki euro fiyatı ile carpıp kdvsiz ve kdvli fiyatı bulmak için formül varmı teşekkürler şimdiden

 

[turist]

Ekli dosyayı inceleyiniz.
Kolay gelsin...

 

[tasiyici1]

Yardım için sağol turist arkdasım

 

[tasiyici1]

bu kuru bir siteden otomatik veri olarak alabilirmyiz bide formülde ' bu işaret neyi ifade ediyor
kdv li tutarda %18 değilde yüzde 1,18 yazılmış onu merak ettim yüzde formüllerini böyle yazsak dogru sonuç bulurmu herzaman

 

[bedri41]

bu kuru bir siteden otomatik veri olarak alabilirmyiz bide formülde ' bu işaret neyi ifade ediyor
kdv li tutarda %18 değilde yüzde 1,18 yazılmış onu merak ettim yüzde formüllerini böyle yazsak dogru sonuç bulurmu herzaman

Sorunuzun, kuru bir siteden otomatik alabilirmiyiz kısmı ile ilgili aşağıdaki kodları kullanıp Merkez bankası kurlarını alabilirsiniz.

Kolay Gelsin

Sub dovizal()
Dim hucre As Range
[a:c].ClearContents
    With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.tcmb.gov.tr/yeni/tablolar.php", Destination:=[a1])
        .WebFormatting = xlWebFormattingNone
        .WebTables = "4"
        .Refresh BackgroundQuery:=False
    End With
    For Each hucre In [b3:c4]
    hucre = hucre / 10000
    Next
    [b3:c4].NumberFormat = "General"
End Sub

 

[turist]

Sn. tasiyici,
Sn. bedri41 tarafından uygulanan kur alımı işlemine göre düzenlenmiş dosyanız eklidir.