Hirdetés

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

    Mobilarena

    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

  • #35639 oke senior tag
    Új Válasz #35639
    Ú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

    oke

    senior tag

    Sziasztok!

    Van egy makró részletem, szűrésre és törlésre, a "G" oszlop alapján:

    If WF.CountIf(Columns(7), "Alma*") + WF.CountIf(Columns(7), "Körte*") + WF.CountIf(Columns(7), "Narancs*")> 0 Then
    usor = Range("A" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("$A$1:$K$" & usor).AutoFilter Field:=7, Criteria1:=Array( _
    "Alma", "Körte", "Narancs"), Operator:=xlFilterValues
    Range("A2:AK" & usor).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    ActiveSheet.Range("$A$1:$K$" & usor).AutoFilter Field:=7
    End If

    Ezt szeretném átalakítani úgy, hogy a "J" oszlopba kiválasztanék egy értéket: "-" (gondolatjel) és az ez által látszódó adatokból a "G" oszlopban a nem egyezőket törölném. Mondjuk a fenti példa alapján azokat a sorokat törölném, ami nem "Körte" és "Narancs".
    Valójában ennél sokkal több adat szerepel a "G" oszlopban, ezért kellene az ellenkezőre szűrés. Remélem érthető :)

    Excel 2007

    U.I.: Nem vagyok nagy makrókészítő, a fenti is Delila-nak köszönhető, azt alakítgatom :)

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