Hi All,

I am using Excel as an interface to import some process data into a
modelling tool. One of the limitations of the modelling tool is that
any data in the sheet has to be enclosed in quote or speech marks to
import the data.

I have only just discovered this and have a lot of data that has been
imported into the tool which is now unreadable.

Can anyone provide some VBA that will add speech marks i.e. " sample
text " to each line of text in each cell.

Thanks in advance.

Will

> each line of text in each cell.

If you mean you might have multiple lines in a cell separated with LineFeeds
try the following. Select cells in a column and ensure there are empy cells
to the right, run the macro.

Sub QuoteEm()
Dim i as Long
Dim va
Dim rCell As Range

For Each rCell In Selection
va = Split(rCell, vbLf)
For i = LBound(va) To UBound(va)
va(i) = Chr(34) & va(i) & Chr(34)
Next
rCell.Offset(, 1) = Join(va, vbLf)
Next

End Sub

Regards,
Peter T


"Will" <(E-Mail Removed)> wrote in message
news:2b7e718e-55f9-4c35-8a19-(E-Mail Removed)...
> Hi All,
>
> I am using Excel as an interface to import some process data into a
> modelling tool. One of the limitations of the modelling tool is that
> any data in the sheet has to be enclosed in quote or speech marks to
> import the data.
>
> I have only just discovered this and have a lot of data that has been
> imported into the tool which is now unreadable.
>
> Can anyone provide some VBA that will add speech marks i.e. " sample
> text " to each line of text in each cell.
>
> Thanks in advance.
>
> Will

Sub cellquotes()
Dim cell As Range
For Each cell In Range("A1:A100").Cells
If cell.Value <> "" Then
cell.Value = Chr(34) & cell.Value & Chr(34)
End If
Next
End Sub

"Peter T" <peter_t@discussions> wrote in message
news:(E-Mail Removed)...
>> each line of text in each cell.
>
> If you mean you might have multiple lines in a cell separated with
> LineFeeds try the following. Select cells in a column and ensure there are
> empy cells to the right, run the macro.
>
> Sub QuoteEm()
> Dim i as Long
> Dim va
> Dim rCell As Range
>
> For Each rCell In Selection
> va = Split(rCell, vbLf)
> For i = LBound(va) To UBound(va)
> va(i) = Chr(34) & va(i) & Chr(34)
> Next
> rCell.Offset(, 1) = Join(va, vbLf)
> Next
>
> End Sub
>
> Regards,
> Peter T
>
>
> "Will" <(E-Mail Removed)> wrote in message
> news:2b7e718e-55f9-4c35-8a19-(E-Mail Removed)...
>> Hi All,
>>
>> I am using Excel as an interface to import some process data into a
>> modelling tool. One of the limitations of the modelling tool is that
>> any data in the sheet has to be enclosed in quote or speech marks to
>> import the data.
>>
>> I have only just discovered this and have a lot of data that has been
>> imported into the tool which is now unreadable.
>>
>> Can anyone provide some VBA that will add speech marks i.e. " sample
>> text " to each line of text in each cell.
>>
>> Thanks in advance.
>>
>> Will
>
>

On 22 July, 11:09, "Patrick Molloy" <patrick_mol...@hotmail.com>
wrote:
> Sub cellquotes()
> Dim cell As Range
> For Each cell In Range("A1:A100").Cells
> * * If cell.Value <> "" Then
> * * * * cell.Value = Chr(34) & cell.Value & Chr(34)
> * * End If
> Next
> End Sub
>
> "Peter T" <peter_t@discussions> wrote in message
>
> news:(E-Mail Removed)...
>
>
>
> >> each line of text in each cell.
>
> > If you mean you might have multiple lines in a cell separated with
> > LineFeeds try the following. Select cells in a column and ensure there are
> > empy cells to the right, run the macro.
>
> > Sub QuoteEm()
> > Dim i as Long
> > Dim va
> > Dim rCell As Range
>
> > * *For Each rCell In Selection
> > * * * *va = Split(rCell, vbLf)
> > * * * *For i = LBound(va) To UBound(va)
> > * * * * * *va(i) = Chr(34) & va(i) & Chr(34)
> > * * * *Next
> > * * * *rCell.Offset(, 1) = Join(va, vbLf)
> > * *Next
>
> > End Sub
>
> > Regards,
> > Peter T
>
> > "Will" <willc...@yahoo.com> wrote in message
> >news:2b7e718e-55f9-4c35-8a19-(E-Mail Removed)...
> >> Hi All,
>
> >> I am using Excel as an interface to import some process data into a
> >> modelling tool. *One of the limitations of the modelling tool is that
> >> any data in the sheet has to be enclosed in quote or speech marks to
> >> import the data.
>
> >> I have only just discovered this and have a lot of data that has been
> >> imported into the tool which is now unreadable.
>
> >> Can anyone provide some VBA that will add speech marks i.e. " sample
> >> text " to each line of text in each cell.
>
> >> Thanks in advance.
>
> >> Will- Hide quoted text -
>
> - Show quoted text -

Great, thanks Peter and Patrick