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

• #52878 gycs02 aktív tag Delila_1 #52876

  Új Válasz 2024-06-26 08:53:26 #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?

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

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