VBA Macro Help

[remusbv8]

Hello everyone,

I am trying to build a macro that will stop me to add values to a specific row in a column is a condition is met.

What I have is a Holiday plan with a %10 quota per day separated by column and rows. Basically when D4 reached 10% I want the code to tell me to stop adding in that column because the quota was met but it should allow me to add in other columns where the the quota is still not met.See picture below.

I managed to make a code but when the quota is met it doesn't allow me anymore to click anything.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("A1:C24").Find(what:="Limit Reached", LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True) Is Nothing Then

MsgBox "Stop adding"

End If

End Sub

Any help would be much appreciated.

Thanks.

 

[6StringJazzer]

I would do this with a custom data validation rule instead of VBA.

=D$4<10%

Looks like D3 in your screenshot but I wrote the formula based on your description.

You can then copy this and Paste Special > Validation to any cell in any column where you need this.

 

[remusbv8]

I would do this with a custom data validation rule instead of VBA.

=D$4<10%

Looks like D3 in your screenshot but I wrote the formula based on your description.

You can then copy this and Paste Special > Validation to any cell in any column where you need this.

Hey hey.

I tried what you said but it doesn't do anything.

 

[remusbv8]

Also please note that for me in D3 and etc I have a formula that calculated my %

 

[6StringJazzer]

I said that your description referred to cell D4 but your screenshot looks like cell D3 (even though you did not show row numbers), so I wrote the formula for D4. If the % is in cell D3 then the formula must refer to D3.

In the most recent images you attached, I do not know what cell that formula is in and I don't know what cell(s) you applied that data validation rule to. However, it seems to be the same cell and there is no point in putting data validation into a cell that has a formula. The data validation rule should be applied to cells where the user is expected to enter data.