DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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