k0st4din
11-08-2015, 11:25 PM
Hello everybody,
about a week ago on this site (http://www.mrexcel.com/forum/excel-questions/899632-macro-filtered-no-fill-cells.html) I asked for help to make a macro, but to this day I have no answer, and I am now writing to you about a cooperation.This is what I'm trying to do:
In column A2 (here I have a filter), down from a3 have text lines are painted in several colors (orange, green, red) and there are not colored (no fill).
This column is the same in all other 46 sheets (sales, city 1, product 2, product 1, etc.).
I want to make a macro and a button with which it pushed, only filters no fill cells in my sheets. When pressed a second time to button my column back in its original form.
Thank you once again.
Sub fillnofill()
Sheets("Blag total").Select 'how to add the names of the other sheets?
Range("A2").Select
ActiveSheet.Range("A2").AutoFilter Field:=1, Operator:= _
xlFilterNoFill
'how to add something that I one button to perform two actions?
Range("A2").Select
ActiveSheet.Range("A2").AutoFilter Field:=1
Range("A2").Select
End Sub
about a week ago on this site (http://www.mrexcel.com/forum/excel-questions/899632-macro-filtered-no-fill-cells.html) I asked for help to make a macro, but to this day I have no answer, and I am now writing to you about a cooperation.This is what I'm trying to do:
In column A2 (here I have a filter), down from a3 have text lines are painted in several colors (orange, green, red) and there are not colored (no fill).
This column is the same in all other 46 sheets (sales, city 1, product 2, product 1, etc.).
I want to make a macro and a button with which it pushed, only filters no fill cells in my sheets. When pressed a second time to button my column back in its original form.
Thank you once again.
Sub fillnofill()
Sheets("Blag total").Select 'how to add the names of the other sheets?
Range("A2").Select
ActiveSheet.Range("A2").AutoFilter Field:=1, Operator:= _
xlFilterNoFill
'how to add something that I one button to perform two actions?
Range("A2").Select
ActiveSheet.Range("A2").AutoFilter Field:=1
Range("A2").Select
End Sub