VBA/EXCEL: extract numbers from one cell that contained multiple values with comma

Vote count:

0

http://ift.tt/18mXr3l is the images.

Problem:

Hello i would like to modify this code, so it understand multiple values. the best i came was the barcode scanner, im a novice in vba but really i really enjoying it. this is a fun project that i do so please help me. thanks guys.

Private Sub Worksheet_Change(ByVal Target As Range)

Const SCAN_CELL As String = "A1"
Const RANGE_BC As String = "A5:A500"
Dim val, f As Range, rngCodes As Range

If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Me.Range(SCAN_CELL)) Is Nothing Then Exit Sub

val = Trim(Target.Value)
If Len(val) = 0 Then Exit Sub

Set rngCodes = Me.Range(RANGE_BC)

Set f = rngCodes.Find(val, , xlValues, xlWhole)
If Not f Is Nothing Then
    With f.Offset(0, 2)
        .Value = .Value + 1
    End With
Else
    Set f = rngCodes.Cells(rngCodes.Cells.Count).End(xlUp).Offset(1, 0)
    f.Value = val
    f.Offset(0, 1).Value = "enter description"
    f.Offset(0, 2).Value = 1
End If

Application.EnableEvents = False
Target.Value = ""
Application.EnableEvents = True

Target.Select

End Sub

asked 22 secs ago

mario

1

VBA/EXCEL: extract numbers from one cell that contained multiple values with comma