döviz kuru veri alma hakkında

[canerrrrrr]

arkadaslar döviz kurunu otomatik dıs veri al die alıyorumm fakat kuru 10 katı alıyor.. yanı dolar 1.5 ytl iken 15 ytl alıo... aynı sütuna /10 yapıorum düzelio fakat her dosyayı yeni calıstırdıgımda yeniden 10 katı oluoo .. yardımlarınız bekliorumm

 

[Halit TÜRK]

Sn. Korhan beye aittir. Kendinize uyarlayınız...

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

 

[canerrrrrr]

HALİT bey yazmıs oldugunuz kodu sayfanın kod bolumune

yazdım fakat bişey değişmedi.... acaba benmi beceremedimm ... yardımlarınızı bekliorum..

teşekkürler

 

[Halit TÜRK]

Eki inceleyiniz...

 

[canerrrrrr]

HALİT bey runtime 1004 hatası verior..

rica etsem benim yollamıs oldugum eki calısıtırıpp kontrol edermisiniz??
çok teşekkürler

 

[Halit TÜRK]

Dosyanız Eklidir..

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

 

[canerrrrrr]

cok tesekkur ederımm halit bey

emeğinize sağlık ... kısa bi sorum olucak ... forumda henuz yanıt alamadım.. belki siz halledebilirsiniz.. görmüş oldugunuz dosya ekimde "nakit satış, tahsilat nakit " sadece bu ikisinin döviz cinsi ytl olan tutarının herhangi bir hücrede nasıl toplayabilirimm ...

 

[Halit TÜRK]

Selam,

E41 hücresinde yazan YTL karşısına yani F41 hücresine YTL toplamı ise;
F41 hücresine yazınız

=ETOPLA($E$8:$E$40;$E$41;$F$8:$F$40)

 

[canerrrrrr]

haluk bey

evet o sekil topluo fakat benim istediğim sadece nakit satıs ile tahsilat nakit sütunlarının karsını toplamasını istiorumm.. bu şekil formül yazınca ytl olan bütün sütunları ( yazılanfiş,banka havale vs..)topluyor

 

[Halit TÜRK]

Selam,

H9 hücresine;

=TOPLA.ÇARPIM(($B$8:$D$40=$G$9)*($E$8:$E$40="YTL")*($F$8:$F$40))

H10 hücresine;

=TOPLA.ÇARPIM(($B$8:$D$40=$G$10)*($E$8:$E$40="YTL")*($F$8:$F$40))

yazınız ve Ctrl+Shift+Enter tuşlarına basarak dizi formül haline çeviriniz. {}

Not: Formül kısmı Ad Tanımlama ile yeniden düzenlenmiştir..