UserForm Güncel Döviz Kuru

[alikemal_84]

Merhaba Arkadaşlar Siteye İlk konumu açıyorum. Genelde aradığımı bula bildiğimden konu açma isteğim olmamıştı.

Benim sorunun oluşturduğum UseFormdaki Label21'e güncel Euro ve Dolar kurlarını çekmek istiyorum. Bunun için nasıl bir formül yazmalıyım. Herhangi bir hücreye bir şey yazmadan sadece Label21 yazdırmak istiyorum.


Örnek: USD Alış : 2,1764
USD Satış: 2,1803
EUR Alış: 2,8871
EUR Satış: 2,8923

Yardımlarınız için şimdiden teşekkürler.

 

[alikemal_84]

Yardım edebilecek arkadaş yokmu?

 

[Erdem Akdemir]

Merhaba,

Ek'teki dosya işinizi görecektir. Renkli alanlara kur bilgilerini alır, veri'den tümünü yenile derseniz, devamlı olarak tcmb'deki güncel kuru alır.

 

[Tevfik_Kursun]

Merhaba Arkadaş,
Ekli dosyayı kullanabilirsiniz diye düşünüyorum. İnceleyin.
İyi çalışmalar

 

[Tevfik_Kursun]

Sayın Kuvari,
Paylaşımınız için teşekkürler.
Elinize sağlık

 

[alikemal_84]

Sayın Kuvari ve Teyfik arkadaşlarım verdiğiniz bilgiler için çok teşekkürler.
Fakat benim istediğim Kuvari arkadaşımızın verdigi bilgiyi userformda labele yazdırmak.
Gelen bilgide sanırım bir de virgül sorunu var.

TCMB Döviz Kurları
Döviz Alış Döviz Satış
Dolar 21.776 21.815
Euro 28.740 28.791

 

[997serhat]

hocam altın üye olmadığımız için göremiyoruz :S

 

[Tevfik_Kursun]

Sayın Kuvari Arkadaşım,
Aylardır aradığım olaydı. Tekrar teşekkür ederim. Ancak kendi dosyama uyarlayamadım.
Aa01 de görülen Dış Veri Aralığı Özellikleri'ne ulaşamadım.
Aa02 de görülen menüde sadece Tümünü Yenile aktif, diğerleri pasif.
Acaba nerede hata yaptım?
Saygılarımla

 

[Erdem Akdemir]

Merhaba,

Ali kemal'bey merhaba,sizin için küçük bir örnek ekliyorum. Dosya açılışta kendini otomatik olarak güncelliyor, isterseniz isteğe bağlıda olabilir.

Label nesnesine verileri almak zahmetli bir iş, daha az zahmetli olan listbox nesnesini kullandım.

Tevfik bey merhaba, ben hata göremedim. Hata veren dosyanızı ekleyebilir misiniz.

 

[Erdem Akdemir]

hocam altın üye olmadığımız için göremiyoruz :S

serhat bey aşağıdaki linkten indirebilirsiniz.

http://www.dosya.tc/server34/BwesvF/_rnek.rar.html

 

[alikemal_84]

Merhaba,

Ali kemal'bey merhaba,sizin için küçük bir örnek ekliyorum. Dosya açılışta kendini otomatik olarak güncelliyor, isterseniz isteğe bağlıda olabilir.

Label nesnesine verileri almak zahmetli bir iş, daha az zahmetli olan listbox nesnesini kullandım.

Tevfik bey merhaba, ben hata göremedim. Hata veren dosyanızı ekleyebilir misiniz.

Çok teşekkürler Kuvari bey.
En kısa zamanda ekleyip buradan yazacağım.

 

[Tevfik_Kursun]

Haklısınız, dikkatimden kaçmış. Çok güzel çalışıyor.
Tekrar teşekkür ederim.
Kolay gelsin. İyi çalışmalar.

 

[halit3]

Alternatif kod
Aşağıdaki kodu bir userforma ekleyin ayrıca Userforma 1 adet listbox nesnesi,1 adet CommandButton ekleyin ve komut düğmesine tıklayın

Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Sub CommandButton1_Click()

ListBox1.ColumnHeads = False
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "50;50;50"
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
With ie

ie.Navigate "http://www.tcmb.gov.tr/yeni/tablolar.php"

ie.Visible = 1
apiShowWindow ie.hwnd, 2
Do Until ie.ReadyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
Do Until ie.ReadyState = 4: DoEvents: Loop

Set tbl = ie.document.GetElementsByTagName("table").Item(3)
k = 0
For i = 2 To tbl.Rows.Length - 1
ListBox1.AddItem
For j = 0 To tbl.Rows(i).Cells.Length - 1
ListBox1.List(k, j) = tbl.Rows(i).Cells(j).innertext
Next
k = k + 1

Next
ie.Quit: Set ie = Nothing
End With
MsgBox "işlem tamam"
End Sub

 

[assenucler]

Bir rica

Değerli dostlar merhabalar;


Userform konusunda yeterli bilgim yok, sayın halit3 üstadın eklediği kodları içeren Userform'lu bir dosyayı forum dostlarının eklemesini rica edeceğim.

İlgi, yardım ve paylaşımlarınız ile katkı veren üstatlara içten teşekkürler.

 

[Tevfik_Kursun]

Sayın Assenucler Arkadaşım,
Örneğiniz ektedir. İyi çalışmalar dilerim.

 

[halit3]

Değerli dostlar merhabalar;


Userform konusunda yeterli bilgim yok, sayın halit3 üstadın eklediği kodları içeren Userform'lu bir dosyayı forum dostlarının eklemesini rica edeceğim.

İlgi, yardım ve paylaşımlarınız ile katkı veren üstatlara içten teşekkürler.

Görsel video ekliyorum.

görsel video

 

[assenucler]

Teşekkürler

Sayın halit3,


Gününüz aydınlık, neşeniz sağlığınız yerinde ve her şey gönlünüzce olsun.

Halit bey inceliğiniz, bilgeliğiniz, sevgi dolu yüreğiniz yanında, eğitici ve yol gösterici yönünüzle bıkmadan ve usanmadan bizlerin düşünce karanlıklarını aydınlatan, bizlere yol gösteren ve ışığımız olan eğitim gönüllüsü üstatlarımızın en başında gelenisiniz.

Eklediğiniz eğitici video için çok teşekkür eder, en içten sevgi ve saygılarımı sunarım.

 

[assenucler]

Sayın Tevfik_Kursun,


Günaydın arkadaşım.

Yardımınız için teşekkür eder. Her şeyin gönlünüzün güzelliğince olmasını dilerim.

İstanbul'dan Antakya'ya selam, sevgi ve saygılar.

 

[alikemal_84]

Merhaba,

Ali kemal'bey merhaba,sizin için küçük bir örnek ekliyorum. Dosya açılışta kendini otomatik olarak güncelliyor, isterseniz isteğe bağlıda olabilir.

Label nesnesine verileri almak zahmetli bir iş, daha az zahmetli olan listbox nesnesini kullandım.

Tevfik bey merhaba, ben hata göremedim. Hata veren dosyanızı ekleyebilir misiniz.

Sayın Kuvari,
İş yoğunluğundan dolayı biraz geç yazıyorum kusura bakmayın.
Verdiğiniz örnek ve değerli bilgiler için çok teşekkürler.

 

[cemberkan]

Selamlar..