Use only visible rows in Macros code after autofilter

[Namratak]

Hi,
I have coded for a solver problem in macros. But the problem is the range in B column is auto filtered and the other rows are hidden. So as per inputs, only the rows in B column that satisfy the input are shown. It can start at any row. How do I include the code to use only visible cells in the column B for calculation? Pls help.

Dim Counter As Integer
Dim lastrow As String

Counter = 0
For Each Testname In Range("B3:B10000")
If IsEmpty(Testname) = False Then
Counter = Counter + 1

Else
Counter = Counter + 0
End If

Next Testname
SolverOk SetCell:="$T$1", MaxMinVal:=2, ValueOf:=0, ByChange:="$L$3:$L$counter", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$T$1", MaxMinVal:=2, ValueOf:=0, ByChange:="$L$3:$L$counter", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
End Sub

 

[JLGWhiz]

For Each Testname In Range("B3", Cells(Rows.Count, 2).End(xlUp)).SpecialCells(xlCellTypeVisible)

 

[Namratak]

Hi, this works. thankyou somuch! however I had another doubt. I wanted to calculate column L of no. of units needed of each type of row such that minimum cost occurs( if cost is cell T1) and the column G should be equal to or more than the column L that the macros calculated.
However my code just distributes the cost among all the visible rows. where am I going wrong in the coding?

Also, I appreciate your help!

 

[Namratak]

this is the nearest ive come to:

Sub Macro4()
'
' Macro4 Macro
'
'
Dim Counter As Integer
Dim lastrow As String
Counter = 0
For Each Testname In Range("B3", Cells(Rows.Count, 2).End(xlUp)).SpecialCells(xlCellTypeVisible)
If IsEmpty(Testname) = False Then
Counter = Counter + 1

Else
Counter = Counter + 0
End If

Next Testname
SolverOk SetCell:="$T$1", MaxMinVal:=2, ValueOf:=0, ByChange:="$L$3:$L$counter", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:=Range("$L$3:$L$counter"), Relation:=1, CellRef:=Range("$G$3:$L$counter")
SolverSolve
End Sub

 

[JLGWhiz]

I can't be much help on the Solver, I have never used it and have no idea how it works.
Regards, JLG