How to search active cell's value on Google after adding filter

Asked Aug 29 '22 at 14:00

Active Aug 29 '22 at 17:43

Viewed 26 times

I am trying to search active cell's value of top 5 cells in a column. It will work smoothly if there is no filter added with offset(1,0) method. But when I am adding filter the offset method doesn't work on visible cells. It goes below the active cell(non visible cell).

How can I search active cell value 1 by 1 i.e. top 5 while having a filter ?

Below is the code for without filter:

  Sub searchActiveCellPr()
    Dim query As String
    Dim search_string As String
    Dim iedgepath As String
    Dim i As Long

    For i = 1 To 5
    query = ActiveCell.Text
    Shell ("C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe -url http:google.com/search?q=" & search_string)

    ActiveCell.Offset(1, 0).Select
    ActiveCell.Offset(1, 0).SpecialCells(xlCellTypeVisible).Select 'This one also not working
    
       Next i
    End Sub

edited Aug 29 '22 at 17:43

asked Aug 29 '22 at 14:00

Arman266

Loop over the `.SpecialCells(xlCellTypeVisible)`? – BigBen Aug 29 '22 at 14:01
I am sorry I didnt get you. Are you asking did I use .SpecialCells(xlCellTypeVisible)? Yes I tried this one also but it didnt work. You can check on your side also. It will throw an error – Arman266 Aug 29 '22 at 14:12
It would be helpful to show *how* you tried using `.SpecialCells(xlCellTypeVisible)`. – BigBen Aug 29 '22 at 14:13
ActiveCell.Offset(1, 0).SpecialCells(xlCellTypeVisible).Select I am trying this, But it is selecting every cell – Arman266 Aug 29 '22 at 14:16
Please [edit your question](https://stackoverflow.com/posts/73530015/edit) – cybernetic.nomad Aug 29 '22 at 14:47
@cybernetic.nomad What part I should edit? – Arman266 Aug 29 '22 at 17:27
The part where you show us _how_ you tried using `.SpecialCells(xlCellTypeVisible)` maybe? – cybernetic.nomad Aug 29 '22 at 17:29
@cybernetic.nomad Done. I waiting for someone to answer this question. – Arman266 Aug 29 '22 at 17:44
You select cells but don't seem to do anything with them after you have selected them, [This may be useful](https://stackoverflow.com/questions/10714251/how-to-avoid-using-select-in-excel-vba) – cybernetic.nomad Aug 29 '22 at 17:45
You can use `SpecialCells(xlCellTypeVisible)` on a multi-cell range (perhaps the entire column here?) and then loop through its result. – BigBen Aug 29 '22 at 18:23
@BigBen Can you please write a code to show your solution? – Arman266 Aug 30 '22 at 00:34

How to search active cell's value on Google after adding filter

0 Answers0