Bright01
asked on
Conditional Cell Input Capability Now Needs to Scale
This request was originally handled successfully by Siddharth. I need this application to "scale". Here is the complete file. There are 15 answers, 12 categories, a total of 180 responses. I think there are only two things that need to be modified for this to work. One is that the condition on 3 False Answers has to be reset after the 15th answer (for the next category) and the other thing is that right now it needs to allow for three FALSE answers (I can only log two at the present time).
Thank you in advance.
B.
Thank you in advance.
B.
ASKER
Sid,
Almost there! When you hit the third "False" you should not be able to input anything (including true, partial or false) in any of the remaining cells in that section. The counter starts over on the next section.
Thank you!
Almost there! When you hit the third "False" you should not be able to input anything (including true, partial or false) in any of the remaining cells in that section. The counter starts over on the next section.
Thank you!
>>> The counter starts over on the next section.
yes that is because I set it like that. You don't want that?
Sid
yes that is because I set it like that. You don't want that?
Sid
If you don't want that then replace the code
Select Case Target.Row
Case 12, 27, 42, 57, 72, 87, 102, 117, 132, 147, 162, 177
Case Else
If Len(Trim(Target.Offset(-1) .Value)) = 0 Then Target.Value = ""
End Select
by
If Target.Row <> 12 And Len(Trim(Target.Offset(-1) .Value)) = 0 Then Target.Value = ""
in the above code and now try.
Sid
Select Case Target.Row
Case 12, 27, 42, 57, 72, 87, 102, 117, 132, 147, 162, 177
Case Else
If Len(Trim(Target.Offset(-1)
End Select
by
If Target.Row <> 12 And Len(Trim(Target.Offset(-1)
in the above code and now try.
Sid
ASKER
Sorry for the confusion. Here's what I'm getting. With Macros enabled, I'm able to add more to the fields below. See the picture I have sent; you will see three falses than I can add more below. I'm not suppose to be able to add to the section once the threshold has been reached.
B.
Conditional-Column.png
B.
Conditional-Column.png
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Sid,
"Thank you!" Works as promised..... you do very very good work.
When you get a chance, I sent you several operational questions about "The Timer" as to what happens to the other passwords when it changes to LOCKME.
Thanks again,
B.
"Thank you!" Works as promised..... you do very very good work.
When you get a chance, I sent you several operational questions about "The Timer" as to what happens to the other passwords when it changes to LOCKME.
Thanks again,
B.
ASKER
Sid,
Greetings. The App. works great but I'm going to ask (hopefully) a simple question about an "enhancement" to this code. I'd like the ability to have a cell in the spreadsheet that actually determines how many "falses" are necessary to shut down the "further questions" (currently set at 3 ((hardcoded)). I think it's an enhancement to this part of the code:
On Error Resume Next
'~~> To check for 3 false conditions
For i = j To k Step -1
If Len(Trim(Range("A" & i))) <> 0 And Range("A" & i).Offset(-1).Value = "False" And _
Range("A" & i).Offset(-2).Value = "False" And _
Range("A" & i).Offset(-3).Value = "False" Then
Target.Value = ""
Application.EnableEvents = True
Exit Sub
Greetings. The App. works great but I'm going to ask (hopefully) a simple question about an "enhancement" to this code. I'd like the ability to have a cell in the spreadsheet that actually determines how many "falses" are necessary to shut down the "further questions" (currently set at 3 ((hardcoded)). I think it's an enhancement to this part of the code:
On Error Resume Next
'~~> To check for 3 false conditions
For i = j To k Step -1
If Len(Trim(Range("A" & i))) <> 0 And Range("A" & i).Offset(-1).Value = "False" And _
Range("A" & i).Offset(-2).Value = "False" And _
Range("A" & i).Offset(-3).Value = "False" Then
Target.Value = ""
Application.EnableEvents = True
Exit Sub
So basically, you want to, instead of hard coding, want to specify the number of "False" dynamically?
Sid
Sid
ASKER
Yes. I know this is an enhancement so I issued it as a "related question". I think you are best to enhance it but wanted to insure you are rewarded for your efforts. In the file I have a cell that should be able to handle 1 - 15 and based on the number you input, it will allow for that many falses before locking the rest of the section.
Thank you,
B.
Thank you,
B.
Sid
Code Used
Open in new window
Total-File.xlsm