Prebrati zapise iz poizvedbe Auto Filter

Pomoč pri izdelavi makrov
Odgovori
Buba
Prispevkov: 85
Pridružen: Sr Mar 12, 2008 11:49 am
Kraj: Maribor

Prebrati zapise iz poizvedbe Auto Filter

Odgovor Napisal/-a Buba »

Pozdravljeni!
Želim natisniti obrazce (excel-ove liste) po določenem vrstnem redu. Pripravil sem seznam, ga prefiltriral z funkcijo auto filter, sedaj pa želim koloni datoteka in list zložiti v dvodimenzionalno polje. To polje bi uporabil v nadaljevanju makroja.
Kako se preberejoizbrani zapisi iz poizvedbe?
Kako se preštejejo ti izbrani zapisi?
Lep dan!

Koda: Izberi vse

Sub PreberiZapis()

Set w = Worksheets("Seznam")


w.Range("A1").AutoFilter field:=9, Criteria1:="Strojnik 3"
w.Range("A1").AutoFilter field:=10, Criteria1:="neparni obhod"

Range("A4:P33").Sort Key1:=Range("K3"), Order1:=xlDescending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

currentFiltRange = w.AutoFilter.Range.Address
j = w.AutoFilter.Filters.Count

ReDim filterArray(1 To j, 1 To j)

i = 1

For Each f In w.AutoFilter.Filters
'POMOC
 'citaj ime datoteke, list
    
  
  
    i = i + 1
Next


'w.AutoFilterMode = False

End Sub
Buba
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Če vas razumem pravilno, vas zanima samo kako ugotoviti ali je neka vrstica v filtru vidna ali ne. Spodaj imate primer, ki izpiše samo vidne vrstice:

Koda: Izberi vse

Option Explicit

Sub test()
  Dim vrstica As Integer
  
  For vrstica = 2 To 300
    If (Not Rows(vrstica).Hidden) Then Debug.Print vrstica
  Next
End Sub

lp,
Matjaž Prtenjak
Administrator
Buba
Prispevkov: 85
Pridružen: Sr Mar 12, 2008 11:49 am
Kraj: Maribor

Odgovor Napisal/-a Buba »

Ja, to me zanima.
Hvala za odgovor.
Buba
Odgovori