PDA

View Full Version : Solved: separate specific symbols in order of priority



marreco
02-16-2013, 04:00 PM
Hi.

I have in column "A" some 20,000 data, text and numbers.

I need to find the symbols (ml, g, -, L, Oz)

I need column D those same lines are the only units: (ml, g, -, L, Oz) Oz always considering the least, because it is not used in Brazil.

Thank you!

Paul_Hossler
02-17-2013, 07:29 AM
I'd use a user defined funtion, just to make things more maintainable



Option Explicit
'I need to find the symbols (ml, g, -, L, Oz)
Function ExtractSymbol(v As Variant) As String
If InStr(UCase(v), "ML") > 0 Then
ExtractSymbol = "ml"
ElseIf InStr(UCase(v), "G") > 0 Then
ExtractSymbol = "g"
ElseIf InStr(v, "-") > 0 Then
ExtractSymbol = "-"
ElseIf InStr(UCase(v), "L") > 0 Then
ExtractSymbol = "L"
ElseIf InStr(UCase(v), "OZ") > 0 Then
ExtractSymbol = "oz"
Else
ExtractSymbol = vbNullString
End If
End Function



Paul

marreco
02-17-2013, 07:51 AM
was awesome!!

I loved your response, brilahente!

Thank you very much!