Question

This code will go through a filtered range and insert only the visible cells into an array (pretend column A was filtered according to my criteria). BUT, what I really want to do is shift one column over and insert the contents of “B3” into my array instead of “A3”. How do I modify my code to this?

For Each cell In Range.SpecialCells(xlCellTypeVisible)
    Array1(i) = cell.Value
    i = i + 1
Next c

I was thinking something like Array1(i) = Cells(cell.Row, cell.Column + 1).Value

Answer 1

For Each cell In Range.SpecialCells(xlCellTypeVisible)
    Array1(i) = cell.Offset(ColumnOffset:=1).Value
    i = i + 1
Next c