Undo/Redo or CTRL+Z – CTRL+Y »» does not work for my own macros

rediffusion

rediffusion

Board Regular
Joined
Apr 24, 2019
Messages
60
Cross-post!

I have macros ··· to fill; font color; insert note. For them, not working Undo/Redo (which are located on the QAT) or CTRL+Z – CTRL+Y. I Found these links wellsr.com and jkp-ads.com there is info, though it is not clear how to combine it all with all my macros!? :confused:

1. Example XML+VBA implementation of the book here (the macro fill color). One user offered a working version! Here's just a shame that I have fills for color lot say 30-40. How it to adapt, we can variable what to insert in place xSelection.Interior.Color :

Note that this is a ready working version of Undo/Redo! ↴↴↴ ↴↴↴ ↴↴↴

Code: 
<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">[COLOR=#2B91AF][FONT=inherit]Sub [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]CellColor[/FONT][/COLOR][COLOR=#303336][FONT=inherit]()
[/FONT][/COLOR]<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">[COLOR=#2B91AF][FONT=inherit]Call [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]CellColor_Do[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]0[/FONT][/COLOR][COLOR=#303336][FONT=inherit])[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]End [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Sub[/FONT][/COLOR][COLOR=#303336][FONT=inherit]

[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Private [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Sub [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]CellColor_Do[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Undo [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]As [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Integer[/FONT][/COLOR][COLOR=#303336][FONT=inherit])[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Static[/FONT][/COLOR][COLOR=#303336][FONT=inherit] xBook [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]As[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Workbook[/FONT][/COLOR][COLOR=#303336][FONT=inherit],[/FONT][/COLOR][COLOR=#303336][FONT=inherit] xSheet [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]As[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Worksheet[/FONT][/COLOR][COLOR=#303336][FONT=inherit],[/FONT][/COLOR][COLOR=#303336][FONT=inherit] xSelection [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]As[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Range[/FONT][/COLOR][COLOR=#303336][FONT=inherit],[/FONT][/COLOR][COLOR=#303336][FONT=inherit] xColor [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]As[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Long[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Const[/FONT][/COLOR][COLOR=#303336][FONT=inherit] sName [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]As[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]String [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]"CellColor"[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Const[/FONT][/COLOR][COLOR=#303336][FONT=inherit] sUndo [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]As[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]String [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]"Undo Color in "[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Const[/FONT][/COLOR][COLOR=#303336][FONT=inherit] sRedo [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]As[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]String [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]"Redo Color in "[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]If [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Undo [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]0 [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Then[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Set[/FONT][/COLOR][COLOR=#303336][FONT=inherit] xBook [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]ActiveWorkbook[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Set[/FONT][/COLOR][COLOR=#303336][FONT=inherit] xSheet [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]ActiveSheet[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Set[/FONT][/COLOR][COLOR=#303336][FONT=inherit] xSelection [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Selection[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    xColor [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Selection[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Cells[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]1[/FONT][/COLOR][COLOR=#303336][FONT=inherit]).[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Interior[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Color[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    xSelection[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Show[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    xSelection[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Interior[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Color [/FONT][/COLOR][COLOR=#303336][FONT=inherit]=[/FONT][/COLOR][COLOR=#303336][FONT=inherit] RGB[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]227[/FONT][/COLOR][COLOR=#303336][FONT=inherit],[/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]38[/FONT][/COLOR][COLOR=#303336][FONT=inherit],[/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]54[/FONT][/COLOR][COLOR=#303336][FONT=inherit])[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Application[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]OnUndo [/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#303336][FONT=inherit]sUndo [/FONT][/COLOR][COLOR=#303336][FONT=inherit]+[/FONT][/COLOR][COLOR=#303336][FONT=inherit] xSelection[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Address[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#101094][FONT=inherit]False[/FONT][/COLOR][COLOR=#303336][FONT=inherit],[/FONT][/COLOR][COLOR=#101094][FONT=inherit]False[/FONT][/COLOR][COLOR=#303336][FONT=inherit])), [/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]ThisWorkbook[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Name [/FONT][/COLOR][COLOR=#303336][FONT=inherit]+ [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]"!" [/FONT][/COLOR][COLOR=#303336][FONT=inherit]+[/FONT][/COLOR][COLOR=#303336][FONT=inherit] sName [/FONT][/COLOR][COLOR=#303336][FONT=inherit]+ [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]"_Undo"[/FONT][/COLOR][COLOR=#303336][FONT=inherit])[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Else If[/FONT][/COLOR][COLOR=#303336][FONT=inherit] xSelection [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Is [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Nothing [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Then[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Beep[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Else[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    xBook[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Activate[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    xSheet[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Activate[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    xSelection[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Select[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    xSelection[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Show[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]If [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Undo [/FONT][/COLOR][COLOR=#303336][FONT=inherit]< [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]0 [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Then[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
        xSelection[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Interior[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Color [/FONT][/COLOR][COLOR=#303336][FONT=inherit]=[/FONT][/COLOR][COLOR=#303336][FONT=inherit] xColor
        [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Application[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]OnRepeat [/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#303336][FONT=inherit]sRedo [/FONT][/COLOR][COLOR=#303336][FONT=inherit]+[/FONT][/COLOR][COLOR=#303336][FONT=inherit] xSelection[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Address[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#101094][FONT=inherit]False[/FONT][/COLOR][COLOR=#303336][FONT=inherit],[/FONT][/COLOR][COLOR=#101094][FONT=inherit]False[/FONT][/COLOR][COLOR=#303336][FONT=inherit])), [/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]ThisWorkbook[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Name [/FONT][/COLOR][COLOR=#303336][FONT=inherit]+ [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]"!" [/FONT][/COLOR][COLOR=#303336][FONT=inherit]+[/FONT][/COLOR][COLOR=#303336][FONT=inherit] sName [/FONT][/COLOR][COLOR=#303336][FONT=inherit]+ [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]"_Redo"[/FONT][/COLOR][COLOR=#303336][FONT=inherit])[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Else[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
        xSelection[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Interior[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Color [/FONT][/COLOR][COLOR=#303336][FONT=inherit]=[/FONT][/COLOR][COLOR=#303336][FONT=inherit] RGB[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]227[/FONT][/COLOR][COLOR=#303336][FONT=inherit],[/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]38[/FONT][/COLOR][COLOR=#303336][FONT=inherit],[/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]54[/FONT][/COLOR][COLOR=#303336][FONT=inherit])[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
        [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Set[/FONT][/COLOR][COLOR=#303336][FONT=inherit] xSelection [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Nothing[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]End [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]If[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]End [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]If[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]End [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Sub[/FONT][/COLOR][COLOR=#303336][FONT=inherit]

[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Private [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Sub [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]CellColor_Undo[/FONT][/COLOR][COLOR=#303336][FONT=inherit]()[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Call [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]CellColor_Do[/FONT][/COLOR][COLOR=#303336][FONT=inherit](-[/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]1[/FONT][/COLOR][COLOR=#303336][FONT=inherit])[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]End [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Sub[/FONT][/COLOR][COLOR=#303336][FONT=inherit]

[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Private [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Sub [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]CellColor_Redo[/FONT][/COLOR][COLOR=#303336][FONT=inherit]()[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Call [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]CellColor_Do[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]1[/FONT][/COLOR][COLOR=#303336][FONT=inherit])[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]End [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Sub[/FONT][/COLOR]</code></code>

2. There is still macro to which, too, want to tie:

Code: 
<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">[COLOR=#2B91AF][FONT=inherit]Sub [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Note_FillColor_White[/FONT][/COLOR][COLOR=#303336][FONT=inherit]()[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Dim[/FONT][/COLOR][COLOR=#303336][FONT=inherit] myComm [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]As[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Comment[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
  [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]If [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Not [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]ActiveCell[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Comment [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Is [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Nothing [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Then[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]If [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]MsgBox[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]"[/FONT][/COLOR]The cell already contains a note, delete?[COLOR=#7D2727][FONT=inherit]"[/FONT][/COLOR][COLOR=#303336][FONT=inherit], [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]4[/FONT][/COLOR][COLOR=#303336][FONT=inherit]) [/FONT][/COLOR][COLOR=#303336][FONT=inherit]- [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]7[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Then[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
      [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]ActiveCell[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Comment[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Delete[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Else[/FONT][/COLOR][COLOR=#303336][FONT=inherit]: [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Exit [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Sub[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]End [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]If[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
  [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]End [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]If[/FONT][/COLOR][COLOR=#303336][FONT=inherit]

[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Set[/FONT][/COLOR][COLOR=#303336][FONT=inherit] myComm [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]ActiveCell[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]AddComment[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]With[/FONT][/COLOR][COLOR=#303336][FONT=inherit] myComm[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Shape[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
      [/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Height [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]110[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
      [/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Width [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]200[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
      [/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Top [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]55[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
      [/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]AutoShapeType [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]1 [/FONT][/COLOR][FONT=inherit][COLOR=#7d2727]'form[/COLOR]
[COLOR=#7d2727]      .Fill.ForeColor.SchemeColor = 1 '[/COLOR][COLOR=#303336]Fill color white[/COLOR][/FONT][COLOR=#303336][FONT=inherit]
      [/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Line[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]ForeColor[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#303336][FONT=inherit]RGB [/FONT][/COLOR][COLOR=#303336][FONT=inherit]=[/FONT][/COLOR][COLOR=#303336][FONT=inherit] RGB[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]255[/FONT][/COLOR][COLOR=#303336][FONT=inherit],[/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]0[/FONT][/COLOR][COLOR=#303336][FONT=inherit],[/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]0[/FONT][/COLOR][COLOR=#303336][FONT=inherit])[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
      [/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]DrawingObject[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Font[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Name [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]"Consolas"[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
      [/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]DrawingObject[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Font[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]FontStyle [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]"normal"[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
      [/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]DrawingObject[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Font[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Size [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]8[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
     [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]End [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]With[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
      [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]'[/FONT][/COLOR]Emulate the choice of "Edit Note".[COLOR=#7D2727][FONT=inherit]
       SendKeys "+{F2}"
End Sub
[/FONT][/COLOR]</code>

3. Still hve a macro (need a combine):

Code: 
<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">[COLOR=#2B91AF][FONT=inherit]Sub [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]CoverCommentIndicator[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#303336][FONT=inherit]control [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]As[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]IRibbonControl[/FONT][/COLOR][COLOR=#303336][FONT=inherit])[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
    [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]'www.contextures.com/xlcomments03.html
    Dim ws As Worksheet
    Dim cmt As Comment
    Dim lCmt As Long
    Dim rngCmt As Range
    Dim shpCmt As Shape
    Dim shpW As Double '[/FONT][/COLOR]width of the shape.[COLOR=#303336][FONT=inherit]
    [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Dim[/FONT][/COLOR][COLOR=#303336][FONT=inherit] shpH [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]As[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Double [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]'[/FONT][/COLOR]the height of the form.[COLOR=#7D2727][FONT=inherit]

    Set ws = ActiveSheet
    shpW = 8
    shpH = 6
    lCmt = 1

    For Each cmt In ws.Comments
      Set rngCmt = cmt.Parent
      With rngCmt
        Set shpCmt = ws.Shapes.AddShape(msoShapeRectangle, _
          rngCmt.Offset(0, 1).Left - shpW, .Top, shpW, shpH)
      End With
      With shpCmt
        .Name = "CmtNum" & .Name
        With .Fill
          .ForeColor.SchemeColor = 9[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
          [/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Visible [/FONT][/COLOR][COLOR=#303336][FONT=inherit]=[/FONT][/COLOR][COLOR=#303336][FONT=inherit] msoTrue
          [/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Solid[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
        [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]End [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]With[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
        [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]With [/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Line[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
          [/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Visible [/FONT][/COLOR][COLOR=#303336][FONT=inherit]=[/FONT][/COLOR][COLOR=#303336][FONT=inherit] msoTrue
          [/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]ForeColor[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]SchemeColor [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]64 [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]'[/FONT][/COLOR]The stroke color is set automatically for all indicators![COLOR=#7D2727][FONT=inherit]
          .Weight = 0.25 '[/FONT][/COLOR]The thickness of the stroke is automatically set for all indicators![COLOR=#303336][FONT=inherit]
        [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]End [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]With[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
        [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]With [/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]TextFrame[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
          [/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Characters[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Text [/FONT][/COLOR][COLOR=#303336][FONT=inherit]=[/FONT][/COLOR][COLOR=#303336][FONT=inherit] lCmt
          [/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Characters[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Font[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Size [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]5[/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]
          .Characters.Font.ColorIndex = xlAutomatic
          .MarginLeft = 0#
          .MarginRight = 0#
          .MarginTop = 0#
          .MarginBottom = 0#
          .HorizontalAlignment = xlCenter '[/FONT][/COLOR]The location of the text (in this case, in the center).[COLOR=#303336][FONT=inherit]
        [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]End [/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]With[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
        [/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Top [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#2B91AF][FONT=inherit]Top [/FONT][/COLOR][COLOR=#303336][FONT=inherit]+ [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]0.001 [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]'[/FONT][/COLOR]The location of the frame (in this case on the right).[COLOR=#7D2727][FONT=inherit]
      End With
      lCmt = lCmt + 1
    Next cmt
End Sub
[/FONT][/COLOR]</code>

In fact, I have a lot of macros (perhaps if you understand how to tie Undo/Redo to these macros - you can understand the formula and in the future to adapt).
 

Excel Facts

Enter current date or time
Ctrl+: enters current time. Ctrl+; enters current date. Use Ctrl+: Ctrl+; Enter for current date & time.
Sort by date Sort by votes
Re: Find some info.

There is a topic on this issue.

The first macro in my opinion is the most suitable. Noticed the cons:
1. Ctrl+Y doesn't work.
2. Ctr+Z - only 1 step. And erases the cell (i.e. strips/tracings of the cell)!
3. If you fill several cells (multiselect) - fill is not black but different for each cell (black is only the first). More cells are numbered 1, 2, 3, etc. (what it meant)!?
4. The second option just not a cake, brew some. :biggrin:


5. @Sergey - By the way, shared a good idea!

---
Do you have any idea how to roll it all on VBA?


The above macro which I shared was better (in this topic the first code)... There are the same nuances and pluses:
Multiserivce works as it should. There is no numbering!


---
Stumbled on this add-in Ablebits called, (the trial period can be downloaded from the official website but still there is always a crack here and here). There is a backup Book:

1060046d1565421641



1060047d1565421692


I wrote them - (they mow under the Americans but I know that there Russian sit) also say that they have no access to some internal resources Excel and therefore implemented for their personal macros such `BackUP`. Using the buttons in this add-in, I noticed that Ctrl+Z work somewhere where it is not. Despite the fact that they made a dragon add-in and Ctrl+Z to implement failed.

---
Another BOURGES online read this:
When you run a macro, however, the macro doesn't "play nice" with the Undo list. In fact, running a macro completely erases the Undo list, and therefore you cannot automatically undo the effects of running the macro. There is no intrinsic command—in Excel or in VBA—to preserve the Undo list
Click to expand...

---
Does anyone have any ideas on implementing such backup options:
1. Described @Sergey's.
2. Ablebits backup.
3. Well or use the standard method, and it is - DELETE; delete anything through the "Context Menu"; Always make a copy of the Book for rollback.
 
Upvote 0
You must log in or register to reply here.

Similar threads

rediffusion
  • Question
How can i add button to `ContextMenuShape`?
Replies
0
Views
925
rediffusion
rediffusion
A
  • Question
At a same time refresh all data connections in all open workbooks
Replies
0
Views
1K
adpatel
A
A
  • Question
Conditional formatting is not working for less than TODAY(), only for greater than
Replies
2
Views
988
alexpazolini
A
J
  • Question
Extract href link from source code using VBA
Replies
3
Views
14K
Domenic
D
H
  • Question
Compare two week numbers from different years in Excel
Replies
2
Views
2K
Tetra201
Tetra201

Forum statistics

Threads
1,214,832
Messages
6,121,853
Members
449,051
Latest member
excelquestion515

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top