software

Hello everyone. We have the requirement to continually input text into a
cell, and have the ability to keep the existing data already there, and just
add to it. The problem is once I have data in one cell, leave, and come back
to add more data, it erases the previous information already within that
cell. I have tried the Merge cells function and other options within Excel.
The data we are inputting is more text than numbers. We are using Excel 2003.

Thanks, Richhere is one I have used for numbers modified for text.
right click sheet tabgt;view codegt;insert thisgt;

Option Explicit
Dim oldvalue As String

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = quot;$A$5quot; Then
On Error GoTo fixit
Application.EnableEvents = False
'If Target.Value = 0 Then oldvalue = 0
'Target.Value = Target.Value amp; quot; quot; amp; oldvalue
oldvalue = Target.Value
fixit:
Application.EnableEvents = True
End If
End Sub--
Don Guillett
SalesAid Software

quot;RichPquot; gt; wrote in message
...
gt;
gt; Hello everyone. We have the requirement to continually input text into a
gt; cell, and have the ability to keep the existing data already there, and
gt; just
gt; add to it. The problem is once I have data in one cell, leave, and come
gt; back
gt; to add more data, it erases the previous information already within that
gt; cell. I have tried the Merge cells function and other options within
gt; Excel.
gt; The data we are inputting is more text than numbers. We are using Excel
gt; 2003.
gt;
gt; Thanks, Rich
gt;
Use this instead so you can start over in that cell

Option Explicit
Dim oldvalue As String

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = quot;$A$5quot; Then
On Error GoTo fixit
Application.EnableEvents = False
If Target = quot;quot; Or Target = quot; quot; Then oldvalue = quot;quot;
Target.Value = oldvalue amp; quot; quot; amp; Target.Value
oldvalue = Target.Value
fixit:
Application.EnableEvents = True
End If
End Sub

--
Don Guillett
SalesAid Software

quot;Don Guillettquot; gt; wrote in message
...
gt; here is one I have used for numbers modified for text.
gt; right click sheet tabgt;view codegt;insert thisgt;
gt;
gt; Option Explicit
gt; Dim oldvalue As String
gt;
gt; Private Sub Worksheet_Change(ByVal Target As Excel.Range)
gt; If Target.Address = quot;$A$5quot; Then
gt; On Error GoTo fixit
gt; Application.EnableEvents = False
gt; 'If Target.Value = 0 Then oldvalue = 0
gt; 'Target.Value = Target.Value amp; quot; quot; amp; oldvalue
gt; oldvalue = Target.Value
gt; fixit:
gt; Application.EnableEvents = True
gt; End If
gt; End Sub
gt;
gt;
gt; --
gt; Don Guillett
gt; SalesAid Software
gt;
gt; quot;RichPquot; gt; wrote in message
gt; ...
gt;gt;
gt;gt; Hello everyone. We have the requirement to continually input text into a
gt;gt; cell, and have the ability to keep the existing data already there, and
gt;gt; just
gt;gt; add to it. The problem is once I have data in one cell, leave, and come
gt;gt; back
gt;gt; to add more data, it erases the previous information already within that
gt;gt; cell. I have tried the Merge cells function and other options within
gt;gt; Excel.
gt;gt; The data we are inputting is more text than numbers. We are using Excel
gt;gt; 2003.
gt;gt;
gt;gt; Thanks, Rich
gt;gt;
gt;
gt;
Don:

Can you expand on what this macro is doing?
If i enter in cell A5 This lt;lt;and returngt;gt;
then again with A5 the active cell I enter quot;is a testquot;
(without the quotes).. I get is a test
From what's being asked it seems the what should
be displayed is This is a test..
Confused, (all too often)..
TIA,
quot;Don Guillettquot; gt; wrote in message
...
gt; here is one I have used for numbers modified for text.
gt; right click sheet tabgt;view codegt;insert thisgt;
gt;
gt; Option Explicit
gt; Dim oldvalue As String
gt;
gt; Private Sub Worksheet_Change(ByVal Target As Excel.Range)
gt; If Target.Address = quot;$A$5quot; Then
gt; On Error GoTo fixit
gt; Application.EnableEvents = False
gt; 'If Target.Value = 0 Then oldvalue = 0
gt; 'Target.Value = Target.Value amp; quot; quot; amp; oldvalue
gt; oldvalue = Target.Value
gt; fixit:
gt; Application.EnableEvents = True
gt; End If
gt; End Sub
gt;
gt;
gt; --
gt; Don Guillett
gt; SalesAid Software
gt;
gt; quot;RichPquot; gt; wrote in message
gt; ...
gt;gt;
gt;gt; Hello everyone. We have the requirement to continually input text into a
gt;gt; cell, and have the ability to keep the existing data already there, and
gt;gt; just
gt;gt; add to it. The problem is once I have data in one cell, leave, and come
gt;gt; back
gt;gt; to add more data, it erases the previous information already within that
gt;gt; cell. I have tried the Merge cells function and other options within
gt;gt; Excel.
gt;gt; The data we are inputting is more text than numbers. We are using Excel
gt;gt; 2003.
gt;gt;
gt;gt; Thanks, Rich
gt;gt;
gt;
gt;
Look at my last post

