Left function VBA

[Livin404]

Greetings, something strange is causing my LEFT VBA to duplicate everything. While it does leave with the first three letters, it is also unfortunately duplicating everything. In the example with the VBA below in leaves KUW in every row. Obviously I don't want this to happen. I know my code needs just a little tweak. Thank you,

Sub UseLeft()
Dim r$: r = Range("H2", Range("H" & Rows.Count).End(xlUp)).Address
Range(r) = Evaluate("=Left(" & r & ", 3)")
End Sub

 

[Fluff]

How about

Sub UseLeft()
Dim r$: r = Range("H2", Range("H" & Rows.count).End(xlUp)).Address
Range(r) = Evaluate("if({1},Left(" & r & ", 3))")
End Sub

 

[Livin404]

As always, perfect thank you!

 

[Fluff]

You're welcome & thanks for the feedback.

 

[Rick Rothstein]

Just pointing out that since your data is so well structured (the three characters you want followed by a space-slash-space plus other text), you can use this simple one-liner to remove all but the first three characters...

Sub UseLeft()
  Columns("H").Replace " / *", "", xlPart, , , , False, False
End Sub

 

[Livin404]

Just pointing out that since your data is so well structured (the three characters you want followed by a space-slash-space plus other text), you can use this simple one-liner to remove all but the first three characters...

Sub UseLeft()
  Columns("H").Replace " / *", "", xlPart, , , , False, False
End Sub

Thank you so much for your input, reinforces there are multiple ways to get the same result. I did respond with more details regarding those dates you were helping me with the other day.