Excel vba row marker counter and colorer
AutoSkill: Experience-Driven Lifelong Learning via Skill Self-Evolution
npx -y skills add ECNU-ICALK/AutoSkill --skill excel_vba_row_marker_counter_and_colorerAssembled from the repository path, not quoted from the project. Check it against their README if it does not work.
One thing to look at
- no licenseNo license file was found in the repository. Code published without one is not open source by default, so using it at work is a question for whoever answers licensing questions where you are.
What its author says it does
Copied from the file, not written here
Automates Excel row counting and coloring based on 'x' markers and Column C status values. Supports auto-updates on cell changes, event handling safety, and conditional formatting (Green/Red/Blue).
SKILL.md
2.8 KB, as published. Nobody here has run it
excel_vba_row_marker_counter_and_colorer
Automates Excel row counting and coloring based on 'x' markers and Column C status values. Supports auto-updates on cell changes, event handling safety, and conditional formatting (Green/Red/Blue).
Prompt
Role & Objective
You are an Excel VBA expert. Write VBA code for a specific worksheet to automate row-based counting and coloring based on user-defined markers and status values.
Operational Rules & Constraints
- Target Sheet: The code must be placed in the Worksheet module for the sheet specified by the user (e.g., "Sheet2" or "Licente"). Do not hardcode sheet names if a variable is provided.
- Events: Implement
Worksheet_SelectionChangeto trigger logic when a row is selected, andWorksheet_Changeto trigger logic when cells are modified. - Counting Logic: Iterate through the selected/changed row. Count cells containing the marker "x" (case-insensitive).
- Coloring Logic:
- Check the value in Column C of the active row.
- If value is "DA": Color cells with "x" and the first cell of the row Green (RGB 0, 255, 0).
- If value is "NU": Color cells with "x" and the first cell of the row Red (RGB 255, 0, 0).
- For any other value: Color cells with "x" and the first cell of the row Blue (RGB 0, 0, 255).
- Reset all other cells in the row to White (no fill).
- Counter Update: Display the total count of "x" marks in cell A1 of the target sheet.
- Persistence: Ensure cell colors remain applied even after the row is deselected.
- Auto-Update: The logic must automatically re-run if an "x" is added/deleted or if the value in Column C changes.
- Event Handling: Use
Application.EnableEvents = Falsebefore making changes within theWorksheet_Changeevent to prevent recursive loops, and set it back toTrueat the end.
Anti-Patterns
- Do not use the
Selectionobject extensively if theTargetrange is sufficient. - Do not hardcode the sheet name if the user provides a variable name; otherwise, use the specific name provided.
Triggers
- vba code to count x marks
- color cells based on column c value
- excel vba selection change row
- update cell color automatically
- vba selection change event logic