Public Sub respectFilter() Dim ds2 As New cDataSet, dr As cDataRow With ds2.populateData(wholeSheet("mercadoLibre"), , , , , , True, , , , True) For Each dr In .rows If dr.hidden Then dr.Where.Interior.Color = vbRed Else dr.Where.Interior.Color = vbYellow End If Next dr End With End Sub
bruce mcpherson is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Based on a work at http://www.mcpher.com. Permissions beyond the scope of this license may be available at code use guidelines