Change Event code

  • Thread starter Thread starter L. Howard
  • Start date Start date
L

L. Howard

This seems easy, but select case and if statements have not worked for me.

Range of cells THESE = D48, I48, N48

Range of cells THOSE = D49, I49, N49

If any cell in THESE change then clear all THOSE.

If any cell in THOSE change then clear all THESE.

Howard
 
This seems easy, but select case and if statements have not worked
for me.

Range of cells THESE = D48, I48, N48

Range of cells THOSE = D49, I49, N49

If any cell in THESE change then clear all THOSE.

If any cell in THOSE change then clear all THESE.

Howard
Click to expand...

Perhaps you're struggling with the effect of not disabling
'EnableEvents' while your code is running?

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
 
Perhaps you're struggling with the effect of not disabling
'EnableEvents' while your code is running?
Click to expand...

I used EnableEvents = False/True but no go with what I tried.

I dumped my failures, I will recreate them and post them.

Howard
 
I used EnableEvents = False/True but no go with what I tried.

I dumped my failures, I will recreate them and post them.

Howard
Click to expand...


Private Sub Worksheet_Change(ByVal Target As Range)

Dim PctCells As Range, AmtCells As Range
Set PctCells = Range("D48,I48,N48")
Set AmtCells = Range("D49,I49,N49")

Application.EnableEvents = False
If Not Application.Intersect(PctCells, Range(Target.Address)) Is Nothing _
Or Application.Intersect(AmtCells, Range(Target.Address)) Is Nothing Then Exit Sub

If Target = PctCells Then AmtCells.ClearContents
If Target = AmtCells Then PctCells.ClearContents
End If

' Select Case Target.Range

' Case Is = PctCells
' AmtCells.ClearContents

' Case Is = AmtCells
' PctCells.ClearContents

' Case Else

' End Select

'End If
Application.EnableEvents = True

End Sub
 
Howard, you write such hi-maintenance code for this...

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
On Error GoTo ErrExit
Select Case Target.Address
Case "$D$48", "$I$48", "$N$48"
Range("$D$49,$I$49,$N$49").ClearContents

Case "$D$49", "$I$49", "$N$49"
Range("D48,I48,N48").ClearContents
End Select

ErrExit:
Application.EnableEvents = True
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
 
Howard, you write such hi-maintenance code for this...

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
On Error GoTo ErrExit
Select Case Target.Address
Case "$D$48", "$I$48", "$N$48"
Range("$D$49,$I$49,$N$49").ClearContents

Case "$D$49", "$I$49", "$N$49"
Range("D48,I48,N48").ClearContents
End Select

ErrExit:
Application.EnableEvents = True
End Sub
Click to expand...

If my ignorance frustrates you then ignore my posts.

Thanks for the code.

Howard
 
If my ignorance frustrates you then ignore my posts.

Thanks for the code.

Howard
Click to expand...

Absolutely not the case, ..I was merely expressing an observation in
you that reminds me of myself! I apologize if I offended you as it was
not my intent. Because of my typing difficulties (due to having Lou
Gehrig's), I made a mission of developing code brevity so as not to
'spend' time/energy that could be better 'invested'!

I do see the value in your sample in terms of clarity while trying
stuff. I do the same until a project is complete, then I go through and
clean out all the 'under construction' debris I have scattered
everywhere.

FWIW, I don't consider your learning efforts as ignorance, and your
posts don't frustrate me. Your relentless tenacity for learning reminds
me so very much of myself! Please know I'll continue to help you
however I can. Though I definitely will not always be able to help
you.., I will definitely always want to be helpful!!!

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
 
Back
Top