• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü vba ile interneten veri almak

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
C

c.sadak

Yeni Üye
Kullanıcı Bilgileri
Katılım
15 Şub 2023
Mesajlar
118
Çözümler
1
Aldığı beğeni
14
Excel Versiyonu
Office 2021 TR
Konuyu Başlatan
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ı
Ziyaretçiler için gizlenmiş link,görmek için Giriş yap veya üye ol.
sayfasında verinin çekilmesi şimdiden şekekürler
 

Ekli dosyalar

  • CARİ HESAP.xlsb
    183.3 KB · Gösterim: 7
Çözü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.

Animation.gif


C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Tarihe göre sırala Oylara göre sırala
arkadaşlar yazmayı onutmuşum veriler anasayfa dolar c1 euro d1 gelsin
 
Olumlu oy 0 Negatif oyla
c.sadak' Alıntı:
anasayfa dolar c1 euro d1 gelsin
Genişletmek için tıkla...
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ı.

C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
Buda gifteki gibi alış ve satışları aktarır.

Animation.gif
 

Ekli dosyalar

  • CARİ HESAP.xlsb
    185.9 KB · Gösterim: 5
Olumlu oy 0 Negatif oyla
Refaz' Alıntı:
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ı.

C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
çok teşekürler
kuru nerden alıyor serbest piyasadanmı yoksa mrkz bankasındamı alıyor
 
Olumlu oy 0 Negatif oyla
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.

C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Ekli dosyalar

  • CARİ HESAP.xlsb
    184.2 KB · Gösterim: 6
Son düzenleme:
Olumlu oy 0 Negatif oyla
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.
 

Ekli dosyalar

  • Döviz (KapaliCarsi Döviz.com) tekli döviz.xlsb
    24.7 KB · Gösterim: 4
  • Döviz (Serbest Piyasa Döviz.com) tekli döviz.xlsb
    25.4 KB · Gösterim: 4
  • Döviz (Serbest Piyasa Döviz.com)ve Kapali Carsi tekli döviz.xlsb
    32.2 KB · Gösterim: 3
Son düzenleme:
Olumlu oy 0 Negatif oyla
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 (A7:D107)


Private Sub LİSTELE_Click()
Application.ScreenUpdating = False
ActiveSheet.Unprotect "5166196"
On Error Resume Next
Sheets("Anasayfa").Range("A7:D106") = ""
Me.Listele
ActiveSheet.Protect "5166196", AllowFiltering:=True
Application.ScreenUpdating = True
End Sub
 
Olumlu oy 0 Negatif oyla
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
 

Ekli dosyalar

  • kod.txt
    281 bayt · Gösterim: 3
Olumlu oy 0 Negatif oyla
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.

Animation.gif


C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Ekli dosyalar

  • CARİ HESAP.xlsb
    185 KB · Gösterim: 12
Olumlu oy 1 Negatif oyla
Çözüm
tam da buydu istediğim çok teşekür ederim eline sağlık allaha emanet ol
 
Olumlu oy 0 Negatif oyla
Rica ederim,sizde.
Kolay gelsin.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst