Sayın Ömer,
Bunuda denedim olmadı sayıdan sonra bşluk yok sadece ikinci bir satır var ve buyüzden hesaplamalarda kullamıyorum. başka önerileriniz varsa deneyebilirim teşekkürler
Sub düzelt()
For r = 5 To Cells(Rows.Count, "B").End(3).Row
For i = 1 To 6
Cells(r, i).Value = WorksheetFunction.Trim(Replace(Cells(r, i).Value, Chr(10), ""))
If IsDate(Cells(r, i).Value) <> True Then
If IsNumeric(Cells(r, i).Value) = True Then
Cells(r, i).Value = WorksheetFunction.Trim(Cells(r, i).Value) * 1
End If
End If
Next i
Next r
MsgBox "işlem tamam"
End Sub
Sayın Ömer ve sayın Halit
Her ikinize zaman ayırdığınız için çok teşekkür ederim. Sayın Halitin yazmış olduğu kod ile sorun çözüldü emeklerinize sağlık