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

• #12980 Delila_1 veterán WGW #12977

  Új Válasz 2012-02-23 09:41:53 #12980

  Ú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 WGW #12977 üzenetére

  Lehet, hogy félreértem, mert túl egyszerűnek tűnik a feladat.

  Tehát a Munka1 lapodon vannak az adataid 12 oszlopban (A:L).
  Ezeket szűrd kedved szerint, majd indítsd a

  Sub másol()
  Sheets("Munka2").Columns("A:L").Delete
  Sheets("Munka1").Select
  Dim ter As Range
  Set ter = Range(Range("A1"), Range("L" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)
  ter.Copy Sheets("Munka2").Cells(1, 1)
  End Sub

  makrót. Ez a Munka2 lapra másolja az aktuális szűrésnek megfelelő adatokat, amiket már rendezhetsz pl. a dátumok szerint.

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