(23/08/2021, 23:46)berduş yazdı: bir de zaten çalışmanıza ActiveX Data Object xx.x Library eklenmişti, CreateObject("adodb.connection") yapısına gerek yoktu kullandığım şablonu kullanmanız daha uygun olurdu

con.Open "provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.Path & "\ANA SAYFA.accdb;" & _
"Jet OLEDBatabase Password= 1234"
Yazmış olduğunuz bu kod bloğu ile sorunu çözdüm berduş hocam teşekkürler

rica ederim
iyi çalışmalar

Berduş hocam yazmış olduğunuz makroyu asıl dosyama uygulamaya çalıştığımda

For x = 2 To sonstr

Range("c" & x) = plainText(Range("c" & x))

Next x

burada hata alıyorum

Sorunuzu ilgili konuya yazmalısınız,