Using VBA, how can I enter a value into a cell that has been filtered?

[bruty]

I have a range of data with filters on. I have a macro that applies one of the filters and what I now want to do is just enter a "1" in Column A next to cells that are visible when filtered.

I have tried having a variable and adding one to the variable to move to the next cell and also using the activecell.offset option, but it still enters data into the cells that should be hidden by the filter.

How can I just enter a value into visible cells only?

 

[Fluff]

How about

Sub bruty()
   Range("A:A").SpecialCells(xlVisible).Value = 1
End Sub

 

[bruty]

How about

Sub bruty()
   Range("A:A").SpecialCells(xlVisible).Value = 1
End Sub

Got that working. Many thanks for the help

 

[Fluff]

You're welcome & thanks for the feedback