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.
 

Some videos you may like

Excel Facts

Copy PDF to Excel
Select data in PDF. Paste to Microsoft Word. Copy from Word and paste to Excel.

Yongle

Well-known Member
Joined
Mar 11, 2015
Messages
6,977
Office Version
  1. 365
Platform
  1. Windows
Please post the code for both buttons

Are they Form Control buttons (as indicated in image below)?
Form Control Button.jpg
 

Yongle

Well-known Member
Joined
Mar 11, 2015
Messages
6,977
Office Version
  1. 365
Platform
  1. Windows
and the code?
 

built4thekill

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

ADVERTISEMENT

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
 

Yongle

Well-known Member
Joined
Mar 11, 2015
Messages
6,977
Office Version
  1. 365
Platform
  1. Windows
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
 

built4thekill

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

ADVERTISEMENT

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
 

Yongle

Well-known Member
Joined
Mar 11, 2015
Messages
6,977
Office Version
  1. 365
Platform
  1. Windows
From where is data being copied prior to clicking on that button?
 

Yongle

Well-known Member
Joined
Mar 11, 2015
Messages
6,977
Office Version
  1. 365
Platform
  1. Windows
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
 
Solution

Watch MrExcel Video

Forum statistics

Threads
1,122,355
Messages
5,595,680
Members
414,008
Latest member
SNesbyCarr

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
Top