Help for Macro to Fill Columns Based on Tick Boxes
Hello everyone,
I need some help. I have tried to make a Macro, but it doesn't work as I want. I have put A link to the file below this message.
What i wish is, when I press on the "A" box, the A column stay note filled whith black, and the other column (C5 to F14) are filled whith black. When I press again "A" the spreadsheet reset.
When I press A and B, the column A and B stay note filled whith black, and the other column (D5 to F14). When I press C and D, the column C and D stay note filled whith black, and the other column (B5 to C14 and E5 to F14).
I hope that you have understand my post (Sorry i'm French)
Retired in Ipswich, Suffolk, but grew up in Sawley, Derbyshire (England)
MS-Off Ver
MS 365 Subscription Insider Beta Channel v. 2404 (Windows 11 22H2 64-bit)
Posts
79,375
Re: Help for Macro
Welcome to the forum.
There are instructions at the top of the page explaining how to attach your sample workbook.
Ali Enthusiastic self-taught user of MS Excel who's always learning! Don't forget to say "thank you" in your thread to anyone who has offered you help.
You can reward them by clicking on * Add Reputation below their user name on the left, if you wish. Forum Rules (updated August 2023): please read them here.
With a well designed worksheet it may need a single tiny procedure for all the check boxes !
So in order to do it you must execute the UsageUnique procedure just once then enjoy !
If it's the expected result, Module1 is useless, to be deleted …
According to your attachment as a VBA beginner starter to paste to the Feuil1 worksheet module :
PHP Code:
Sub BlackWhite(N&) A$ = Choose(N, "B5:B7,B9:B14", "C5:C6,C8:C12,C14", "D5:D10,D12:D14", "E5,E7:E14", "F6:F9,F11:F14") Range(A).Interior.ColorIndex = 1 + (Shapes("Coche" & N).ControlFormat.Value = 1) End Sub
Private Sub UsageUnique() For N& = 1 To Shapes.Count With Shapes(N) .Name = "Coche" & N .OnAction = "'Feuil1.BlackWhite " & N & "'" End With BlackWhite N Next End Sub
► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄
Last edited by Marc L; 04-04-2021 at 09:09 AM.
Reason: typo …
With a well designed worksheet it may need a single tiny procedure for all the check boxes !
So in order to do it you must execute the UsageUnique procedure just once then enjoy !
If it's the expected result, Module1 is useless, to be deleted …
According to your attachment as a VBA beginner starter to paste to the Feuil1 worksheet module :
PHP Code:
Sub BlackWhite(N&) A$ = Choose(N, "B5:B7,B9:B14", "C5:C6,C8:C12,C14", "D5:D10,D12:D14", "E5,E7:E14", "F6:F9,F11:F14") Range(A).Interior.ColorIndex = 1 + (Shapes("Coche" & N).ControlFormat.Value = 1) End Sub
Private Sub UsageUnique() For N& = 1 To Shapes.Count With Shapes(N) .Name = "Coche" & N .OnAction = "'Feuil1.BlackWhite " & N & "'" End With BlackWhite N Next End Sub
► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄
Bookmarks