2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #22543 Delila_1 veterán Bobrooney #22542
    Új Válasz #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