Hi. I would like to modify the following script to be used in an excel Macro.
Dim rng, rng2 As Range
Dim cl As Object
Set rng = Range("A1:A" & Cells.SpecialCells(xlLastCell).Row)
For Each cl In rng
If cl.Value <> "" And (cl.Offset(0, 18).Value = 0) Then
If rng2 Is Nothing Then
Set rng2 = cl
Set rng2 = Union(rng2, cl)
At the end of the script, it should look in column A1 and remove any alpha numeric characters after the first string of numbers.
For instance, in this scenario, in column A1:
ABC123 DESCRIPTION OF PRODUCT
BCD1234567UA ANOTHER PRODUCT DESCRIPTION..
Where data is remaining in Column A after the script has run, it needs to remove the alpha numeric characters after the initial part number. In other words where it finds the first space after the first set of data, it should remove the rest.
Something like this:
Thanks in advance for your assistance.