Separating Data

[Boop914]

Nope, I'm nowhere near done, but did a test run on about a dozen rows of
data. That did take a while too, so I'm thinking if I finish by the end
of the week (between all other things to get done), I'll be in good
shape.

Thanks again for the great instructions -

 

[Mark]

Hi,
I just came in and do not know exactly what is going on
but could you send me some sample data and maybe I could
write a macro to do the work. See some of my handiwork at
http://au.geocities.com/excelmarksway
http://www.geocities.com/excelmarksway

You will have say exactly what is required for me to
understand the deed.

[email protected]

- - Mark

 

[Don Guillett]

Mark, Nice site.

I did like your
Finds 1, 2, & 3 in a string eg: afdcvpod1cfk2gvdflk3
where the cell is D2
=CONCATENATE(LEFT(1,FIND(1,$D$2)),";",LEFT(2,FIND(1,$D$2)),";",LEFT(3,FIND(1
,$D$2)))

The result is 1;2;3
==========
I took a look at your addsup.
May be better w/o selections. You could also wrap within a with to do from
any page.

Sub addsup()'Yours
Dim T As Object
Dim B As Object
Range("E3").Select
Set T = Selection
Selection.End(xlDown).Select
Set B = Selection
ActiveCell.Offset(1, 0).Select
Selection.Formula = "=sum(" & T.Address & ":" & B.Address & ")"
End Sub

Sub addsupdon()'NO selections
fa = Range("e3").Address
la = Range("e3").End(xlDown).Address
Range(la).Offset(1) = Application.Sum(Range(fa & ":" & la))
End Sub

Sub addsupdon1()'from anywhere in workbook
With Sheets("sheet9").Range("e3")
fa = .Address
la = .End(xlDown).Address
Range(la).Offset(1) = Application.Sum(Range(fa & ":" & la))
End With
End Sub