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

    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

  • #52878 gycs02 aktív tag Delila_1 #52876
    Új Válasz #52878
    Ú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

    gycs02

    aktív tag

    válasz Delila_1 #52876 üzenetére

    Szia!
    Tesztelgettem.
    Az első így tökéletes.
    A második akkor nem jó, ha egy szűrt sor van vagy ha a szűrt sorok egymás utániak.

    #52877Fferi50
    Szia!
    Mivel a Delila megoldása jó lett az elsőt nem próbáltam, a második viszont működik.
    Így néz ki a munkalapomra aktualizált makro:
    Dim elso As Integer, utolso As Integer, srng As Range
    elso = 13
    utolso = Range("AW" & Rows.Count).End(xlUp).Row
    Set srng = Range("AW13:BA" & utolso)
    srng.SpecialCells(xlCellTypeVisible).Copy
    With Sheets("VJsegéd").Range("A1")
    .PasteSpecial Paste:=xlPasteColumnWidths
    .PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    End With
    Application.CutCopyMode = False
    A tartománynak, amit szűrök az első sora a 13, az utolsó a 1145, az első oszlop "AW" az utolsó "BA".
    Jó így az aktualizálás?
    Ennél a résznél: utolso = Range("AW" ha "BA"-t írok akkor is ugyan úgy működik, melyik a helyes?

    :R Nagy-nagy köszönet Mindkettőtöknek. :R

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

Hirdetés