Private Sub btnGetDate_Click()
On Error GoTo hata
Dim tablo()
    
    'chrome başlatıyoruz
    driver.Start
    '-sayfayı açıyoruz
    driver.Get "https://asist.turkak.org.tr/tr/QMS/QMSDocumentsList", , False
    
    '-crohme büyütüyoruz
    driver.Window.Maximize
    
    '-sayfanın yüklenmesini kontrol ediyoruz
    Do While driver.ExecuteScript("return document.readyState") <> "complete"
        DoEvents
    Loop
    
    '-yarım saniye bekliyoruz
    driver.wait 500
    
    '-rehber sekmesine tıklıyoruz
    driver.FindElementByXPath("//*[@id='heading_5']/button").Click
    '-bir saniye bekliyoruz
    driver.wait 1200
    
    '-tablo şeklinde alıyoruz
    tablo = driver.FindElementByCss(".table.ng-star-inserted").AsTable.Data
    
    '-aldığımız verilerin tarih kısmını buluyoruz ve metin kutusuna aktarıyoruz..
    '-Metin Kutu adını veri olarak değiştirdim..
    Me.veri = tablo(2, 3)
    
'alttaki şekilde de istediğin satırdaki verileri çekelirsin
    'For i = 2 To UBound(tablo)
    '    Debug.Print tablo(i, 1) & " / " & tablo(i, 2) & " / " & tablo(i, 3)
    'Next
    
    
    '-chrome kapatıyoruz
    driver.Quit
    MsgBox "veri çelikmiştir.."
 Exit Sub
hata:
driver.Quit
MsgBox "hata oluştu veri çekilemedi"
 
End Sub