Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CellPrint@Cell[BoxData["MyTag"], "Input", CellTags -> "MyTag"]
- Print[Button["Print Button",
- CellPrint@Cell[BoxData[
- ToBoxes@Button["Cases[\"MyTag\"] Cells",
- Print@
- Cases[NotebookGet[EvaluationNotebook[]],
- Cell[___, CellTags -> "MyTag", ___], Infinity];
- ]
- ], "Output", CellTags -> "MyTag"]
- ]
- ];
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement