Excel Useform Üzerinden Accesse Veri Kaydetme

Microsoft Access 16.0 Object Library ekleyerek dener misiniz?
Not:
1 - accesse aktarma kodlarınızda kriter sorunu olabilir, accesse aktarılmış 4500 den fazla boş satır var
2 - çalışma sayfanızı sıfırlayıp yeniden oluşturmanızı öneririm son satır olarak 5695 göründüğünden plainText bloğu gereksiz yere 5600 defa işlem yapıyor hızlandırmak için kodu aşağıdaki gibi düzenleyebilirsiniz
yada belirttiğim gibi yeni bir sayfa oluşturun

For x = 2 To sonstr

    If InStr(1, Range("c" & x), "<font color=") > 0 Then Range("c" & x) = plainText(Range("c" & x))

Next x

(24/08/2021, 10:39)berduş yazdı: Microsoft Access 16.0 Object Library ekleyerek dener misiniz?
Not:
1 - accesse aktarma kodlarınızda kriter sorunu olabilir, accesse aktarılmış 4500 den fazla boş satır var
2 - çalışma sayfanızı sıfırlayıp yeniden oluşturmanızı öneririm son satır olarak 5695 göründüğünden  plainText bloğu gereksiz yere 5600 defa işlem yapıyor hızlandırmak için kodu aşağıdaki gibi düzenleyebilirsiniz
yada belirttiğim gibi yeni bir sayfa oluşturun

For x = 2 To sonstr

    If InStr(1, Range("c" & x), "<font color=") > 0 Then Range("c" & x) = plainText(Range("c" & x))

Next x

Teşekkürler Sayın Berduş