Çözüldü EPDK Sitesinden Akaryakıt Fiyatlarını Çekmek

[Hsn55]

İyi günler;
Ekli dosyada yakıt bilgileri sayfasından E7 ve F7 hücresine tarih girdiğimde ve sorgula butonuna bastığımda ekli linkteki epdk sitesinden akaryakıt fiyatlarını E12:F19 hücrelerine web sayfasından aldırmak mümkün müdür. Yarımcı olabilirseniz sevinirim . EBİS Bildirim Sistemi

 

[Caylak]

Merhabalar, ekli dosyayı inceleyiniz.

 

[Hsn55]

Sayın Çaylak bey çok teşekkür ederim. Çok güzel çalışıyor. Sadece bir iki yerde sıkıntı var. Bunlar giderilebilirse sorun kalmayacak
1- E7 ve F7 hücrelerinden biri yada ikisi boş olduğu zaman fiyat almaması gerekirken bugünün fiyatını alıyor.
2- 2022 den önceki bir tarihi seçtiğim zaman gelen fiyatların önünde şöyle karakterler oluyor. n7.07000 -)7.08333 Buda düzeltilebilir mi?

 

[Caylak]

Merhaba, ekli dosyayı deneyiniz

 

[Hsn55]

Sayın Caylak F7 deki tarihi seçince veriler gelmiyor

 

[mozuer]

Ekteki çalışma işinizi görürse kendinize uyarlarsınız...

 

[Hsn55]

Sayın mozuer ; çok güzel çalışma. Veriler çok yavaş çekiyor. Sayın Caylakın yapmış olduğu makro ile 3-4 saniyede . Sizinkinde 7-8 saniye arasında alıyor. Hızlanabilir mi acaba

 

[Caylak]

Sayın Caylak F7 deki tarihi seçince veriler gelmiyor

Merhaba,
Akşam dikkatli bakmamışım kodları kopyala yapıştır yaparken F sütununu değiştirmeyi unutmuşum, ekli dosyayı inceleyiniz.

 

[Hsn55]

Hocam Başlangıç tarihi boş olduğu zaman (e7) Bitiş tarihi dolu olduğu zaman veriler gelmiyor. Tersi olduğu zaman sıkıntı yok

 

[Caylak]

Hocam Başlangıç tarihi boş olduğu zaman (e7) Bitiş tarihi dolu olduğu zaman veriler gelmiyor. Tersi olduğu zaman sıkıntı yok

Başlangıç tarihini neden boş bırakıyorsunuz anlamadım, başlangıç olmadan bitiş olur mu?
Modül içerisindeki kodları aşağıdaki şekilde değiştirip dener misiniz?

Sub Sorgula()
Range("E12:F19") = ""
If Range("E7") = "" And Range("F7") <> "" Then
UserForm2.Show
Else
UserForm1.Show
End If
End Sub

 

[Hsn55]

Hocam şimdi tam istediğim şekilde oldu. Çok teşekkür ederim. Ellerinize sağlık.