10001031 BISCUIT TUC NATURE 100G Ea BEACH SHOP -6 Transfer
material between subinventories 3435516 is in cell A1
Formulas/results have to be in cell B1,C1,D1,E1,....etc
Thxs
try...
Sub ParseValues()
Dim vData
vData = Split([A1].Value, " ")
With Range("B1").Resize(1, UBound(vData) + 1)
.Value = vData: .Columns.AutoFit
End With
End Sub
--
Garry
Free usenet access at
http://www.eternal-september.org
Classic
VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.
vb.general.discussion
---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus