Sayı gibi görünen ondalıklı sayıları düzeltme

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim excel dosyamda ondalıklı sayılar var aşağıdaki kodu uyguluyorum ama sonuç alamıyorum.
Hücre içerisine mouse ile veya F2 ile girip enter ile çıktığımda sayılar düzeliyor, bunu topluca makro ile düzelte bilir miyiz?

Yardımcı olur musunuz?

Sub SayılarıDüzelt()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic
Range("A1") = 1
Range("A1").Copy
Range("N4:AA500").PasteSpecial Paste:=xlPasteAll, operation:=xlMultiply
Application.CutCopyMode = False
Range("N4:AA500").Replace What:="0", Replacement:="", Lookat:=xlWhole, Searchorder:=xlByRows 'Sıfırları yok et
Application.ScreenUpdating = True
Range("A1").Select
CreateObject("WScript.Shell").Popup "İşlem tamam!..", 1, "A S L A N", vbInformation
End Su

 

[igultekin2000]

Merhaba hayırlı geceler.

Sub islem1()
 On Error Resume Next
Son = Cells(ActiveSheet.Rows.Count, "N").End(xlUp).Row
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
    Cells.Replace Chr(160), ""
    For Each huc In ActiveSheet.Range("N2:Y" & Son) 'UsedRange
        huc.Select
        huc.Value = Trim(huc.Value)
    Next
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
End Sub

Sub islem2()
Columns("N:Y").NumberFormat = "#,##0.00"
For sutun = 14 To 25
    For i = 2 To Range("N65536").End(xlUp).Row
        If IsNumeric(Cells(i, sutun).Value) Then Cells(i, sutun).Value = CDbl(Cells(i, sutun).Value)
    Next i
Next sutun
 MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

daha önce kullandığım kodlar, sağolsun üstadlardan istifade ediyoruz

 

[Korhan Ayhan]

Deneyiniz.

Sub SayılarıDüzelt()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationAutomatic
    For Each Veri In Range("N4:AA500")
        Veri.Value = CDbl(Veri.Value)
    Next
    CreateObject("WScript.Shell").Popup "İşlem tamam!..", 1, "A S L A N", vbInformation
End Sub

 

[ASLAN7410]

Sayın igultekin Bey, sizin işlem2 kod işe yaradı, Sayın Korhan Bey sizin kodda işe yaradı.

Ama her iki kodda ekte gönderdiğim N3 ile Y3 hücreleri arasında bulunan formülde Formül Bitişik Hücreleri Atlıyor kısmı işaretli geliyor, bu kısmı Formülü hücreleri İçerecek Şekilde Güncelleştir dediğimde toplamlar değişiyor.

Burada işlem hatası nerede acaba, maalesef bulamadım. Neden toplamları tam olarak toplamıyor, bir türlü çözemedim.

 

[Korhan Ayhan]

Formülünüzün hücre aralığını değiştirip deneyin.

 

[ASLAN7410]

Sayın Korhan Bey, tam istediğim gibi çalışıyor, ellerinize sağlık çok teşekkür ediyorum.

Hayırlı geceler diliyorum.