Ú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.

• #12978 Apollo17hu őstag WGW #12977

  Új Válasz 2012-02-22 22:05:05 #12978

  Ú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

  

  Apollo17hu

  őstag

  válasz WGW #12977 üzenetére

  Szia!

  Amit te szeretnél, az szerintem már adatbáziskezelés témakör. Sokkal gyorsabban és egyszerűbben megoldható lenne a problémád, ha az adataidat nem Excel-ben, hanem egy adattáblában tárolnád, amit egy adatbáziskezelővel (akár MS Access) vizsgálnál. A többtízsoros makró helyett néhány soros SQL-lekérdezéseket lehetne írni a problémádra, a listázott eredményt pedig akár exportálhatnád is Excelbe.

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