SHARE
TWEET

Untitled

a guest Aug 8th, 2013 19 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. CellPrint@Cell[BoxData["MyTag"], "Input", CellTags -> "MyTag"]
  2. Print[Button["Print Button",
  3.    CellPrint@Cell[BoxData[
  4.       ToBoxes@Button["Cases[\"MyTag\"] Cells",
  5.         Print@
  6.           Cases[NotebookGet[EvaluationNotebook[]],
  7.            Cell[___, CellTags -> "MyTag", ___], Infinity];
  8.         ]
  9.       ], "Output", CellTags -> "MyTag"]
  10.    ]
  11.   ];
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top