How to paste cell data into other cells...4 characters at a time.

[crmcguire11]

I have a 20-digit cell that I need to copy to five 4-digit cells on another workbook.

I am just unaware of a way to (logically) select 4 digits, copy, paste, select the next 4 digits in the same cell, copy, paste...cont

The 20-digit cell does not have any delimiting variables. It's a solid 20-digit string.

How would I go about doing that using a macro?

Thanks in advance. I love this site. Fast responses with very helpful advice.

 

[RSXchin]

use the MID function

 

[jasonb75]

In the destination sheet worksheet code module.

Private Sub worksheet_change(ByVal target As Range)
target.TextToColumns Destination:=target, _
        DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(8, 1), _
        Array(12, 1), Array(16, 1))
End Sub

Note:- you will need to restrict the code to the cell(s) where you will be pasting the code(s).

 

[crmcguire11]

Sweet! Thanks for the help!