تحديد كلمة ضمن الخلية

[safwan911]

السلام عليكم

هل هناك طريقة لتحديد كلمة ضمن الخلية في الاكسل عندما احدد يحدد على الخلية بالكامل

وانا اريد تحديد رمز معين فيها ونقل ما بعده لسطر جديد ضمن الخلية 

وجزاكم الله عنا كل خير..

[Hamdi Edlbi-khalf]

السلام عليكم 

لعلك تريد شيئاً كهذا 

Private Sub Worksheet_selectionChange (ByVal Target As Range)

On Error Resume Next 

If Activecell.WrapText = False then 

Dim X As Integer

X = Application.WorksheetFunction.Find("PutYourCharOrYourCritetiaRange",Activecell,1)

If  X > 0 then 

Activecell = Mid (Activecell.value,1,X) & chr(10) & Mid (Activecell.value, X+1,Len(Activecell))

End If

End If 

End Sub