Excel check len string separated by comma [closed]

by

@David Zemens idea.. this should work .Tested

Sub test()
Dim str As String
Dim s() As String


str = "15f,158,1669,187,15,156,47t"
s = Split(str, ",")


For i = LBound(s) To UBound(s)

If Len(s(i)) = 3 Then

t = IIf(t = "", s(i), t & "," & s(i))

End If

Next i

MsgBox (t)

End Sub

More Related Contents:

  1. to make this code simpler
  2. VBA code takes long time to execute in excel
  3. How can I insert variable into formula in VBA
  4. Wait until ActiveWorkbook.RefreshAll finishes – VBA
  5. Code in VBA loops and never ends. How to fix this?
  6. Excel column number from column name
  7. Pop up the Excel Statusbar?
  8. VBA – destroy a modeless UserForm instance properly
  9. Execute a command in command prompt using excel VBA
  10. “Unable to get the VLookup property of the WorksheetFunction Class” error [duplicate]
  11. Copy data from another Workbook through VBA
  12. Excel VBA Load worksheet in Function
  13. Searching an excel with two search words (multiple lookup) using vba macro [closed]
  14. Excel VBA – Combine rows with duplicate values in one cell and merge values in other cell
  15. Load csv file into a VBA array rather than Excel Sheet
  16. Insert line break in wrapped cell via code
  17. Change color of certain characters in a cell
  18. Want VBA in excel to read very large CSV and create output file of a small subset of the CSV
  19. VBA Macro crashes after 32000 rows
  20. How to create dynamic variable names VBA
  21. How to break a long string into multiple lines
  22. Read VBA macros (or vbaProject.bin) of an Excel file without opening it in MS Excel [closed]
  23. simple vba code gives me run time error 91 object variable or with block not set
  24. Calling regasm without administrative rights for COM interop in Excel VBA
  25. Is there a way for DIR(path) in VBA to handle strings longer than 260?
  26. How do I activate a specific workbook and a specific sheet?
  27. Start VBA macro when editing a cell
  28. VBA Run-time error 438 appears when “paste” runs
  29. If Not function proceeds when value *is* the one specified
  30. Copy an entire worksheet to a new worksheet in Excel 2010

Leave a Comment