Soru ALT SATIRA YAZDIRMA

[Mukteda]

Merhaba,
ERP Programından aldığım verilerdeki yabancı karakterleri önemli ölçüde temizeyebildim.
Ancak yanlış kelimeler var bunların düzeltilmesi mümkün olabilir mi?
Ayrıca ekteki gibi alt alta satırlarda yazmak istiyorum.
Nasıl yapabilirim?
Teşekkürler

İndir Ayıklama

Dosyayı indir Ayıklama

dosya.co

 

[Mukteda]

Günceldir.

 

[excelokyanus500]

Deneyin

 Declare Function lstrlen Lib "kernel32" Alias "lstrlenW" ( _
    ByVal lpString As Long) As Long

 Declare Function StrTrim Lib "shlwapi" Alias "StrTrimW" ( _
    ByVal pszSource As Long, _
    ByVal pszTrimChars As Long) As Long



Sub duzenle()
Dim str() As String
Set Rng = Range("b3:B5") 
For Each cell In Rng

If cell <> " " Then
str = VBA.Split(cell, "*")
For I = 0 To UBound(str)
   cell.Offset(0, 1).Value = TrimWS(cell.Offset(0, 1).Value & Chr(10) & str(I))
  
Next I
End If

Next cell

End Sub
Function TrimWS(ByVal Text As String) As String
    'Unicode-safe.
    Const WHITE_SPACE As String = " " & vbTab & vbCr & vbLf

    If StrTrim(StrPtr(Text), StrPtr(WHITE_SPACE)) Then
        TrimWS = Left$(Text, lstrlen(StrPtr(Text)))
    Else
        TrimWS = Text
    End If
End Function

 

[Mukteda]

Merhaba,
Alt alta satır yazdırma tamamdır.
Yabancı karakter temizleme ise %80-90 oranında temizliyor.
Yardımınız için teşekkür ederim.