add specific character in the beginning of item into column

[abdo meghari]

hello
I would add BS in the beginning of item for each cell into column B

list.xlsx
	B
1	BRAND
2	175/70R13 B25 INDO
3	175/70R13 EP150 THI
4	185/70R13 EP150 INDO
5	175/65R14 EP150 THI
6	175/65R14 B25 INDO
7	175/70R14 EP150 THI
8	175/70R14 MY02 THI
9	185/65R14 TEC THI
10	185/65R14 150EZ INDO
11	185/65R14 EP150 INDO
12	195/70R14 150EZ INDO
13	185/65R15 TC10 INDO
14	185/65R15 T005 INDO
15	185/65R15 T01 JAP
16	185/65R15 B250 JAP
17	195/60R15 AR20 INDO
18	195/60R15 EP150 THI
19	195/60R15 T001 JAP
1

result

list.xlsx
	B
1	BRAND
2	BS 175/70R13 B25 INDO
3	BS 175/70R13 EP150 THI
4	BS 185/70R13 EP150 INDO
5	BS 175/65R14 EP150 THI
6	BS 175/65R14 B25 INDO
7	BS 175/70R14 EP150 THI
8	BS 175/70R14 MY02 THI
9	BS 185/65R14 TEC THI
10	BS 185/65R14 150EZ INDO
11	BS 185/65R14 EP150 INDO
12	BS 195/70R14 150EZ INDO
13	BS 185/65R15 TC10 INDO
14	BS 185/65R15 T005 INDO
15	BS 185/65R15 T01 JAP
16	BS 185/65R15 B250 JAP
17	BS 195/60R15 AR20 INDO
18	BS 195/60R15 EP150 THI
19	BS 195/60R15 T001 JAP
1

thanks

 

[kweaver]

Is there something you're not telling us that goes beyond "BS " & text ???

 

[abdo meghari]

just two letters BS not more , not less

 

[Fluff]

How about

Sub abdomeghari()
   With Range("B2", Range("B" & Rows.Count).End(xlUp))
      .Value = Evaluate("if({1},""BS ""&trim(" & .Address & "))")
   End With
End Sub

 

[abdo meghari]

@Fluff thanks for the code, but may you fix the code? I don't want to repeat adding BS for many times if I run the code more than time .

it should just add one time even if I run macro repeatedly

 

[Fluff]

You never said anything about that before & when questioned you said

just two letters BS not more , not less

Which is exactly what the code does.

If you cannot be bothered to give correct & accurate information at the start, why should members waste their time trying to help you?

 

[abdo meghari]

based on picture I thought when run the macro should achieve it without problem, but accidentally ,I ran the macro more than time shows this problem.

list.xlsx
	B
1	BRAND
2	BS BS 175/70R13 B25 INDO
3	BS BS 175/70R13 EP150 THI
4	BS BS 185/70R13 EP150 INDO
5	BS BS 175/65R14 EP150 THI
6	BS BS 175/65R14 B25 INDO
7	BS BS 175/70R14 EP150 THI
8	BS BS 175/70R14 MY02 THI
9	BS BS 185/65R14 TEC THI
10	BS BS 185/65R14 150EZ INDO
11	BS BS 185/65R14 EP150 INDO
12	BS BS 195/70R14 150EZ INDO
13	BS BS 185/65R15 TC10 INDO
14	BS BS 185/65R15 T005 INDO
1

I don't expect to occur that , if I know to happen this case , from normal I will inform you in OP , sorry !

 

[Fluff]

How about

Sub abdomeghari()
   With Range("B2", Range("B" & Rows.Count).End(xlUp))
      .Value = Evaluate(Replace("if(left(@,2)=""BS"",@,""BS ""&trim(" & .Address & "))", "@", .Address))
   End With
End Sub

 

[abdo meghari]

great ! many thanks for your time

 

[Fluff]

You're welcome & thanks for the feedback.