Sayıların arasındaki boşlukların yerine nokta koyamıyorum

[Bozkurt06]

cümleten selamun aleyküm muhasebesini tuttuğum bir firmamı başka bir programa aktarıcaktım. aktarma sırasında mevcut kullanmış olduğum programın hesap planındaki rakamların arasının boşluklu fakat geçeceğim programın hesap planındaki rakamların arasının noktalı olması gerektiğini öğrendim. boşlukları silip nokta koymaya çalışsam da bazı yerlerde hatalı oluyodu bunun kısa bir yolu var mı? şu anki ve olması gereken hallerini aşağıya bırakıyorum
not: bul ve değiştir ile yapmak çözüm olmuyor bazı yerlerde sapıtıp farklı yerlere de nokta koyuyor.
100 00 --- 100.00
102 00 --- 102.00
102 01 03 --- 102.01.03
102 01 04 --- 102.01.04
120 0001 --- 120.0001
120 0002 --- 120.0002
180 2023 11 1 --- 180.2023.11.1
180 2023 12 1 --- 180.2023.12.1

 

[ÖmerBey]

Merhaba,
Dosyanızın yedeğini alıp deneyiniz...

Sub kod()
Dim alan As Range
Set alan = Range("A1:A1000") 'İşlem yapılacak veri aralığı
With alan
    dz = .Value
    For a = 1 To UBound(dz)
        dz(a, 1) = Replace(dz(a, 1), " ", ".")
    Next
    .NumberFormat = "@"
    .Value = dz
End With
End Sub

 

[Zeki Gürsoy]

Bul-değiştir yapmadan önce, hesap kodlarının olduğu kolonun tamamını "Metin" olarak biçimlendirin.

.