Çözüldü vba ile interneten veri almak

[c.sadak]

iyi akşamlar herkese
arkadaşlar sizlerden biraz yardım istiyorum dosyamda döviz adlı sayfaya makro ile döviz kurunu çekiyorum benim sizden istediğim bu iş kodlarla otomatik yapılması

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

sayfasında verinin çekilmesi şimdiden şekekürler

 

[c.sadak]

arkadaşlar yazmayı onutmuşum veriler anasayfa dolar c1 euro d1 gelsin

 

[Refaz]

anasayfa dolar c1 euro d1 gelsin

Birleştirilmiş hücre olduğu için A2 ve A3 yaptım ayarlarsınız.
Modüle ekleyip DovizAL bunu çalıştırın.

If ss = 1 And say = 2 ve If ss = 2 And say = 2 burkaki 2 ler Alış getirir 3 yazarsanız Satış gelir.
Belki kısa kod vardır ama bende bilmiyorum arşivden kodları uyarlaya uyarlaya böyle sonuç çıktı.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Buda gifteki gibi alış ve satışları aktarır.

 

[c.sadak]

Birleştirilmiş hücre olduğu için A2 ve A3 yaptım ayarlarsınız.
Modüle ekleyip DovizAL bunu çalıştırın.

If ss = 1 And say = 2 ve If ss = 2 And say = 2 burkaki 2 ler Alış getirir 3 yazarsanız Satış gelir.
Belki kısa kod vardır ama bende bilmiyorum arşivden kodları uyarlaya uyarlaya böyle sonuç çıktı.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

çok teşekürler
kuru nerden alıyor serbest piyasadanmı yoksa mrkz bankasındamı alıyor

 

[Refaz]

çok teşekürler
kuru nerden alıyor serbest piyasadanmı yoksa mrkz bankasındamı alıyor

Rica ederimKodda yazan adresten.
Yani o adresi açın bir tablo geliyor altta ordan.

 

[Refaz]

Biraz daha kafa yorunca kod kısaldı öncekinde biraz saçma kodlar yazmışım

'MsgBox deger(1).innerText 'Döviz türü bu kod Dolar ve Euro adını veriri eğer eklerseniz diye pasif yaptım ayarlarsınız artık.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Son olarak şunu yazayım.
ilk mesajınızdaki linke tıklayınca önceki mesjda yazdığım sayfa açılıyordu ordan yapmıştım.
Sonra döviz.com u manuel açtım ve oran serbest piyasa ve kapalı çarşı verilerini çektirdim ve dosya adına yazdım.
Sadece tek sayfada yaptım kendinize ayarlarsınız ve .Open "GET" burdaki adres farklı geri kalan herşey aynı kapalı ve serbest için.
Kodlara daha fazla döviz türü ekleyeceksenizde koda devam edersiniz yada döngüyle yaparsınız duruma göre.
Ayrıca ikisi beraber bir dosyada olarak eklendi.

 

[c.sadak]

merhaba kusura bakma ne yaptıysam ayarlayamadım
Altaki kodun içine sadeca kapaalı çarşı alş fiyatını anasayfanın B1 hücresine getirebilimisiniz size zahmet
döviz kodları için ayrı botton istemiyorum çünkü

Not Bu gürünmeyen harf D yani (A7107)


Private Sub LİSTELE_Click()
Application.ScreenUpdating = False
ActiveSheet.Unprotect "5166196"
On Error Resume Next
Sheets("Anasayfa").Range("A7106") = ""
Me.Listele
ActiveSheet.Protect "5166196", AllowFiltering:=True
Application.ScreenUpdating = True
End Sub

 

[c.sadak]

merhaba kusura bakma ne yaptıysam ayarlayamadım
ekteki kodun içine sadeca kapaalı çarşı alş fiyatını anasayfanın B1 hücresine getirebilimisiniz size zahmet
döviz kodları için ayrı botton istemiyorum çünkü


yokardaki kodun tamamı güzükmediği için tekrar yazdım

 

[Refaz]

Merhaba.
Dediğiniz hücre birleştirilmiş hücreydi çözdüm.

Dosya ekte ve B1 e Amerikan Doları geliyor koddan değiştirirsiniz Euro olacaksa.
Me.Listele kodu altına DovizAL yazdım.




HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[c.sadak]

tam da buydu istediğim çok teşekür ederim eline sağlık allaha emanet ol

 

[Refaz]

Rica ederim,sizde.
Kolay gelsin.