örnek dosya ekliyorum.

If OzurluID = "tblOzurluDevamsizlikToplam" Then

        Set satırlar = WebBrowser.Document.getElementById(OzurluID).getElementsByTagName("tr")

            Dim yazıyıbul As String

        For Each satır In satırlar

            yazıyıbul = satır.getElementsByTagName("td")(1).innertext

        If Trim(yazıyıbul) = "Özürlü Devamsızlık Toplamı" Then

            Me.ozurluD = Split(Trim(satır.getElementsByTagName("td")(3).innertext))(0)

        End If

        Next satır

End If

    

If OzursuzID = "tblOzursuzDevamsizlikToplam" Then

        Set satırlar = WebBrowser.Document.getElementById(OzursuzID).getElementsByTagName("tr")

            Dim yazıbul As String

        For Each satır In satırlar

            yazıbul = satır.getElementsByTagName("td")(1).innertext

        If Trim(yazıbul) = "Özürsüz Devamsızlık Toplamı" Then

            Me.ozursuzD = Split(Trim(satır.getElementsByTagName("td")(3).innertext))(0)

        End If

        Next satır

End If

kod çalışmıyor yardımcı olabilir misiniz.