How to write Left Function in VB

  • Thread starter Thread starter KLZA
  • Start date Start date
K

KLZA

Hi. I'm trying to programmatically write this line of code into a
macro:

=LEFT(A1,FIND("-",A1)-1)

The function shows all characters to the left of a hyphen. Anything
to the right and the hypen isn't displayed.

Ex. 12345-6789 shows as 12345

I'd like to use this function in code to highlight an entire column
like A:A and display the results in B:B.

I'd also like to ignore rows where no hyphen is found. Can anyone
help on this?
 
I'm trying to programmatically write this line of code into a
macro:

=LEFT(A1,FIND("-",A1)-1)

The function shows all characters to the left of a hyphen. Anything
to the right and the hypen isn't displayed.

Ex. 12345-6789 shows as 12345

I'd like to use this function in code to highlight an entire column
like A:A and display the results in B:B.

I'd also like to ignore rows where no hyphen is found. Can anyone
help on this?
Click to expand...

I would not use the LEFT function at all; the following will be much
quicker...

Sub GetTextBeforeHyphen()
Columns("B").Value = Columns("A").Value
Columns("B").Replace "-*", "", xlPart
End Sub

Rick Rothstein (MVP - Excel)
 
I would not use the LEFT function at all; the following will be much
quicker...

Sub GetTextBeforeHyphen()
    Columns("B").Value = Columns("A").Value
    Columns("B").Replace "-*", "", xlPart
End Sub

Rick Rothstein (MVP - Excel)
Click to expand...

Thanks! I didn't imagine that to be so simple. How do I get this to
work even if certain rows are hidden with a filter?
 
Back
Top