Excel - Mark Invoice Paid: Episode 1709

[@MESinkiewicz]

Really well-done! Explicit instructions and a touch of fun. Thank you!

[@excelisfun]

Cool!

[@carolinebarbeau2157]

That was awesome, thank you! My only problem is that when I highlight the text to copy paste, it only copies the font, not the box and the text is filled in instead of outlined as the original so I'm definitely missing something.

[@MrXL]

Hello Caroline - I recognize this problem and I think that I have a solution. When you first click on the shape, it is selected with a dashed outline. The dashed outline means that you are in "Edit" mode. When you copy now, you are only getting the letters. This step takes some precision. Hover over the dotted outline until you see the four-headed arrow. Click. The dotted outline changes to a solid outline. This selects the entire object. You can now Ctrl+Drag to make a copy. The complicating factor... the steps in the original video add a box around the shape, so it is even harder to see what is happening. Here is a short video that shows what I mean: kzbin.info/www/bejne/Y3SxfHmKltiEedk

[@krn14242]

Neat, easy trick.

[@anskidi1]

Thank You!

[@Franky2307]

how to do the stamp with date ie. = today ()

[@Franky2307]

thank you only problem... when you open up the old invoice. the date changed ! o-:)... any bright idea Bill

[@Franky2307]

how to make the date stick... when paid....converted to graphic ? ie. create a vba code to just click to convert "text box = paid on (DATE)" to graphic then paste into the sheet somewhere ?

[@Franky2307]

="PAID ON " & TEXT(DATEVALUE("DD-MMM-YYYY")) there is error on the stamp.. "couldnt find the range reference or define name ? it seems like the stamp does not like formula.. but it can use equal to another cell ie. =$C$47

[@Franky2307]

Hi Bill, I figure out :) with Macro ... so happy now Sub StampPaidInvoice() ' StampPaidInvoice ActiveSheet.Shapes("Bevel 6").Select ' This line to make sure macro select the module correctly Selection.OnAction = "StampPaidInvoice" Selection.Copy ' where the stamp go and converting to picture format... Range("E33").Select ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False _ , DisplayAsIcon:=False Selection.OnAction = "StampPaidInvoice" End Sub