hücre değerleri hk

[zamenya]

sayın leumruk öncelikle vakit ayrdığınız için çok teşekkür ederimi lk eklediğim dosyayı örnek olarak(verileri manuel girmiştim) hazırlamıştım ama 2. eklediğim dosya asıl rapor aldığım dosya

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub Boşluk_Temizle()
    Dim Hücre As Range
    Application.ScreenUpdating = False
    For Each Hücre In Range("A4:M" & [A65536].End(3).Row)
    If Hücre.Column = 8 Or Hücre.Column = 9 Or Hücre.Column = 11 Then
    Hücre.Value = Replace(Hücre.Value, ".", "-")
    Hücre.Value = Replace(Hücre.Value, Chr(160), "")
    Hücre.Value = Replace("'" & Hücre.Value, "-", ".")
    ElseIf Hücre.Column = 13 Then
    Hücre.Value = Replace(Trim(Hücre.Value), Chr(160), "")
    Hücre.NumberFormat = "yyyy-mm-dd hh:mm:ss.0"
    Else
    Hücre.Value = Trim(Replace(Trim(Hücre.Value), Chr(160), ""))
    End If
    Next Hücre
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[zamenya]

sayın korhan hocam kusura bakmayın biraz geç cevap yazdığım için emeğinize sağlık korhan hocam verdiğiniz kodlar problemsiz çalışıyor teşekkürler