--
Don Guillett
SalesAid Software

quot;Jim Mayquot; gt; wrote in message
news:SIVSf.250046$oG.219016@dukeread02...
gt; Don:
gt;
gt; Can you expand on what this macro is doing?
gt; If i enter in cell A5 This lt;lt;and returngt;gt;
gt; then again with A5 the active cell I enter quot;is a testquot;
gt; (without the quotes).. I get is a test
gt; From what's being asked it seems the what should
gt; be displayed is This is a test..
gt; Confused, (all too often)..
gt; TIA,
gt;
gt;
gt;
gt; quot;Don Guillettquot; gt; wrote in message
gt; ...
gt;gt; here is one I have used for numbers modified for text.
gt;gt; right click sheet tabgt;view codegt;insert thisgt;
gt;gt;
gt;gt; Option Explicit
gt;gt; Dim oldvalue As String
gt;gt;
gt;gt; Private Sub Worksheet_Change(ByVal Target As Excel.Range)
gt;gt; If Target.Address = quot;$A$5quot; Then
gt;gt; On Error GoTo fixit
gt;gt; Application.EnableEvents = False
gt;gt; 'If Target.Value = 0 Then oldvalue = 0
gt;gt; 'Target.Value = Target.Value amp; quot; quot; amp; oldvalue
gt;gt; oldvalue = Target.Value
gt;gt; fixit:
gt;gt; Application.EnableEvents = True
gt;gt; End If
gt;gt; End Sub
gt;gt;
gt;gt;
gt;gt; --
gt;gt; Don Guillett
gt;gt; SalesAid Software
gt;gt;
gt;gt; quot;RichPquot; gt; wrote in message
gt;gt; ...
gt;gt;gt;
gt;gt;gt; Hello everyone. We have the requirement to continually input text into a
gt;gt;gt; cell, and have the ability to keep the existing data already there, and
gt;gt;gt; just
gt;gt;gt; add to it. The problem is once I have data in one cell, leave, and come
gt;gt;gt; back
gt;gt;gt; to add more data, it erases the previous information already within that
gt;gt;gt; cell. I have tried the Merge cells function and other options within
gt;gt;gt; Excel.
gt;gt;gt; The data we are inputting is more text than numbers. We are using Excel
gt;gt;gt; 2003.
gt;gt;gt;
gt;gt;gt; Thanks, Rich
gt;gt;gt;
gt;gt;
gt;gt;
gt;
gt;
Yeah,
Got it;
Only small glitch.. Currently
the quot; quot; is creating leading spaces.
Even when A5 is clear the =len(a5) = 1
This is good stuff (you've done).
TIA,
Jim

quot;Don Guillettquot; gt; wrote in message
...
gt; Look at my last post
gt;
gt; --
gt; Don Guillett
gt; SalesAid Software
gt;
gt; quot;Jim Mayquot; gt; wrote in message
gt; news:SIVSf.250046$oG.219016@dukeread02...
gt;gt; Don:
gt;gt;
gt;gt; Can you expand on what this macro is doing?
gt;gt; If i enter in cell A5 This lt;lt;and returngt;gt;
gt;gt; then again with A5 the active cell I enter quot;is a testquot;
gt;gt; (without the quotes).. I get is a test
gt;gt; From what's being asked it seems the what should
gt;gt; be displayed is This is a test..
gt;gt; Confused, (all too often)..
gt;gt; TIA,
gt;gt;
gt;gt;
gt;gt;
gt;gt; quot;Don Guillettquot; gt; wrote in message
gt;gt; ...
gt;gt;gt; here is one I have used for numbers modified for text.
gt;gt;gt; right click sheet tabgt;view codegt;insert thisgt;
gt;gt;gt;
gt;gt;gt; Option Explicit
gt;gt;gt; Dim oldvalue As String
gt;gt;gt;
gt;gt;gt; Private Sub Worksheet_Change(ByVal Target As Excel.Range)
gt;gt;gt; If Target.Address = quot;$A$5quot; Then
gt;gt;gt; On Error GoTo fixit
gt;gt;gt; Application.EnableEvents = False
gt;gt;gt; 'If Target.Value = 0 Then oldvalue = 0
gt;gt;gt; 'Target.Value = Target.Value amp; quot; quot; amp; oldvalue
gt;gt;gt; oldvalue = Target.Value
gt;gt;gt; fixit:
gt;gt;gt; Application.EnableEvents = True
gt;gt;gt; End If
gt;gt;gt; End Sub
gt;gt;gt;
gt;gt;gt;
gt;gt;gt; --
gt;gt;gt; Don Guillett
gt;gt;gt; SalesAid Software
gt;gt;gt;
gt;gt;gt; quot;RichPquot; gt; wrote in message
gt;gt;gt; ...
gt;gt;gt;gt;
gt;gt;gt;gt; Hello everyone. We have the requirement to continually input text into
gt;gt;gt;gt; a
gt;gt;gt;gt; cell, and have the ability to keep the existing data already there, and
gt;gt;gt;gt; just
gt;gt;gt;gt; add to it. The problem is once I have data in one cell, leave, and come
gt;gt;gt;gt; back
gt;gt;gt;gt; to add more data, it erases the previous information already within
gt;gt;gt;gt; that
gt;gt;gt;gt; cell. I have tried the Merge cells function and other options within
gt;gt;gt;gt; Excel.
gt;gt;gt;gt; The data we are inputting is more text than numbers. We are using Excel
gt;gt;gt;gt; 2003.
gt;gt;gt;gt;
gt;gt;gt;gt; Thanks, Rich
gt;gt;gt;gt;
gt;gt;gt;
gt;gt;gt;
gt;gt;
gt;gt;
gt;
gt;
this should fix all. Use either the delete key or spacebar to start over.

Option Explicit
Dim oldvalue As String

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = quot;$A$5quot; Then
On Error GoTo fixit
Application.EnableEvents = False
If Target = quot;quot; Or Target = quot; quot; Then
oldvalue = quot;quot;
Else
Target.Value = Trim(oldvalue amp; quot; quot; amp; Target)
oldvalue = Target
End If
fixit:
Application.EnableEvents = True
End If
End Sub

--
Don Guillett
SalesAid Software

quot;Jim Mayquot; gt; wrote in message
news:ZWVSf.250049$oG.87497@dukeread02...
gt; Yeah,
gt; Got it;
gt; Only small glitch.. Currently
gt; the quot; quot; is creating leading spaces.
gt; Even when A5 is clear the =len(a5) = 1
gt; This is good stuff (you've done).
gt; TIA,
gt; Jim
gt;
gt; quot;Don Guillettquot; gt; wrote in message
gt; ...
gt;gt; Look at my last post
gt;gt;
gt;gt; --
gt;gt; Don Guillett
gt;gt; SalesAid Software
gt;gt;
gt;gt; quot;Jim Mayquot; gt; wrote in message
gt;gt; news:SIVSf.250046$oG.219016@dukeread02...
gt;gt;gt; Don:
gt;gt;gt;
gt;gt;gt; Can you expand on what this macro is doing?
gt;gt;gt; If i enter in cell A5 This lt;lt;and returngt;gt;
gt;gt;gt; then again with A5 the active cell I enter quot;is a testquot;
gt;gt;gt; (without the quotes).. I get is a test
gt;gt;gt; From what's being asked it seems the what should
gt;gt;gt; be displayed is This is a test..
gt;gt;gt; Confused, (all too often)..
gt;gt;gt; TIA,
gt;gt;gt;
gt;gt;gt;
gt;gt;gt;
gt;gt;gt; quot;Don Guillettquot; gt; wrote in message
gt;gt;gt; ...
gt;gt;gt;gt; here is one I have used for numbers modified for text.
gt;gt;gt;gt; right click sheet tabgt;view codegt;insert thisgt;
gt;gt;gt;gt;
gt;gt;gt;gt; Option Explicit
gt;gt;gt;gt; Dim oldvalue As String
gt;gt;gt;gt;
gt;gt;gt;gt; Private Sub Worksheet_Change(ByVal Target As Excel.Range)
gt;gt;gt;gt; If Target.Address = quot;$A$5quot; Then
gt;gt;gt;gt; On Error GoTo fixit
gt;gt;gt;gt; Application.EnableEvents = False
gt;gt;gt;gt; 'If Target.Value = 0 Then oldvalue = 0
gt;gt;gt;gt; 'Target.Value = Target.Value amp; quot; quot; amp; oldvalue
gt;gt;gt;gt; oldvalue = Target.Value
gt;gt;gt;gt; fixit:
gt;gt;gt;gt; Application.EnableEvents = True
gt;gt;gt;gt; End If
gt;gt;gt;gt; End Sub
gt;gt;gt;gt;
gt;gt;gt;gt;
gt;gt;gt;gt; --
gt;gt;gt;gt; Don Guillett
gt;gt;gt;gt; SalesAid Software
gt;gt;gt;gt;
gt;gt;gt;gt; quot;RichPquot; gt; wrote in message
gt;gt;gt;gt; ...
gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt; Hello everyone. We have the requirement to continually input text into
gt;gt;gt;gt;gt; a
gt;gt;gt;gt;gt; cell, and have the ability to keep the existing data already there,
gt;gt;gt;gt;gt; and just
gt;gt;gt;gt;gt; add to it. The problem is once I have data in one cell, leave, and
gt;gt;gt;gt;gt; come back
gt;gt;gt;gt;gt; to add more data, it erases the previous information already within
gt;gt;gt;gt;gt; that
gt;gt;gt;gt;gt; cell. I have tried the Merge cells function and other options within
gt;gt;gt;gt;gt; Excel.
gt;gt;gt;gt;gt; The data we are inputting is more text than numbers. We are using
gt;gt;gt;gt;gt; Excel 2003.
gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt; Thanks, Rich
gt;gt;gt;gt;gt;
gt;gt;gt;gt;
gt;gt;gt;gt;
gt;gt;gt;
gt;gt;gt;
gt;gt;
gt;gt;
gt;
gt;
Great,
Thanks for your input.
Jim

quot;Don Guillettquot; gt; wrote in message
...
gt; this should fix all. Use either the delete key or spacebar to start over.
gt;
gt; Option Explicit
gt; Dim oldvalue As String
gt;
gt; Private Sub Worksheet_Change(ByVal Target As Excel.Range)
gt; If Target.Address = quot;$A$5quot; Then
gt; On Error GoTo fixit
gt; Application.EnableEvents = False
gt; If Target = quot;quot; Or Target = quot; quot; Then
gt; oldvalue = quot;quot;
gt; Else
gt; Target.Value = Trim(oldvalue amp; quot; quot; amp; Target)
gt; oldvalue = Target
gt; End If
gt; fixit:
gt; Application.EnableEvents = True
gt; End If
gt; End Sub
gt;
gt; --
gt; Don Guillett
gt; SalesAid Software
gt;
gt; quot;Jim Mayquot; gt; wrote in message
gt; news:ZWVSf.250049$oG.87497@dukeread02...
gt;gt; Yeah,
gt;gt; Got it;
gt;gt; Only small glitch.. Currently
gt;gt; the quot; quot; is creating leading spaces.
gt;gt; Even when A5 is clear the =len(a5) = 1
gt;gt; This is good stuff (you've done).
gt;gt; TIA,
gt;gt; Jim
gt;gt;
gt;gt; quot;Don Guillettquot; gt; wrote in message
gt;gt; ...
gt;gt;gt; Look at my last post
gt;gt;gt;
gt;gt;gt; --
gt;gt;gt; Don Guillett
gt;gt;gt; SalesAid Software
gt;gt;gt;
gt;gt;gt; quot;Jim Mayquot; gt; wrote in message
gt;gt;gt; news:SIVSf.250046$oG.219016@dukeread02...
gt;gt;gt;gt; Don:
gt;gt;gt;gt;
gt;gt;gt;gt; Can you expand on what this macro is doing?
gt;gt;gt;gt; If i enter in cell A5 This lt;lt;and returngt;gt;
gt;gt;gt;gt; then again with A5 the active cell I enter quot;is a testquot;
gt;gt;gt;gt; (without the quotes).. I get is a test
gt;gt;gt;gt; From what's being asked it seems the what should
gt;gt;gt;gt; be displayed is This is a test..
gt;gt;gt;gt; Confused, (all too often)..
gt;gt;gt;gt; TIA,
gt;gt;gt;gt;
gt;gt;gt;gt;
gt;gt;gt;gt;
gt;gt;gt;gt; quot;Don Guillettquot; gt; wrote in message
gt;gt;gt;gt; ...
gt;gt;gt;gt;gt; here is one I have used for numbers modified for text.
gt;gt;gt;gt;gt; right click sheet tabgt;view codegt;insert thisgt;
gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt; Option Explicit
gt;gt;gt;gt;gt; Dim oldvalue As String
gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt; Private Sub Worksheet_Change(ByVal Target As Excel.Range)
gt;gt;gt;gt;gt; If Target.Address = quot;$A$5quot; Then
gt;gt;gt;gt;gt; On Error GoTo fixit
gt;gt;gt;gt;gt; Application.EnableEvents = False
gt;gt;gt;gt;gt; 'If Target.Value = 0 Then oldvalue = 0
gt;gt;gt;gt;gt; 'Target.Value = Target.Value amp; quot; quot; amp; oldvalue
gt;gt;gt;gt;gt; oldvalue = Target.Value
gt;gt;gt;gt;gt; fixit:
gt;gt;gt;gt;gt; Application.EnableEvents = True
gt;gt;gt;gt;gt; End If
gt;gt;gt;gt;gt; End Sub
gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt; --
gt;gt;gt;gt;gt; Don Guillett
gt;gt;gt;gt;gt; SalesAid Software
gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt; quot;RichPquot; gt; wrote in message
gt;gt;gt;gt;gt; ...
gt;gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt;gt; Hello everyone. We have the requirement to continually input text
gt;gt;gt;gt;gt;gt; into a
gt;gt;gt;gt;gt;gt; cell, and have the ability to keep the existing data already there,
gt;gt;gt;gt;gt;gt; and just
gt;gt;gt;gt;gt;gt; add to it. The problem is once I have data in one cell, leave, and
gt;gt;gt;gt;gt;gt; come back
gt;gt;gt;gt;gt;gt; to add more data, it erases the previous information already within
gt;gt;gt;gt;gt;gt; that
gt;gt;gt;gt;gt;gt; cell. I have tried the Merge cells function and other options within
gt;gt;gt;gt;gt;gt; Excel.
gt;gt;gt;gt;gt;gt; The data we are inputting is more text than numbers. We are using
gt;gt;gt;gt;gt;gt; Excel 2003.
gt;gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt;gt; Thanks, Rich
gt;gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt;
gt;gt;gt;gt;
gt;gt;gt;gt;
gt;gt;gt;
gt;gt;gt;
gt;gt;
gt;gt;
gt;
gt;
glad to help

--
Don Guillett
SalesAid Software

quot;Jim Mayquot; gt; wrote in message
news:e7kTf.270785$oG.30308@dukeread02...
gt; Great,
gt; Thanks for your input.
gt; Jim
gt;
gt; quot;Don Guillettquot; gt; wrote in message
gt; ...
gt;gt; this should fix all. Use either the delete key or spacebar to start over.
gt;gt;
gt;gt; Option Explicit
gt;gt; Dim oldvalue As String
gt;gt;
gt;gt; Private Sub Worksheet_Change(ByVal Target As Excel.Range)
gt;gt; If Target.Address = quot;$A$5quot; Then
gt;gt; On Error GoTo fixit
gt;gt; Application.EnableEvents = False
gt;gt; If Target = quot;quot; Or Target = quot; quot; Then
gt;gt; oldvalue = quot;quot;
gt;gt; Else
gt;gt; Target.Value = Trim(oldvalue amp; quot; quot; amp; Target)
gt;gt; oldvalue = Target
gt;gt; End If
gt;gt; fixit:
gt;gt; Application.EnableEvents = True
gt;gt; End If
gt;gt; End Sub
gt;gt;
gt;gt; --
gt;gt; Don Guillett
gt;gt; SalesAid Software
gt;gt;
gt;gt; quot;Jim Mayquot; gt; wrote in message
gt;gt; news:ZWVSf.250049$oG.87497@dukeread02...
gt;gt;gt; Yeah,
gt;gt;gt; Got it;
gt;gt;gt; Only small glitch.. Currently
gt;gt;gt; the quot; quot; is creating leading spaces.
gt;gt;gt; Even when A5 is clear the =len(a5) = 1
gt;gt;gt; This is good stuff (you've done).
gt;gt;gt; TIA,
gt;gt;gt; Jim
gt;gt;gt;
gt;gt;gt; quot;Don Guillettquot; gt; wrote in message
gt;gt;gt; ...
gt;gt;gt;gt; Look at my last post
gt;gt;gt;gt;
gt;gt;gt;gt; --
gt;gt;gt;gt; Don Guillett
gt;gt;gt;gt; SalesAid Software
gt;gt;gt;gt;
gt;gt;gt;gt; quot;Jim Mayquot; gt; wrote in message
gt;gt;gt;gt; news:SIVSf.250046$oG.219016@dukeread02...
gt;gt;gt;gt;gt; Don:
gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt; Can you expand on what this macro is doing?
gt;gt;gt;gt;gt; If i enter in cell A5 This lt;lt;and returngt;gt;
gt;gt;gt;gt;gt; then again with A5 the active cell I enter quot;is a testquot;
gt;gt;gt;gt;gt; (without the quotes).. I get is a test
gt;gt;gt;gt;gt; From what's being asked it seems the what should
gt;gt;gt;gt;gt; be displayed is This is a test..
gt;gt;gt;gt;gt; Confused, (all too often)..
gt;gt;gt;gt;gt; TIA,
gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt; quot;Don Guillettquot; gt; wrote in message
gt;gt;gt;gt;gt; ...
gt;gt;gt;gt;gt;gt; here is one I have used for numbers modified for text.
gt;gt;gt;gt;gt;gt; right click sheet tabgt;view codegt;insert thisgt;
gt;gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt;gt; Option Explicit
gt;gt;gt;gt;gt;gt; Dim oldvalue As String
gt;gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt;gt; Private Sub Worksheet_Change(ByVal Target As Excel.Range)
gt;gt;gt;gt;gt;gt; If Target.Address = quot;$A$5quot; Then
gt;gt;gt;gt;gt;gt; On Error GoTo fixit
gt;gt;gt;gt;gt;gt; Application.EnableEvents = False
gt;gt;gt;gt;gt;gt; 'If Target.Value = 0 Then oldvalue = 0
gt;gt;gt;gt;gt;gt; 'Target.Value = Target.Value amp; quot; quot; amp; oldvalue
gt;gt;gt;gt;gt;gt; oldvalue = Target.Value
gt;gt;gt;gt;gt;gt; fixit:
gt;gt;gt;gt;gt;gt; Application.EnableEvents = True
gt;gt;gt;gt;gt;gt; End If
gt;gt;gt;gt;gt;gt; End Sub
gt;gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt;gt; --
gt;gt;gt;gt;gt;gt; Don Guillett
gt;gt;gt;gt;gt;gt; SalesAid Software
gt;gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt;gt; quot;RichPquot; gt; wrote in message
gt;gt;gt;gt;gt;gt; ...
gt;gt;gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt;gt;gt; Hello everyone. We have the requirement to continually input text
gt;gt;gt;gt;gt;gt;gt; into a
gt;gt;gt;gt;gt;gt;gt; cell, and have the ability to keep the existing data already there,
gt;gt;gt;gt;gt;gt;gt; and just
gt;gt;gt;gt;gt;gt;gt; add to it. The problem is once I have data in one cell, leave, and
gt;gt;gt;gt;gt;gt;gt; come back
gt;gt;gt;gt;gt;gt;gt; to add more data, it erases the previous information already within
gt;gt;gt;gt;gt;gt;gt; that
gt;gt;gt;gt;gt;gt;gt; cell. I have tried the Merge cells function and other options within
gt;gt;gt;gt;gt;gt;gt; Excel.
gt;gt;gt;gt;gt;gt;gt; The data we are inputting is more text than numbers. We are using
gt;gt;gt;gt;gt;gt;gt; Excel 2003.
gt;gt;gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt;gt;gt; Thanks, Rich
gt;gt;gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt;
gt;gt;gt;gt;gt;
gt;gt;gt;gt;
gt;gt;gt;gt;
gt;gt;gt;
gt;gt;gt;
gt;gt;
gt;gt;
gt;
gt;