Merhaba,

   

For GSayi = 0 To 99 yerine

   

For GSayi = 0 To GVeriTablo.rows.length - 1

yazarsanız kod tablodaki sütun sayısına göre çalışır.

Kodu aşağıdaki ile değiştirerek deneyiniz. 

Sub verial()

Dim GVeriTablo As Object

Dim GSayi As Integer

Dim rc As DAO.Recordset

  

Set GVeriTablo = Me.WebBrowser0.Document.getElementById("form1:j_id1905403385_4de847a4:dtIslemMalzeme_data")

Set rc = CurrentDb.OpenRecordset("sut")

    GSayi = 0

    

     For GSayi = 0 To GVeriTablo.rows.length - 1

   

        rc.AddNew

           rc![Sut] = WebBrowser0.Document.getElementById("form1:j_id1905403385_4de847a4:sutKodu").Value

           rc![Barkod] = GVeriTablo.rows(GSayi).cells(0).innerText

           rc![Firma] = GVeriTablo.rows(GSayi).cells(1).innerText

           rc![baslaNgic] = Format(GVeriTablo.rows(GSayi).cells(2).innerText, "dd.mm.yyyy")

           rc![bitis] = Format(GVeriTablo.rows(GSayi).cells(3).innerText, "dd.mm.yyyy")

            

            rc.Update

            

  Next GSayi

    

    Set rc = Nothing

    Set GVeriTablo = Nothing

    Me.sutalt.Requery

    

End Sub