Selenium VBA dinamik dropdown box tıklayamıyorum :)

[ptcsite]

Kod çok basit sadece sorun olan kısmı yazıyorum...

Sitemiz : https://www.kap.org.tr/tr/bildirim-sorgu ---->>>> Tarih Aralığı dropboxtan 3 ay aralık seçilerek ara tuşuna basılacak.

İlgili Web html:

<div class="filter-singledrop mCustomScrollbar _mCS_1 mCS-autoHide mCS_no_scrollbar" style="overflow: visible;"><div id="mCSB_1" class="mCustomScrollBox mCS-minimal-dark mCSB_vertical mCSB_outside" style="max-height: 261px;" tabindex="0"><div id="mCSB_1_container" class="mCSB_container mCS_y_hidden mCS_no_scrollbar_y" style="position:relative; top:0; left:0;" dir="ltr">
                            <!---->
                            
                                <a class="filter-singledropselect" href="#" code="0">Bugün</a>
                            
                                <a class="filter-singledropselect selected" href="#" code="1">Dün</a>
                            
                                <a class="filter-singledropselect" href="#" code="30">Son 1 ay</a>
                            
                                <a class="filter-singledropselect" href="#" code="7">Son 1 hafta</a>
                            
                                <a class="filter-singledropselect" href="#" code="90">Son 3 ay</a>
                            
                                <a class="filter-singledropselect" href="#" code="180">Son 6 ay</a>
                            
                                <a class="filter-singledropselect" href="#" code="365">Son 1 yıl</a>
                            
                        </div></div><div id="mCSB_1_scrollbar_vertical" class="mCSB_scrollTools mCSB_1_scrollbar mCS-minimal-dark mCSB_scrollTools_vertical" style="display: none;"><div class="mCSB_draggerContainer"><div id="mCSB_1_dragger_vertical" class="mCSB_dragger" style="position: absolute; min-height: 50px; height: 0px; top: 0px;" oncontextmenu="return false;"><div class="mCSB_dragger_bar" style="line-height: 50px;"></div></div><div class="mCSB_draggerRail"></div></div></div></div>

Excell Selenium Kod:

Public Sub kap()
Dim baglan As New Selenium.ChromeDriver
Set baglan = New Selenium.ChromeDriver
baglan.get "https://www.kap.org.tr/tr/bildirim-sorgu"
baglan.Wait 1500

'Bildirim Gönderim Tarihi Kriterleri

            baglan.FindElementByXPath("//*[@id='email-form']/div[6]/div[1]/div[2]/div").Click
            baglan.Wait 1000

'Son 3 ay seç

            baglan.FindElementByXPath("//*[@id='email-form']/div[6]/div[1]/div[2]/div/a[5]").Click
            baglan.Wait 1000

'ARA Butonuna tıkla
baglan.FindElementByXPath("//*[@id='email-form']/a[1]").Click
baglan.Wait 2000
End Sub