Nöbetçi eczaneleri çektirmek hk

Merhaba,
Aşağıdaki kodları deneyiniz...

teşekkürler kıymetli hocam. Yalnız dünün verilerini çekiyor bunu düzeltemiyoruz sanırım

@ÖmerBey hayırlı geceler.

For a = 1 To h.getElementById("nav-bugun").getElementsByclassname("row").Length - 1


Bu satırda makro hataya düşüyor. Bakma şansınız var mıdır.? Teşekkür ederim.

Merhaba,
Veri alınan site ile ilgili anlık bir problem olmuş olabilir mi?
Ben şimdi denedim hata vermeden çalıştı.

ÖmerBey' Alıntı:

Veri çekilen sitenin aktif gün (bugün) ayarına bağlı bir durum, site hangi veriyi veriyorsa o alınıyor.
Alternatif olarak aşağıdaki kod kullanılabilir, deneyiniz...

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(39 satır)

Genişletmek için tıklayın ...

Üstad kolay gelsin. Bu makroyu module ekleyip çalıştırdığımızda
"Run-time error '438':
Object doesn't support this porperty or method gatası veriyor. Hata satırı olarak da For a = 1 To h.getElementById("nav-bugun").getElementsByclassname("row").Length - 1 gösteriyor.
İşlemi değişik zamanlarda tekrarladım. Office 2016 kullanıyorum .

Açıkçası bilemedim...
Bir de aşağıdaki kodu deneyiniz.

Teşekkürler üstad. Bu çalıştı. Eline sağlık ?

Ömer bey, çok faydalı bir çalışma olmuş, elinize sağlık, teşekkürler.