View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Rick Rothstein Rick Rothstein is offline
external usenet poster
 
Posts: 5,934
Default How to write Left Function in VB

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 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)