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

• #24923 Mutt senior tag marcyman #24909

  Új Válasz 2015-01-07 22:41:35 #24923

  Ú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

  

  Mutt

  senior tag

  válasz marcyman #24909 üzenetére

  Szia!

  Adott egy táblázat ahova az ADOTT napi adatoknak át kellene frissülniük egy másik táblázatból, ahol minden nap új sorba írom az adatokat.

  Makróval támogatva megy.
  Lépések:
  1. A minden nap bővülő táblázatba kell egy függvény egy fix helyen amely megadja az utolsó sort.
  pl. legyen a B1 cella
  2. Az utolsó sor számát meg lehet tudni DARAB vagy DARAB2, esetleg a HOL.VAN függvénnyel.
  pl. legyen a B1 képlete =DARAB2(A:A)
  3. Ezt a cellát linkeldbe a másik fájlba.
  4. A másik fájl egyik eseményére (ez lehet a fájl megnyitása, vagy az egyik lap módosítása) be lehet tenni az alábbi egy sort (a példában A1-ben van a linkelt mező és alá A2-be írjuk az utolsó sor hivatkozását):
  Range("A2").Formula = "=[másik fájl neve,xlsx]Munka1!$A" & Range("A1")
  5. Csak ezt a fájl kell makróbarát füzetként menteni, a másikat nem kell.

  A 4-es lépésben említett sor helyett, itt egy kicsituniverzálisabb megoldás. Ez 3-as lépésben linkelt mezőből kiveszi a másik fájl elérését, így azzal már nem kell foglalkoznod,

  Private Sub Worksheet_Activate()
  Dim link As Variant
  Const oszlop As String = "A" 'A-oszlopban vannak a napi adatok a másikban
  
  link = Split(Range("A1").Formula, "!")
  
  Range("A2").Formula = link(0) & "!" & oszlop & Range("A1").Value
  End Sub

  üdv

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