View Code two routines won't run together - what do I need to do

[rintelen]

Hi everyone

I have this new piece of code I wish to add to a tab called the PV Calculator.

Sub worksheet_selectionChange(ByVal target As Range)
If Range("GB12").Value = 1 Then Rows(9).EntireRow.Hidden = True
If Range("GB12").Value = 0 Then Rows(9).EntireRow.Hidden = False
End Sub

However, when I go to do View Code there is a macro already there that looks like this:

Private Sub worksheet_selectionChange(ByVal target As Excel.Range)
With target
If .Count > 1 Then Exit Sub
If .Address(False, False) = "C17" Then _
Range("C18").ClearContents
If .Address(False, False) = "17" Then _
Range("C7").ClearContents
End With
End Sub

If I just paste one under the other then the above doesn't work, nor does the top one.

I'm not very clever at this so I need assistance. How do I associate these separately with the tab called PV calculator.

Secondly I need the top one to update the moment the person enters the tab (not waiting until somethign is clicked on the screen).

Any help would be much appreciated.

 

[VoG]

Try changing the top one to

Private Sub Worksheet_Activate()
Rows(9).Hidden = Range("GB12").Value = 1
End Sub

 

[rintelen]

That's no good. Nothing happens.

 

[VoG]

It works here.

 

[rintelen]

Well maybe I'm doing something wrong. Where do I put this? I use excel 2010. If I put the top one (or yours) above the other one neither of them work. (I'm looking at the View Code of the tab called PV calculator)

Will it work if the tab is protected?

 

[VoG]

It sounds like the code is in the right place.

If the sheet is protected then you will need to unprotect it in the code

Private Sub Worksheet_Activate()
Me.Unprotect Password:="abc"
Rows(9).Hidden = Range("GB12").Value = 1
Me.Protect Password:="abc"
End Sub

 

[rintelen]

THANK YOU. THis works perfectly. I am extremely pleased. This is a very useful routine to know.