find p- and split before it to next cell

[shrinivasmj]

i need a vba code

its in cell b1 split to cell c2

find p- and split before it to next cell

CLI-65389 CLI-OvQ-Jmn_65389 P-805183301131393 RMLCEOSHGHMVKTNB Western Mutual Insurance Group B6ZT9YJ7 Protection Plans LI2542168 475 2 Year YVONNE M NELSON 460 W SCHULTE RD ATLANTA CA 90136 (773) 224-9209 3

 

[shrinivasmj]

this id data

AMI-77561 AMI-OvQ-Jmn_77561 P-751502213743641 IIJH7NQSP58AGIZB American International Group (AIG) 4A592HCA Liability Insurance C192373823 1000 1 Year JEFF CHUDY 601 E 11th St New York NY 10009-4167 (909) 549-0475 N.A. 4 Wheeler Medallion White AU7lBECHC630KN VXYKKLDUROOZZCE3G 5/19/2011 Credit Card 90 15 enRoute C-201471432106888 N.A. JEFF CHUDY 4jjhoex17a636swi

 

[Peter_SSs]

Try this version then

Sub Split_Text_v2()
  With Range("B1", Range("B" & Rows.Count).End(xlUp))
    .Replace What:=" P-", Replacement:="|P-", LookAt:=xlPart
    .TextToColumns DataType:=xlDelimited, Tab:=False, Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar:="|"
  End With
End Sub

 

[shrinivasmj]

i need the vb code were i can set + or - if i put the function were there text is 798797-ytutu and i will assign find - and -6

 

[Peter_SSs]

i need the vb code were i can set + or - if i put the function were there text is 798797-ytutu and i will assign find - and -6

This appears to be a new question & I don't understand it. Sample data and expected results please.

Did the suggested code answer the original question?

 

[shrinivasmj]

Cell.Offset(1,1).Value = Left(Cell.Value,Instr(Cell.Value,"P-")-1)

want a to add last like -1)

 

[Peter_SSs]

..

Sample data and expected results please.

Did the suggested code answer the original question?