Hi graha_karya
Sorry - it was a long and tiring day yesterday so maybe I was too brief and didn't fully explain myself.
I have a worksheet with a mass of data that I can filter to show me the outcome from different parts of the process, but I have no way of seeing the the outcome from all the filters at the same time. The only way that I can think of, to enable me to see the total outcome, is to apply a filter and copy the visible cells to a sheet that I have called 'Consolidated_Data', and repeat this process for each filter.
So, for example, the first filter shows me:
[ATTACH=JSON]{"data-align":"none","data-size":"full","title":"Filt01.png","data-attachmentid":1210741}[/ATTACH]
I have a Command Button - "Copy Cells to Cons_Data" - which I would hit and it would then copy that block of cells to 'Consolidated_Data'.
Then I change the filter settings and the new filter outcome is:
[ATTACH=JSON]{"data-align":"none","data-size":"full","title":"Filt02.png","data-attachmentid":1210742}[/ATTACH]
I would hit the "Copy Cells to Cons_Data" button and the new block of cells would be copied to 'Consolidated_Data', beneath the first block of cells.
I reset the filter to a different part of the process and obtain a new filtered outcome (I can't show you a picture because we're limited to 2 x images).
I would hit the "Copy Cells to Cons_Data" button and the new block of cells would be copied to 'Consolidated_Data', beneath the second block of cells.
I keep repeating that process until I've applied each filter that I want to use, and on the 'Consolidated_Data' sheet I then have the combined output from all the filters. I can't show you a picture of what that would look like, firstly because I don't know how to code it to make it copy those visible cells from the source sheet to the 'Consolidated_Data' target sheet, and secondly because of the 2 x images limitation.
I already use existing coding that allows me to copy part of the unfiltered worksheet to a temporary back-up:
Sub BackUp()
ActiveSheet.Range("E16:P4000").Copy Destination:=Worksheets("Temporary Data").Range("E16")
End Sub
I thought that by using similar coding, maybe I could copy the visible cells to another sheet, so I tried:
Sub CopyVisibleRange()
ActiveSheet.Range("A16:DK4000").SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("Consolidated_Data").Range("A16")
End Sub
but it resulted in an error pop-up that just showed "400". I then tried adding Paste and PasteSpecial and several other things but I'm unable to make it copy the visible cells to the target sheet. I've scoured the internet to try to work out how to do it but I'm at a complete loss - hence my call for help.
Trust that clarifies it.