Új hozzászólás Aktív témák

• #33316 Delila_1 veterán föccer #33311

  Új Válasz 2016-11-25 09:57:01 #33316

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz föccer #33311 üzenetére

  Makró nélkül a szűrt sorok darabszáma:

  =RÉSZÖSSZEG(103;D:D)

  A D:D helyére olyan oszlop betűjelét írd, ahol minden sorban van adat. Ezt a függvényt arra a lapra vidd be, ahol a szűrt táblázatod van, a táblázatodon kívüli cellába. A másik füzetben erre a cellára hivatkozz!

  A 103 a DARAB2 függvénynek felel meg, vagyis minden cellát (szöveges, szám, dátum, képlet) megszámol.

• #33314 Delila_1 veterán föccer #33311

  Új Válasz 2016-11-25 08:43:08 #33314

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz föccer #33311 üzenetére

  Sub teszt_1()
Dim AF As AutoFilter, F As Filter, i As Long, WF As WorksheetFunction

Set WF = Application.WorksheetFunction
Set AF = ActiveSheet.AutoFilter
For i = 1 To AF.Filters.Count
Set F = AF.Filters(i)
If F.On Then
Range("T" & WF.CountA(Columns(20)) + 1) = Chr(i + 64)
Range("U" & WF.CountA(Columns(21)) + 1) = Right(F.Criteria1, Len(F.Criteria1) - 1)
End If
Next
End Sub

  Ez a makró kiírja a T oszlopba a szűrt oszlop betűjelét, az U-ba a kritériumot. Ha 1-nél több kritérium lehetséges 1-1 oszlopban, módosítani kell a makrón.

• #33313 Delila_1 veterán föccer #33311

  Új Válasz 2016-11-25 08:21:32 #33313

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz föccer #33311 üzenetére

  Szia!

  Sub teszt()
Dim AF As AutoFilter, F As Filter, i As Long

Set AF = ActiveSheet.AutoFilter
For i = 1 To AF.Filters.Count
Set F = AF.Filters(i)
If F.On Then MsgBox "Az AutoFilter " & i & ". oszlopában bekapcsolt szűrő, feltétel: '" & F.Criteria1 & "'"
Next
End Sub

  Ez a makró végig lépked a táblázaton. Amelyik oszlopban be van kapcsolva a szűrő, ott kiírja a kritériumot.
  Üzenet helyett cellákba is kiírhatod az eredményt, amit majd a szumhatöbb függvény paramétereként felhasználsz.

• #33312 Fferi50 Topikgazda föccer #33311

  Új Válasz 2016-11-25 08:20:34 #33312

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz föccer #33311 üzenetére

  Szia!

  Semmi akadálya annak, hogy a SZUMHATÖBB függvényben másik munkalapra(munkafüzetre) mutató hivatkozásokat használj.
  Pl.SZUMHATÖBB(egyik munkalap A:A;egyik munkalap B:B; másik munkalap A2; egyik munkalap C:C;másik munkalap D2)
  Ráadásul ezt a képletet akár az egyik, akár a másik, akár egy harmadik munkalapra is elhelyezheted.

  Üdv.

Új hozzászólás Aktív témák