Prev: keeping values
Next: VBA to select all cells with content
From: Paul on 1 Apr 2010 21:48

You can use a worksheet_change event to see if a certain cell or range
of cells changed.



Code:
--------------------



Private Sub Worksheet_Change(ByVal Target As Range)
Dim ce As Range
If Not Intersect(Target, Range("A10")) Is Nothing Then
For Each ce In Target.Cells
ce.Value = Left(ce.Value, 11)
Next ce
End If
End Sub

--------------------



If you try to paste data (from one or more cells) into a range that
touches A10, all cells being pasted will be truncated to 11 characters.
This code could be amended to only act upon cell A10, of course, and
could be changed to look at any other cell/range.


--
Paul

- Paul
------------------------------------------------------------------------
Paul's Profile: 1697
View this thread: http://www.thecodecage.com/forumz/showthread.php?t=192385

http://www.thecodecage.com/forumz

First  |  Prev  | 
Pages: 1 2
Prev: keeping values
Next: VBA to select all cells with content