forevertrying
Thu May 08 08:57:04 CDT 2008
AAAAGGGGGHHHHH!!! ;o)
It just suddenly stopped working. I was trying to protect some of the cells
and then when I went back afterwards, it wouldn't work! Any ideas?
Also, is it possible to protect the cells that are going to retain the
accumulative figure from being deleted? Whatever I did last time clearly
wasn't right.
"JE McGimpsey" wrote:
> One way:
>
> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> Dim vValue As Variant
> With Target
> If .Count > 1 Then Exit Sub
> If Not Intersect(.Cells, Range("A1,A4:A7,J10")) Is Nothing Then
> vValue = .Value
> If IsNumeric(vValue) Then
> Application.EnableEvents = False
> With .Offset(0, 1)
> .Value = .Value + vValue
> End With
> Application.EnableEvents = True
> End If
> End If
> End With
> End Sub
>
>
> In article <A809A9A3-8691-4537-B6DB-35DA1B69A6FE@microsoft.com>,
> forevertrying <forevertrying@discussions.microsoft.com> wrote:
>
> > I've used:
> >
> > Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> > With Target
> > If .Address(False, False) = "B3" Then
> > If IsNumeric(.Value) Then
> > Application.EnableEvents = False
> > Range("C3").Value = Range("C3").Value + .Value
> > Application.EnableEvents = True
> > End If
> > End If
> > End With
> > End Sub
> >
> > If I can only use 1 Worksheet_Change() do you mean I can only apply this to
> > one other pair of cells?
> >
> > I have around 30 or so that I want it to "tally" up for me.
> >
> > Can you think of any other way I can get this done?
> >
> > "JE McGimpsey" wrote:
> >
> > > You didn't say which "whole code" you'd chosen, but in either case,
> > > you'd need to rewrite it a bit to test for the multiple ranges.
> > >
> > > You can only have one Worksheet_Change() routine in any worksheet code
> > > module.
> > >
> > > In article <F1F73F87-ECE2-436F-8134-E5D0B2B710E3@microsoft.com>,
> > > forevertrying <forevertrying@discussions.microsoft.com> wrote:
> > >
> > > > I'm going to need it to work several times in different areas of a
> > > > worksheet.
> > > >
> > > > Do I need to rewrite the whole code for each bit, or can I just add in at
> > > > some point through the code?
> > >
>