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

• #22547 Fferi50 Topikgazda Bobrooney #22542

  Új Válasz 2014-07-23 18:13:37 #22547

  Ú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 Bobrooney #22542 üzenetére

  Szia!

  Excel 2007-től működik az adatok ismétlődések eltávolítása.
  Ennek felhasználásával:
  Átmásolod az eredeti listádat egy új helyre - ahonnan majd használni szeretnéd.
  Utána az új helyen adatok - ismétlődések eltávolítása menüpont használata.
  Makróban pl.
  ActiveSheet.Range.("Y11200").RemoveDuplicates columns:=1 header:=xlYes vagy xlNo attól függően, hogy van-e fejléc.
  Előtte pedig Application.DisplayAlerts=False
  Utána: Application.DisplayAlerts=True
  Ez a két sor arra kell, hogy ne "üzengessen", hány adatot távolított el.

  Üdv.

• #22543 Delila_1 veterán Bobrooney #22542

  Új Válasz 2014-07-23 16:05:35 #22543

  Ú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 Bobrooney #22542 üzenetére

  Ha jól látom, az F oszlopból akarod kinyerni az egyedi értékeket. Erre jó a speciális szűrő, amit makróval is előállíthatsz.
  A lenti pár sor a Z oszlopba ír, címsorral együtt, majd a kinyert adatokat a tomb nevű tömbbe rakja. A végén kiírja a tomb() harmadik értékét, próbaként.

  Sub TombbeEgyedi()
  Dim usor As Long, tomb()
  
  usor = Range("F" & Rows.Count).End(xlUp).Row
  Range("F1:F" & usor).AdvancedFilter Action:=xlFilterCopy, _
  CopyToRange:=Range("Z1"), Unique:=True
  
  usor = Range("Z" & Rows.Count).End(xlUp).Row
  tomb = Application.Transpose(Range("Z2:Z" & usor))
  
  MsgBox tomb(3)
  End Sub

  Mikor betöltötted a tomb()-be az adatokat, megadhatod a makróban a további felhasználásra az utasításokat. Ehhez már nincs szükség a Z oszlopra, törölheted.

  Szerk.:
  Közben kibővítetted a kérdést. Valószínű, hogy érvényesítéshez kellenek az egyedi értékek. A Z oszlopból megadhatod a tartományt.

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