View Single Post
  #2   Report Post  
Fredrik Wahlgren
 
Posts: n/a
Default


"JL" wrote in message
...
I am trying to manipulate strings dumped into Excel from
another system. I am combining strings from column G into
a single cell in column H, which works well. However, I
don't want the strings strung together in the cell. I
would like to do the equivalent of the ALT + enter
function after each string so that they are in their
own "lines". I would think that this would be possible,
but can't figure it out. A portion of my code is below.

Thank you

Dim ct As Integer
ct = 0
test = 0
If ActiveCell.Value < "" Then
loop1:
ct = ct + 1
cmb = ActiveCell.Value
If ActiveCell.Offset(ct, 0).Value = " " Then
Do Until test = ct
cmb = cmb & ActiveCell.Offset(test + 1, 0).Value 'need
help here
test = test + 1
Loop

ActiveCell.Offset(0, 1).Value = cmb
ActiveCell.Offset(ct + 1, 0).Select
GoTo rs
End If


GoTo loop1
End If


The first thing you should look at is the system that creates the file. It
may have an option that results in a file that is easier to import. I think
it would be easier for us if you pasted a represenative portion of the file
contents and how you want it to be interpreted in Excel.

/Fredrik