..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Prebrati zapise iz poizvedbe Auto Filter

Pomoč pri izdelavi makrov

Prebrati zapise iz poizvedbe Auto Filter

OdgovorNapisal/-a Buba » To jan 06, 2009 10:18 am

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
Buba
 
Prispevkov: 83
Pridružen: Sr mar 12, 2008 11:49 am
Kraj: Maribor



Matjazev.NET
 

OdgovorNapisal/-a admin » To jan 06, 2009 11:16 am

Č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
admin
Site Admin
 
Prispevkov: 3534
Pridružen: Sr jul 20, 2005 10:06 pm

OdgovorNapisal/-a Buba » To jan 06, 2009 11:44 am

Ja, to me zanima.
Hvala za odgovor.
Buba
Buba
 
Prispevkov: 83
Pridružen: Sr mar 12, 2008 11:49 am
Kraj: Maribor


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 2 gostov

cron