Hi All,
I hope someone can help me. I have specific cells in certain sheets to be completed by the user before they can move away from the sheet. I gather that I have to build a macro for this. The one specific sheet I am referring to Cell "C103" is crucial to complete. I do have the following macro already on this sheet as follows for other functions:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$103" Then
If Range("'Client info'!C103").Value = "Large Enterprise" Then
Sheets("MC Calculations").Rows("1:134").EntireRow.Hidden = False
Sheets("Skills Spend & Learnerships").Rows("1:108").EntireRow.Hidden = False
Sheets("BEE Spend").Rows("24:27").EntireRow.Hidden = True
Sheets("BEE Spend").Rows("11:22").EntireRow.Hidden = False
Sheets("Supplier and ED Development").Rows("5:42").EntireRow.Hidden = False
Sheets("Supplier and ED Development").Rows("43:71").EntireRow.Hidden = True
Sheets("ENTERPRISE AND SUPPLIER DEV").Rows("66:100").EntireRow.Hidden = True
Sheets("ENTERPRISE AND SUPPLIER DEV").Rows("7:64").EntireRow.Hidden = False
ElseIf Range("'Client info'!C103").Value = "Qualifying Small Enterprise" Then
Sheets("MC Calculations").Rows("1:134").EntireRow.Hidden = True
Sheets("Skills Spend & Learnerships").Rows("1:108").EntireRow.Hidden = True
Sheets("BEE Spend").Rows("11:22").EntireRow.Hidden = True
Sheets("BEE Spend").Rows("24:27").EntireRow.Hidden = False
Sheets("Supplier and ED Development").Rows("5:42").EntireRow.Hidden = True
Sheets("Supplier and ED Development").Rows("43:71").EntireRow.Hidden = False
Sheets("ENTERPRISE AND SUPPLIER DEV").Rows("7:64").EntireRow.Hidden = True
Sheets("ENTERPRISE AND SUPPLIER DEV").Rows("66:100").EntireRow.Hidden = False
End If
End If
End Sub
Can someone please assist me in building the new macro into the existing one?
Bookmarks