JohnCollins
New Member
- Joined
- Dec 22, 2014
- Messages
- 25
Help Required please:
I have a tracker spread sheet whereby users are required to enter comments (text) when a specific RAG condition is met e.g.
If condition RAG <> "G" then user must enter a comment and the comment cannot be " " or blank.
Note: I have be able to apply a apply a simple cell conditional format to the cell, which changes the cell format to Red or Amber if the RAG status is "R" or "A", but as yet have not been able to find a way in which the user must enter a comment if RAG <> "G"?
Within my spreadsheet I have multiple worktabs (10 in total) with each tab representing a specific Business unit e.g. Sheet3 = Asset, Sheet4 = Premium etc ....
Within each sheet there are 30 row entries, commencing from L4 : L34, which requires that a comment is entered by the user if L4 <> “G”, whereby the comment cannot be blank or cell left empty.
Within each worksheet, the following cells can be found in exactly the same location (Row and Column) in each sheet whereby:
L4 = RAG Status (R,A,G)
N4 = User specific comments
The formula I have created below (should possibly work but being a novice I doubt it does) and only takes in to account one cell within the workbook, so, what would I need to do in order for it to:
Sub Comments()
Dim vVal
If (Sheet3.Range("L4" <> "G")) And IsEmpty(Sheet3.Range("N4")) Then
vVal = InputBox("Enter a Comment for N4")
If vVal = vbNullString Then Run "Comments"
End If
End Sub
-- removed inline image ---
I have a tracker spread sheet whereby users are required to enter comments (text) when a specific RAG condition is met e.g.
If condition RAG <> "G" then user must enter a comment and the comment cannot be " " or blank.
Note: I have be able to apply a apply a simple cell conditional format to the cell, which changes the cell format to Red or Amber if the RAG status is "R" or "A", but as yet have not been able to find a way in which the user must enter a comment if RAG <> "G"?
Within my spreadsheet I have multiple worktabs (10 in total) with each tab representing a specific Business unit e.g. Sheet3 = Asset, Sheet4 = Premium etc ....
Within each sheet there are 30 row entries, commencing from L4 : L34, which requires that a comment is entered by the user if L4 <> “G”, whereby the comment cannot be blank or cell left empty.
Within each worksheet, the following cells can be found in exactly the same location (Row and Column) in each sheet whereby:
L4 = RAG Status (R,A,G)
N4 = User specific comments
The formula I have created below (should possibly work but being a novice I doubt it does) and only takes in to account one cell within the workbook, so, what would I need to do in order for it to:
- Work for all 30 row entries on a Sheet.3 called Asset
- Apply the formula to work over all remaining 10 sheets within the spreadsheet
Sub Comments()
Dim vVal
If (Sheet3.Range("L4" <> "G")) And IsEmpty(Sheet3.Range("N4")) Then
vVal = InputBox("Enter a Comment for N4")
If vVal = vbNullString Then Run "Comments"
End If
End Sub
-- removed inline image ---