Trying to 1) remove the hyperlink, and 2) format paint (.PasteSpecial xlPasteFormats) a preferred non-contiguous range upon enter-click after entry of an e-mail address, that by default, jumps to Excel's normal style. Cannot get it to work. Help appreciated.
Please Login or Register to view this content.
Perhaps it was the Noid who should have avoided me...
If you are satisfied with my solution click the small star icon on the left. Thanks
1. Make a copy of your workbook and run the following code on your copy (just in case)
2. With excel open, press ALT+F11 to open the Visual Basic Editor (VBE). From the "Insert" menu, select "Module".
3. Paste the code from above into the empty white space. Close the VBE.
4. From the developer tab, choose "Macros", select the Sub Name, and click "Run".
Simplified it a bit by creating a style and just applying that style in lieu of the format paint. Simplified to the following, but still not working when exiting the cell after text entry via "Enter". Thanks.
Please Login or Register to view this content.
Friendly Bump
What is not working?
- Please remember to mark threads Solved with Thread Tools link at top of page.
- Please use code tags when posting code: [code]Place your code here[/code]
- Please read Forum Rules
Nothing happens. I enter an email address in the target cell "L48" and expect that upon enter, the hyperlink to be removed and a style applied. The result upon enter or clicking in another cell is a hyperlinked e-mail adress with the default 'Hyperlink' style of Calibri 12, light blue font.
Your code is working in 2013. Have you verified it is running?
How would one verify it's running? Isn't it always running/monitoring for changes and if within target, performing the actions?
Not if events have been disabled. You may place a breakpoint on the first line and then enter a hyperlink to see if the code will react.
In a blank 2013 workbook with one sheet as "Sheet 1", and the code residing in that sheet object (not a module), I entered an e-mail address into L48 and nothing happened. I then deleted the L48 contents, set a breakpoint at the first line, reentered an e-mail in L48, pressed enter to exit the cell (whereby changing the value of the cell from nothing to a text string that happens to be an e-mail address), and the code does not react.
I think you have disabled events then. Please run this and repeat the test after:
Please Login or Register to view this content.
Ran and re-tested. Still nothing.
After you get events re-enabled and make sure the code is in the correct sheet module, there's no need to disable events.
Please Login or Register to view this content.
Entia non sunt multiplicanda sine necessitate
If you enter something in any cell is the code triggered?
On 2nd look, it was the events. Thank you both.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks