DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
belki bu eklenti işinize yarar......Arkadaşlar Ekteki Konumda bana yardımcı olursanız sevinirim yardımcı olan arkadaşlara şimdiden teşekkür ederim.
iyi çalışmalar dileklerimle
Daha önce göndermiş olduğum dosyada, aşağıdaki kısmı orjinali ile değiştirseniz bu kez, TC. Merkez Bankası'! nın Efektif yerine Döviz alış kurlarını bulabilirsiniz.Birde sizden bir isteğim daha olabilirmi şayet müsaitseniz;
aynı tablonun birde M.B.Döviz alış kuru olarak yapabilirseniz çok çok memnun olurum tekrar teşekkür ederim.
'......
'....
'...
Select Case strYear
Case 1996 To 1998
USD_Alis = RetVal1(2)
USD_SAtis = Left(RetVal1(3), 7)
EUR_Alis = "Gecerli degil !"
EUR_Satis = "Gecerli degil !"
Case 1999 To 2001
USD_Alis = RetVal1(2)
USD_SAtis = Left(RetVal1(3), 9)
EUR_Alis = "Gecerli degil !"
EUR_Satis = "Gecerli degil !"
Case 2002 To 2004
USD_Alis = RetVal1(4)
USD_SAtis = Left(RetVal1(5), 9)
EUR_Alis = RetVal2(3)
EUR_Satis = Left(RetVal2(4), 9)
Case Is >= 2005
USD_Alis = RetVal1(4)
USD_SAtis = Left(RetVal1(5), 6)
EUR_Alis = RetVal2(3)
EUR_Satis = Left(RetVal2(4), 6)
End Select
'.....
'....
'...
syn haluk;Sayın Haluk Bey ;
Yine ben sizide rahatsız dediyorum kusuruma bakmayın
çok uğraştım kodları bir türlü değiştiremedim o yüzden bazı arkadaşlarada danıştım onlarda excel'i tam bilmiyoruz dediler onun için değiştiremedim mümkünse siz M.B.Döviz Alış Kuru gelebilecek gibi düzenleyipde bana gönderebilirseniz çok çok memnun olurum.