Why can't i filter two different columns with different criterias like this
Hi Unseen
I got i working, but:
bNoVisibleLines is always true when Count = 1, always false when count = 0
NumberOfVisibleLines is always x 5 of visible lines - 1 visible line = 5, 2
=10 an so on.
Why is NumberOfVisibleLines always = visiblerows * 5 ?
Dim bNoVisibleLines As Boolean, NumberOfVisibleLines As Integer
For y = 0 To AntalGyldigeLev - 1
Leverandor = Lev(y, 1)
bNoVisibleLines = False
NumberOfVisibleLines = 0
With Range("A4:AI183")
.AutoFilter Field:=5, Criteria1:=Leverandor,
VisibleDropDown:=False
.AutoFilter Field:=35, Criteria1:="<", VisibleDropDown:=False
bNoVisibleLines = (.SpecialCells(xlCellTypeVisible).Rows.Count =
1)
NumberOfVisibleLines = .Rows.SpecialCells(xlCellTypeVisible).Count
End With
MsgBox Leverandor & ", " & NumberOfVisibleLines & " synlige linie(r)", ,
bNoVisibleLines
If y NumberOfVisibleLines 5 Then
'Call UdSkriv("Ordrebekræftigelse", Leverandor, "C", "D", "E", "F")
End If
Next y
"DM Unseen" skrev i en meddelelse
oups.com...
Dim bNoVisibleLines as boolean
with Range("E4:AI183").
.AutoFilter Field:=1, Criteria1:=Leverandor,
VisibleDropDown:=False
.AutoFilter Field:=35, Criteria1:="<",
VisibleDropDown:=False
bNoVisibleLines = (.SpecialCells(xlCellTypeVisible).Rows.Count = 1)
' only header ro shows
end with
Dm Unseen
|