Excel buttons stop working when shared over email

[built4thekill]

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.

 

[Yongle]

Please post the code for both buttons

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

 

[built4thekill]

Please post the code for both buttons

Are they Form Control buttons (as indicated in image below)?
View attachment 25115

Yes that's what i've used

 

[Yongle]

and the code?

 

[built4thekill]

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]

Delete your original macro from ThisWorkbook
Place this macro in a Module (like Module1) , assign it to your button and test

Sub ClearAll1()
    With ActiveSheet
        .Range("D8:K18,D4:K4,AB4").ClearContents
        .Range("AB4").Activate
    End With
End Sub

 

[built4thekill]

Delete your original macro from ThisWorkbook
Place this macro in a Module (like Module1) , assign it to your button and test

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]

From where is data being copied prior to clicking on that button?

 

[built4thekill]

From where is data being copied prior to clicking on that button?

Other microsoft 365 apps and some Internet explorer based apps & chrome

 

[Yongle]

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

Sub PasteValues()
    ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, DisplayAsIcon:=False
End Sub