Modül1'e

Public Function BosluklariSil(ByVal GVeri As String) As String

    Do Until InStr(1, GVeri, " ") = 0

        GVeri = Replace(GVeri, " ", "", 1)

    Loop

    BosluklariSil = Trim(GVeri)

End Function

kodu ekleyip modülü kaydet,

worde aktarma kodundaki ilgili yeri de

     .TypeText Format(BosluklariSil([hesapno1].Column(2)), "@@@@ @@@@ @@@@ @@@@ @@@@ @@@@ @@")

kodu ile değiştirerek dene.