Cutting letters from alphanumeric cell entry, pasting to another cell

by

Assuming you’re working with the first sheet and you’re always stripping off the last two characters while leaving the first 5 characters, the following code will work:

Public Sub StripOff()
  Dim iRow as Integer
  iRow = 2       'Assuming row 1 is headers, else make this 1
  While Sheets(1).Range("I" + Cstr(iRow)).Value <> ""
    Sheets(1).Range("L" + CStr(iRow)).Value = Right(Sheets(1).Range("I" + Cstr(iRow)).Value, 2)
    Sheets(1).Range("I" + Cstr(iRow)).Value = Left(Sheets(1).Range("I" + Cstr(iRow)).Value, 5)
    iRow = iRow + 1
  Wend
End Sub

More Related Contents:

  1. Format Cell Contents
  2. Excel formula checklist in employees
  3. Copy Paste Values only( xlPasteValues )
  4. Loading addins when Excel is instantiated programmatically
  5. Excel’s fullname property with OneDrive
  6. How to insert an embedded picture?
  7. Copy Excel range as Picture to Outlook
  8. Obtain attribute names from XML using VBA
  9. Return RGB values from Range.Interior.Color (or any other Color Property)
  10. excel VBA run macro automatically whenever a cell is changed
  11. Translate text using vba
  12. Run-time error ‘1004’ : Method ‘Range’ of object’_Global’ failed
  13. “Can’t find Project or Library” for standard VBA functions
  14. How do I issue an HTTP GET from Excel VBA for Mac
  15. Copy sheet and get resulting sheet object?
  16. Sending mail using Outlook where the Send method fails
  17. How do I apply a SumIf Formula in a VBA Sub? Getting Error 1004
  18. Using a variable for row in (row,column) for a range in VBA
  19. Export chart as image – with click of a button
  20. Unicode string literals in VBA
  21. How to get the path of current worksheet in VBA?
  22. Excel VBA to match and line up rows
  23. Change font color for a part of text in cell
  24. Create a new object using the text name of the class
  25. Excel cell from which a Function is called [duplicate]
  26. How to extract text within a string of text
  27. How to open a workbook specifying its path
  28. GET pictures from a url and then rename the picture
  29. Access files with long paths (over 260)
  30. How to highlight selected text within excel

Leave a Comment