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

• #16819 Mutt senior tag Aladaar #16814

  Új Válasz 2013-02-20 11:23:33 #16819

  Ú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

  

  Mutt

  senior tag

  válasz Aladaar #16814 üzenetére

  Hello,

  2. adott egy táblázat, aminek az egyik oszlopában ha rászűrök egy-egy értékre, akkor azt szeretném, hogy az az érték látszódjon a táblázat felett egy külön cellában is.

  Csak makróval megy és ha több kijelölésed van akkor is csak az első mutatja, itt a minta.

  A szűrő feletti cellába tedd ezt (a filter tartományom A2:A11 volt):
  =IF(SUBTOTAL(3;A$2:A$11)="";"";FilterCriteria(A$2))

  A kód pedig:
  Public Function FilterCriteria(rng As Range) As String
  Dim Filter As String
  
  On Error GoTo Finish
  With rng.Parent.AutoFilter
  If Intersect(rng, .Range) Is Nothing Then GoTo Finish
  With .Filters(rng.Column - .Range.Column + 1)
  If Not .On Then GoTo Finish
  If .Criteria1 <> "" Then Filter = .Criteria1
  End With
  End With
  
  Finish:
  FilterCriteria = Replace(Replace(Filter, "*", ""), "=", "")
  If Filter = "" Then FilterCriteria = ""
  
  End Function

  üdv.

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