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

• #8004 Delila_1 veterán DopeBob #7999

  Új Válasz 2010-08-26 18:20:18 #8004

  Ú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 DopeBob #7999 üzenetére

  Fire most nem ér rá, azért szállok be a megoldásba.
  Vegyük, hogy az első lapon vannak a szűrt adataid, a Munka2 lapon lesz a "népszámlálás", ott is a B1 cellában.

  Sub MennyiAzAnnyi()
  Sheets(2).Range("A:A") = ""
  Sheets(1).Range("A:A").Copy Destination:=Sheets(2).Range("A1")
  
  Sheets(2).Range("A2").Select
  Range(Selection, Selection.End(xlDown)).Select
  
  ActiveWorkbook.Names.Add Name:="ter", RefersTo:="=Munka2!" & Selection.Address
  Range("B1").FormulaArray = "=SUM(1/COUNTIF(ter,ter))"
  End Sub

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