Copy only visible columns with conditional Formatting

[Protonspounge]

Hello,

Can I start by thanking the people in this forum for the wealth of knowledge contained within it. It makes things accessible, even for a complete novice like myself.

Ok, on to my request for help, as I cannot get over this hurdle....

I am building a data tracker for my research lab, where an analyst can highlight a selection of data and by clicking a button, send the data to the team.

I have a set of buttons in my spreadsheet that will hide all columns, except some up front info columns (colums B:I) followed by the chosen test data. (e.g. click "Karl Fischer" and columns B:I (info columns) will display followed by columns BB:BC (test data)

Alot of the columns from J:BC have conditional formatting in them, and I was aided greatly by another thread in this forum which creates the email with the conditional formatting:- https://www.excelforum.com/excel-pro...ml#post4626411

However, the goal is that we will be able display certain data (using buttons), highlight the visible cells starting in column B, and by clicking "Email Results to Team" the selected table (visible) will be copied accross to an email with the conditonal formating.

I have tried hard to build in the funtionality to only copy the visible cells, taking infomation from https://www.rondebruin.nl/win/s1/outlook/bmail2.htm with the following code:-

Set rng = Nothing
On Error Resume Next
'Only the visible cells in the selection
Set rng = Selection.SpecialCells(xlCellTypeVisible)
'You can also use a fixed range if you want
'Set rng = Sheets("YourSheet").Range("D4:D12").SpecialCells(xlCellTypeVisible)
On Error GoTo 0

However, I am just not knowledgable enough to add this funtionality...

The code I got from the previous thread in this forum does everything I need it to do, except to only copy across only visible cells. I would be very grateful for any guidence that could be offered by more skilled fellow humans!

The code I would like to modify, is in Module 5 and below

Please Login or Register  to view this content.

In hope

Protonspounge