Çözüldü vba ile interneten veri almak

C

c.sadak

Yeni Üye

Katılım

15 Şub 2023

Mesajlar

118

Çözümler

1

Aldığı beğeni

14

Excel V

Office 2021 TR

• 2 Kas 2023

• #2

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

 

Olumlu oy 0 Negatif oyla

Refaz

Destek Ekibi

Katılım

11 Ağu 2021

Mesajlar

5,155

Çözümler

653

Aldığı beğeni

5,011

Excel V

Office 2024 TR

• 3 Kas 2023

• #3

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ı.

HTML:

C#:

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

 

Son düzenleme: 3 Kas 2023

Olumlu oy 0 Negatif oyla

Refaz

Destek Ekibi

Katılım

11 Ağu 2021

Mesajlar

5,155

Çözümler

653

Aldığı beğeni

5,011

Excel V

Office 2024 TR

• 3 Kas 2023

• #4

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

 

Ekli dosyalar

• CARİ HESAP.xlsb

  185.9 KB · Gösterim: 5

Olumlu oy 0 Negatif oyla

C

c.sadak

Yeni Üye

Katılım

15 Şub 2023

Mesajlar

118

Çözümler

1

Aldığı beğeni

14

Excel V

Office 2021 TR

• 3 Kas 2023

• #5

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ı.

HTML:

C#:

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

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

Refaz

Destek Ekibi

Katılım

11 Ağu 2021

Mesajlar

5,155

Çözümler

653

Aldığı beğeni

5,011

Excel V

Office 2024 TR

• 3 Kas 2023

• #6

c.sadak' Alıntı:

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

Genişletmek için tıkla...

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

 

Olumlu oy 0 Negatif oyla

Refaz

Destek Ekibi

Katılım

11 Ağu 2021

Mesajlar

5,155

Çözümler

653

Aldığı beğeni

5,011

Excel V

Office 2024 TR

• 4 Kas 2023

• #7

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:

C#:

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

 

Ekli dosyalar

• CARİ HESAP.xlsb

  184.2 KB · Gösterim: 7

Son düzenleme: 5 Kas 2023

Olumlu oy 0 Negatif oyla

Refaz

Destek Ekibi

Katılım

11 Ağu 2021

Mesajlar

5,155

Çözümler

653

Aldığı beğeni

5,011

Excel V

Office 2024 TR

• 5 Kas 2023

• #8

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: 5
• Döviz (Serbest Piyasa Döviz.com) tekli döviz.xlsb

  25.4 KB · Gösterim: 5
• Döviz (Serbest Piyasa Döviz.com)ve Kapali Carsi tekli döviz.xlsb

  32.2 KB · Gösterim: 4

Son düzenleme: 6 Kas 2023

Olumlu oy 0 Negatif oyla

C

c.sadak

Yeni Üye

Katılım

15 Şub 2023

Mesajlar

118

Çözümler

1

Aldığı beğeni

14

Excel V

Office 2021 TR

• 6 Kas 2023

• #9

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

 

Olumlu oy 0 Negatif oyla

C

c.sadak

Yeni Üye

Katılım

15 Şub 2023

Mesajlar

118

Çözümler

1

Aldığı beğeni

14

Excel V

Office 2021 TR

• 6 Kas 2023

• #10

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: 4

Olumlu oy 0 Negatif oyla

Refaz

Destek Ekibi

Katılım

11 Ağu 2021

Mesajlar

5,155

Çözümler

653

Aldığı beğeni

5,011

Excel V

Office 2024 TR

• 6 Kas 2023

• #11

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:

C#:

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

 

Ekli dosyalar

• CARİ HESAP.xlsb

  185 KB · Gösterim: 13

Olumlu oy 1 Negatif oyla

Çözüm

C

c.sadak

Yeni Üye

Katılım

15 Şub 2023

Mesajlar

118

Çözümler

1

Aldığı beğeni

14

Excel V

Office 2021 TR

• 6 Kas 2023

• #12

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

 

Olumlu oy 0 Negatif oyla

Refaz

Destek Ekibi

Katılım

11 Ağu 2021

Mesajlar

5,155

Çözümler

653

Aldığı beğeni

5,011

Excel V

Office 2024 TR

• 6 Kas 2023

• #13

Rica ederim,sizde.
Kolay gelsin.

 

Olumlu oy 0 Negatif oyla