Delete text after enter key

[Mad1ron]

Hi all,
I have a problem about enter key :D I took data from the internet and in column f there is a lot of unnecessary information. I just need the first sentence, they hit the enter key after the first sentence. Is there any way I can do it with vba? Thanks!!

 

[TheVillageIdiot]

CHAR(10) is a Carriage Return / Enter

With your text in A1, try the following:
=IF(ISERROR(FIND(CHAR(10),A1)),A1,LEFT(A1,FIND(CHAR(10),A1)-1))

I think that there are other Enter key equivalents, so you may have to expand the formula.

 

[Peter_SSs]

If it is a CHAR(10) and ...

• you want to extract in a different column by formula, you could do it more simply with
  

  =LEFT(F1,FIND(CHAR(10),F1&CHAR(10))-1)

  
  
• you want to do it in the same column with vba, you could try this (with a copy of your data

Sub JustFirst()
  With Range("F1", Range("F" & Rows.Count).End(xlUp))
    .Value = Evaluate(Replace("left(#,find(char(10),#&char(10))-1)", "#", .Address))
  End With
End Sub

 

[Mad1ron]

CHAR(10) is a Carriage Return / Enter

With your text in A1, try the following:
=IF(ISERROR(FIND(CHAR(10),A1)),A1,LEFT(A1,FIND(CHAR(10),A1)-1))

I think that there are other Enter key equivalents, so you may have to expand the formula.

Thanks for your reply but they want me do with vba

 

[Mad1ron]

If it is a CHAR(10) and ...

• you want to extract in a different column by formula, you could do it more simply with
  

  =LEFT(F1,FIND(CHAR(10),F1&CHAR(10))-1)

  
  
• you want to do it in the same column with vba, you could try this (with a copy of your data

Sub JustFirst()
  With Range("F1", Range("F" & Rows.Count).End(xlUp))
    .Value = Evaluate(Replace("left(#,find(char(10),#&char(10))-1)", "#", .Address))
  End With
End Sub

Thank you so so so much, it worked very well.

 

[Peter_SSs]

Thank you so so so much, it worked very well.

You're welcome. Thanks for the follow-up.

... but they want me do with vba

In future, best to put such information in your opening post so that helpers don't waste their time on irrelevant suggestions.