Hello All,
Currently working on SpecialCells(xlCellTypeVisible) where after filtering data, the cells would get highlighted with green color as shown in image 1, but when the formula is used Row no is also getting selected.
The result which I need to get visible cells would highlighted with no extra row added as shown in image 2.
Below is formula used.
OB2.ActiveSheet.UsedRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).Rows.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
We try to remove the header by using .Offset(1,0)
. This however adds a row to the bottom. Consider:
Sub RemoveHeaderRow()
Dim tablee As Range
Dim tableeBody As Range
Set tablee = Range("A1").CurrentRegion
Set tableeBody = tablee.Offset(1, 0).Resize(tablee.Rows.Count - 1, tablee.Columns.Count)
tableeBody.Select
End Sub
This is the range to use SpecialCells
on.
The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.