İnternetten Döviz Kuru Alırken Hata

[Erkan Yılmaz]

Merhaba Arkadaşlar,

Sizlerinde yardımı ile yapmış olduğum ek'te göndermiş olduğum tabloda 5 inci açmış olduğum yani "31" adında ki sayfamda kuru getirmiyor.

İlk 4 sayfam olan "7", "14", "21", "28" sayfalarımda herhangi bir problem yok.

Yardımcı olursanız çok sevinirim.

http://www.dosya.tc/server13/obxo6h/04_-_Camasir_Yikatma_Kontrol.rar.html

 

[Korhan Ayhan]

Merhaba,

D4 hücresindeki formüllerinizi aşağıdaki gibi değiştirip deneyiniz.

=K2-EĞER(HAFTANINGÜNÜ(K2;2)=1;3;1)

 

[Erkan Yılmaz]

Merhaba,

D4 hücresindeki formüllerinizi aşağıdaki gibi değiştirip deneyiniz.

=K2-EĞER(HAFTANINGÜNÜ(K2;2)=1;3;1)

Sayın Korhan Ayhan Bey,

Öncelikle teşekkür ederim.

Önermiş olduğunuz formülü denedim ama herhangi bir değişiklik olmadı. Kodlarla ilgili sanırım son sayfamda ki problem.

 

[Erkan Yılmaz]

Merhaba Arkadaşlar,

Sorunu çözdüm tatil günlerinde bir önceki kuru almıyor malesef.

Göndereceğim tablo da fatura tarihi 07.05.2018 girdiğim zaman bir önceki günü tatil olduğu için 04.05.2018 i alması lazım ama almıyor.

Kodlarla ilgili yardımcı olursanız sevinirim.

http://s7.dosya.tc/server6/6bnu1b/05_-_Camasir_Yikatma_Kontrol.rar.html

 

[hb3102]

TCMB haftasonu kur açıklamaz.Hafta sonları kuru Cuma gününü baz alır.

 

[du643]

If WorksheetFunction.Weekday(tarih) = 2 Then tarih = tarih - 2 ' 1 Pazar gününü temsil eder, Cumartesi 7 dir
If WorksheetFunction.Weekday(tarih) = 1 Then tarih = tarih - 1

kur almadan öncesine kodu eklerseniz