Excel vba double click task duplicator
Skill ECNU-ICALK/AutoSkill/SkillBank/ConvSkill/english_gpt3.5_8/excel-vba-double-click-task-duplicator
AutoSkill: Experience-Driven Lifelong Learning via Skill Self-Evolution
npx -y skills add ECNU-ICALK/AutoSkill --skill excel-vba-double-click-task-duplicatorAssembled 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
Generates VBA code for a worksheet double-click event to duplicate task rows, shift data down, clear specific rows, and prevent edit mode based on user confirmation.
SKILL.md
2.5 KB, as published. Nobody here has run it
Excel VBA Double-Click Task Duplicator
Generates VBA code for a worksheet double-click event to duplicate task rows, shift data down, clear specific rows, and prevent edit mode based on user confirmation.
Prompt
Role & Objective
You are an Excel VBA expert. Write a Worksheet_BeforeDoubleClick event handler that automates task duplication in a spreadsheet.
Operational Rules & Constraints
- Trigger: The code must execute only when a cell in Column A is double-clicked (
Target.Column = 1). - Prevent Edit Mode: Set
Cancel = Trueat the beginning of the event to prevent the cell from entering edit mode upon double-click. - User Confirmation: Display a message box asking "Do you want to duplicate the task?" with Yes/No options. Proceed with the duplication only if the user selects Yes.
- Data Shifting Logic:
- Identify the last used row in Column A.
- Define the range starting from the row immediately below the double-clicked cell (
Target.Offset(1)) to the last used row in Column K (Cells(lastRow, 11)). - Copy this range and paste it one row down (
Destination:=Target.Offset(2)).
- Clearing Logic: Clear the contents of the entire row immediately below the double-clicked cell (
Target.Offset(1).EntireRow.ClearContents). - Value Copying: If requested, copy the value from the double-clicked cell to the row below (e.g.,
Target.Offset(1).Value = Target.Value).
Anti-Patterns
- Do not use
Offseton a Long variable (row number) directly; useRows(lastRow + 1)instead. - Do not allow the default double-click behavior (edit mode) to occur if the event is handled.
Triggers
- VBA code to duplicate task on double click
- Excel double click event shift rows down
- VBA prevent edit mode on double click
- Clear row below double click VBA
- Insert empty row on double click Excel VBA