VBA Left

[Livin404]

Greetings I have USA / 0002 in column H starting in row 5. The only thing I want up & down the Column is the first three letters. In the example I want to be left with USA. The there are nearly 300 different letter codes.

The code I'm wanting to use is, but I'm off the mark: Thank you!

Sub UseLeft()
Dim LResult As String
 With Range("H5", Range("H" & Rows.Count).End(xlUp))
LResult = Left(text, 3)
 End With
End Sub

 

[silentwolf]

Hi,
so you like to get only the first three letters from a column? Where do you like to have the result? In the same column?
Use a function instead to return the value.

Function ReturnFirstThreeLetters(ByVal strText As String) As String
    ReturnFirstThreeLetters = Left(strText, 3)
End Function

 

[davesexcel]

Loop through and just keep the 1st 3

Sub UseLeft()
    Dim sh As Worksheet
    Dim c As Range
    Set sh = ActiveSheet
    With sh
        For Each c In .Range("H5:H" & .Cells(.Rows.Count, "H").End(xlUp).Row)
            c = Left(c, 3)
        Next
    End With
End Sub

 

[footoo]

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

 

[Livin404]

Hi,
so you like to get only the first three letters from a column? Where do you like to have the result? In the same column?
Use a function instead to return the value.

Function ReturnFirstThreeLetters(ByVal strText As String) As String
    ReturnFirstThreeLetters = Left(strText, 3)
End Function

yes the same column I want all other data in those cells deleted leaving the first three characters in the same column. I use exclusively Sub if I can. I get muddled with Functions especially when I'm asked to run the macro. Thank you

 

[Livin404]

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

Thank you exactly what I was looking for.