add a range to this VB

[Dave]

how do i add a range of cells to this to add the same effect to another row?
presently it is d2323 I would like to add d2929


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
Dim CheckRange As Range
Set CheckRange = Range("d2323")


If Union(CheckRange, Target).Address = _
Union(CheckRange, CheckRange).Address Then

If Target.Cells(1).Value > 0 Then
For Each Cell In Target.Cells
Cell.Value = Cell.Value * -1
Next Cell
End If
End If

End Sub

 

[Bob Phillips]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
Dim CheckRange As Range
Set CheckRange = Range("d2323,D2929")

If Union(CheckRange, Target).Address = _
Union(CheckRange, CheckRange).Address Then

If Target.Cells(1).Value > 0 Then
For Each Cell In Target.Cells
Cell.Value = Cell.Value * -1
Next Cell
End If
End If

End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Dave]

thanks Bob...
well I tried that and strangely, the stuff in row 23 goes back to regular
numbers but the added row 29 works nicely....
any ideas?

 

[Bob Phillips]

Here's another shot Dave (tested this time)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
Dim CheckRange As Range
Set CheckRange = Union(Range("d2323"), Range("D2929"))

If Not Intersect(Target, CheckRange) Is Nothing Then

If Target.Cells(1).Value > 0 Then
For Each Cell In Target.Cells
Cell.Value = Cell.Value * -1
Next Cell
End If
End If

End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Dave]

thanks Bob! that did it.... I tried every combo I could think of , but not
THAT one.
thanks again

 

[Bob Phillips]

Dave,

You don't actually need the first union

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
Dim CheckRange As Range
Set CheckRange = Range("d2323", "D2929")

If Not Intersect(Target, CheckRange) Is Nothing Then

If Target.Cells(1).Value > 0 Then
For Each Cell In Target.Cells
Cell.Value = Cell.Value * -1
Next Cell
End If
End If

End Sub


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Dave]

thanks .... how is Poole these days!?

Dave,

You don't actually need the first union

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
Dim CheckRange As Range
Set CheckRange = Range("d2323", "D2929")

If Not Intersect(Target, CheckRange) Is Nothing Then

If Target.Cells(1).Value > 0 Then
For Each Cell In Target.Cells
Cell.Value = Cell.Value * -1
Next Cell
End If
End If

End Sub


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Bob Phillips]

Hi Dave,

Poole is bright, busy and prosperous. It is quite dynamic these days.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Dave]

ahh... haven't been since I was a wee lad living in London.
Thanks for all your help

D