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

• #23722 Fferi50 őstag slashing #23720

  Új Válasz 2014-10-14 23:43:08 #23722

  Ú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

  

  Fferi50

  őstag

  válasz slashing #23720 üzenetére

  Szia!

  Most ellenőriztem, sajnos a speciális szűrés nem megy, mert ha nincs olyan fejléc a szűrendő mezőben, akkor hibát dob (bár nem egészen értem a logikáját, hogy miért, de ez van, ezt kell elfogadni.)

  Másik ötlet:
  Képlet szinten: Hol.van függvénnyel meghatároznám, hogy az adott fejléc hanyadik oszlopban van a másik táblában és abba az oszlopba kell tenni az adatot. (Nyilván ezt le lehet makróval rendezni (match függvény)).
  Tehát: kb.így nézne ki
  set mlap1=workbooks("Munkafüzet3").sheets("Munka1")
  set mlap2=workbooks("Munkafüzet4").sheets("Munka1")
  itt kezdheted az oszlopok ciklusát
  oszlop=application.match(mlap1.range("A1").value;mlap2.rows('"1:1"),0)
  if not iserror(oszlop) then ' ez csak azért kell, ha mégsem lenne olyan fejléc a másik munkalapon
  yy=mlap.cells(40000,oszlop).end(xlup).row+1
  for xx=2 to mlap1.range("A2").end(xldown).row
  mlap2.cells(yy,oszlop).value=mlap1.cells(yy,"A").value
  yy=yy+1
  next
  else
  msgbox "Nincs ilyen fejléc: " & mlap1.range("A1").value
  endif
  next oszlopok

  A makró csak szemléltető, nem feltétlenül hibátlan.
  Ezt végigcsinálod minden oszlopon, és minden kis táblán.
  Ha deklarálod a változókat, az oszlop mindenképpen variant legyen, mert annak értéke hiba is lehet, mint látod.

  Remélem érthető és tudod használni.

  Üdv.

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