Excel buttons stop working when shared over email

built4thekill

New Member
Joined
Oct 26, 2020
Messages
22
Office Version
  1. 365
Platform
  1. Windows
Hi all,

need some help. I recently created a workbook/tool which ahd a Paste button and Clear All button included. They work fine on my PC however when I share it via email and my colleagues try everything works (all other macros) but those two buttons. Any idea why this could be happening? I saved them to This Workbook when creating them.
 

Excel Facts

How to total the visible cells?
From the first blank cell below a filtered data set, press Alt+=. Instead of SUM, you will get SUBTOTAL(9,)
Please post the code for both buttons

Are they Form Control buttons (as indicated in image below)?
Form Control Button.jpg
 
Upvote 0
and the code?
So basically I've recorded the macro. Not evry good at coding. I just record... stop record save. :) Clear all button as below:


Sub ClearAll1()
'
' ClearAll1 Macro
'

'
Range("D8:K18,D4:K4,AB4").Select
Range("AB4").Activate
Selection.ClearContents
End Sub
 
Upvote 0
Delete your original macro from ThisWorkbook
Place this macro in a Module (like Module1) , assign it to your button and test

VBA Code:
Sub ClearAll1()
    With ActiveSheet
        .Range("D8:K18,D4:K4,AB4").ClearContents
        .Range("AB4").Activate
    End With
End Sub
 
Upvote 0
Delete your original macro from ThisWorkbook
Place this macro in a Module (like Module1) , assign it to your button and test

VBA Code:
Sub ClearAll1()
    With ActiveSheet
        .Range("D8:K18,D4:K4,AB4").ClearContents
        .Range("AB4").Activate
    End With
End Sub
thanks a lot it's working for me. Just need to wait on a colleague to see how it works for them.

Can I bother you for the paste button?

Sub PasteValues()
'
' PasteValues Macro
'
' Keyboard Shortcut: Ctrl+v
'
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
DisplayAsIcon:=False
End Sub
 
Upvote 0
From where is data being copied prior to clicking on that button?
 
Upvote 0
Are you doing the following?
- copying to clipboard in another app
- clicking on cell in sheet
- clicking on PasteValues Button

If you are ...
- delete your original macro
- place code below in a module like Module1
- assign PasteValues to the Button

VBA Code:
Sub PasteValues()
    ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, DisplayAsIcon:=False
End Sub
 
Upvote 0
Solution

Forum statistics

Threads
1,213,531
Messages
6,114,167
Members
448,554
Latest member
Gleisner2

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