Ž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