T
Tanya
Hi
I have two sheets
Sheet 1 - has 13 check box's representing individual outcomes with macros
attached to each which unlock and change the colour of cells immediately
below the checkbox cell.
Eg.
Private Sub CheckBox1_Click() <<-----------------------------
ActiveSheet.Unprotect Password:="BBHS"
If CheckBox1 Then
Yellow
Else
Green
End If
ActiveSheet.Protect Password:="BBHS"
End Sub
Sub Yellow() <<--------------------------------
'
' Yellow Macro
' Macro recorded 26/05/2007 by Tanya Duffy
'
Range("D4").Select
Range(ActiveCell, ActiveCell.Offset(29, 0)).Select
Selection.Locked = False
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
Sub Green() <<--------------------------------
'
' Green Macro
' Macro recorded 26/05/2007 by Tanya Kaposi
'
Range("D4").Select
Range(ActiveCell, ActiveCell.Offset(29, 0)).Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
Selection.Locked = True
End With
End Sub
sheet 2 - has 3 cells whose contents is required for a formula to run
smoothly.
Question!
in any one reporting period there can be any combination of 3 outcomes,
therefore is it posible to insert text in the range of 3 cells based on which
checkboxes are selected when there are more checkboxes than cells for text?
Any assistance will be appreciated.
Regards Tanya
I have two sheets
Sheet 1 - has 13 check box's representing individual outcomes with macros
attached to each which unlock and change the colour of cells immediately
below the checkbox cell.
Eg.
Private Sub CheckBox1_Click() <<-----------------------------
ActiveSheet.Unprotect Password:="BBHS"
If CheckBox1 Then
Yellow
Else
Green
End If
ActiveSheet.Protect Password:="BBHS"
End Sub
Sub Yellow() <<--------------------------------
'
' Yellow Macro
' Macro recorded 26/05/2007 by Tanya Duffy
'
Range("D4").Select
Range(ActiveCell, ActiveCell.Offset(29, 0)).Select
Selection.Locked = False
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
Sub Green() <<--------------------------------
'
' Green Macro
' Macro recorded 26/05/2007 by Tanya Kaposi
'
Range("D4").Select
Range(ActiveCell, ActiveCell.Offset(29, 0)).Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
Selection.Locked = True
End With
End Sub
sheet 2 - has 3 cells whose contents is required for a formula to run
smoothly.
Question!
in any one reporting period there can be any combination of 3 outcomes,
therefore is it posible to insert text in the range of 3 cells based on which
checkboxes are selected when there are more checkboxes than cells for text?
Any assistance will be appreciated.
Regards Tanya