Hide & Add Rows

[timesareGMT]

HI all,

I'm new in VBA, and I’m trying to make a report layout with the conditions below:

1. If Cell D30 on Sheet 2 = FALSE, automatically hide Row 30 on Sheet 1.
2. If Cell D30 on Sheet 2 = FALSE, automatically add a new row after row 47.

How should I set the code?

Thanks a lot.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
<o></o>
<o></o>
<o></o>

 

[AlphaFrog]

change this...

Select Case UCase(Trim(Range("C2").Value))

 

[timesareGMT]

change this...

Select Case UCase(Trim(Range("C2").Value))

Yes, it works!!

Thanks a lot!!

 

[timesareGMT]

Sub Geo_BS()
Select Case UCase(Trim(Range("C2").Value))
Case "GEOSPEC 3: 2001 Test 9.4"
Rows("19:35").Hidden = False
Rows("36:48").Hidden = True
Case "BS 1377: Part 3: 1990 Section 7.3"
Rows("19:35").Hidden = True
Rows("36:48").Hidden = False
Case Else
Rows("19:48").Hidden = False
End Select
End Sub

Why it seems impossible to get the macro run if I change combobox info as that highlighted in blue? (The related cells was updated accordingly)

Thanks.

 

[AlphaFrog]

Change this...
Select Case UCase(Trim(Range("C2").Value))

To this...
Select Case Trim(Range("C2").Value)


OR make this all caps.
Case "GEOSPEC 3: 2001 TEST 9.4"
Case "BS 1377: PART 3: 1990 SECTION 7.3"


I included UCase in the original code because I wasn't sure if your list would have GEO or Geo or geo and UCase made it capital letters insensitive. But that means you have to put in the code all caps for the selected items.

 

[timesareGMT]

Change this...
Select Case UCase(Trim(Range("C2").Value))

To this...
Select Case Trim(Range("C2").Value)


OR make this all caps.
Case "GEOSPEC 3: 2001 TEST 9.4"
Case "BS 1377: PART 3: 1990 SECTION 7.3"


I included UCase in the original code because I wasn't sure if your list would have GEO or Geo or geo and UCase made it capital letters insensitive. But that means you have to put in the code all caps for the selected items.

Solved. Thanks so much!!

 

[timesareGMT]

I added another new spreadsheet (page 4).

On this page the cell D21 is an outcome of a series of calculations,
1. When D21 < 0.5, rows 23 to 28 will automatically hide.
2. When D21 > 0.5, rows 23 to 28 will automatically show (if they'd hided)

How should I set the VBA code for this?

Thanks for your help.

 

[timesareGMT]

It comes to spreadsheet protection issue.

When I apply security passwords to the spreadsheets, the assigned macros will then be stopped from running.

How can I solve this problem?

Thanks.