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

• #24526 slashing senior tag Mr.Csizmás #24525

  Új Válasz 2014-12-07 19:42:58 #24526

  Ú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

  

  slashing

  senior tag

  válasz Mr.Csizmás #24525 üzenetére

  használd a sor vagy oszlop függvényt attól függően merre kell húzni a képletet

  pl.: OSZLOP(A1) ennek az eredménye 1

  csak próbaképpen leírom de nem tudom kipróbálni:

  =ELTOLÁS(Munka2!$AK$1;HOL.VAN(Munka1!$D3279;Munka2!$AK$2:$AK$6268;-1)-(OSZLOP(A1)-1);1)

• #10687 Fire/SOUL/CD félisten Mr.Csizmás #10686

  Új Válasz 2011-06-30 13:50:39 #10687

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Mr.Csizmás #10686 üzenetére

  Oksa, akkor ennyi lenne, felkommenteztem, ahol kell, remélem egyértelmű.

  Private Function FSCD_Header_Footer_Changer()
  
  'hol találhatóak az Excel munkafüzetek
  Const MY_PATH = "D:\mrcsizmas\"
  
  'mi a kiterjsztésük
  '(ez így azért is jó, mert az xlsx fájlok is olvashatók)
  Const MY_EXTENSION = "xls"
  
  Const MY_HEADER_LEFT = "Fejlécben BALRA kerülő szöveg"
  Const MY_HEADER_CENTER = "Fejlécben KÖZÉPRE kerülő szöveg"
  Const MY_HEADER_RIGHT = "Fejlécben JOBBRA kerülő szöveg"
  
  Const MY_FOOTER_LEFT = "Láblécben BALRA kerülő szöveg"
  Const MY_FOOTER_CENTER = "Láblécben KÖZÉPRE kerülő szöveg"
  Const MY_FOOTER_RIGHT = "Láblécben JOBBRA kerülő szöveg"
  
  'csak a láblécek legyenek módosítva
  'False értékre állítva, a fejléceket is módosíthatod
  Const MY_ONLY_FOOTER = True
  
  Dim My_WorkBook As Workbook
  
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  FName = Dir(MY_PATH & "*." & MY_EXTENSION)
  Do While Len(FName) > 0
  Set My_WorkBook = Workbooks.Open(MY_PATH & FName)
  With My_WorkBook
  For i = 1 To .Worksheets.Count
  .Worksheets(i).PageSetup.LeftFooter = MY_FOOTER_LEFT
  .Worksheets(i).PageSetup.CenterFooter = MY_FOOTER_CENTER
  .Worksheets(i).PageSetup.RightFooter = MY_FOOTER_RIGHT
  If Not MY_ONLY_FOOTER Then
  .Worksheets(i).PageSetup.LeftHeader = MY_HEADER_LEFT
  .Worksheets(i).PageSetup.CenterHeader = MY_HEADER_CENTER
  .Worksheets(i).PageSetup.RightHeader = MY_HEADER_RIGHT
  End If
  Next i
  .Save
  .Close
  End With
  Set My_WorkBook = Nothing
  FName = Dir()
  Loop
  Application.ScreenUpdating = True
  Application.DisplayAlerts = True
  
  MsgBox ("Az összes munkafüzet módosítása sikeresen megtörtént.")
  
  End Function

  UI: Először azért készíts másolatot a módisítani kívánt fájlokról, biztos , ami biztos...

  [ Módosította: Grafiqs ]

• #10685 Fire/SOUL/CD félisten Mr.Csizmás #10683

  Új Válasz 2011-06-30 13:27:45 #10685

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Mr.Csizmás #10683 üzenetére

  Egy kérdésem lenne, aztán gyorsan megírom, szóval a fejléc/lábléc minden munkalapon más és más lehet. Azt szeretnéd, hogy az összes munkafüzet összes munkalapján ugyanaz legyen a lábléc?

• #10684 perfag aktív tag Mr.Csizmás #10683

  Új Válasz 2011-06-30 13:09:53 #10684

  Ú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

  

  perfag

  aktív tag

  válasz Mr.Csizmás #10683 üzenetére

  Bakker, ez régen működött. A 2010-ben nálam sem megy, valamit megváltoztattak.
  Sőt, az innen List of all files contained within a Directory letöltött fájl is kiakad.
  John Walkenbach oldalán ez nálam műxik.

• #10681 perfag aktív tag Mr.Csizmás #10677

  Új Válasz 2011-06-30 12:36:30 #10681

  Ú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

  

  perfag

  aktív tag

  válasz Mr.Csizmás #10677 üzenetére

  Ha megvan a fájllistád: List files in a folder
  Megnyithatod a fájlokat: How to open a file from VBA
  És jöhet a Fire javasolta módosítás.

• #10678 Fire/SOUL/CD félisten Mr.Csizmás #10677

  Új Válasz 2011-06-30 12:19:03 #10678

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Mr.Csizmás #10677 üzenetére

  1. betöltöd a munkafüzetet
  2. módosítod az élőlábat/láblécet
  PageSetup.LeftFooter = "Balra kerülő szöveg"
  PageSetup.CenterFooter = "Középre kerülő szöveg"
  PageSetup.RightFooter = "Jobbra kerülő szöveg"

  3. mented a munkafüzetet és bezárod

  az 1-3 pontokat ismétled, szép egymás utánba megnyitva a munkafüzeteket.

• #10644 Mr.Csizmás titán Mr.Csizmás #10642

  Új Válasz 2011-06-29 15:00:31 #10644

  Ú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

  

  Mr.Csizmás

  titán

  válasz Mr.Csizmás #10642 üzenetére

  megoldva manuálisan

• #9897 Delila_1 veterán Mr.Csizmás #9896

  Új Válasz 2011-04-01 11:50:22 #9897

  Ú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 Mr.Csizmás #9896 üzenetére

  Köszi. Ennyire bamba vagyok! Hiába, április elseje van.

  ¡ǝɾǝslǝ sılıɹdɐ uǝɾlǝ

• #9895 Delila_1 veterán Mr.Csizmás #9894

  Új Válasz 2011-04-01 11:41:58 #9895

  Ú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 Mr.Csizmás #9894 üzenetére

  Akkor írd le, mi módon jött össze!
  Nehogy mind a 90-et, elég 1.

• #9892 Delila_1 veterán Mr.Csizmás #9890

  Új Válasz 2011-04-01 11:38:48 #9892

  Ú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 Mr.Csizmás #9890 üzenetére

  Tudtommal az élőfejbe nem lehet képfájlt bevinni, csak a Wordben.

• #9868 Delila_1 veterán Mr.Csizmás #9866

  Új Válasz 2011-03-31 15:33:17 #9868

  Ú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 Mr.Csizmás #9866 üzenetére

  A képet a beillesztés előtt szabd méretre!

  Sub Logo()
  utvonal = "F:\Temp\"
  FN = "filename.gif"
  For lap = 1 To Worksheets.Count
  Sheets(lap).Select
  Cells(3, 1).Select 'Ez az A3-ba teszi, átírhatod
  ActiveSheet.Pictures.Insert (utvonal & FN)
  Next
  End Sub

• #9864 Delila_1 veterán Mr.Csizmás #9862

  Új Válasz 2011-03-31 15:18:05 #9864

  Ú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 Mr.Csizmás #9862 üzenetére

  Próbáltam együttesen kijelölt lapokra bevinni egy képet, de nem tudja.
  Marad a Ctrl+c, Ctrl+v az elsőről a másodikra, a többi lapon már elég az F4 billentyű a művelet ismétlésére.

• #9861 Delila_1 veterán Mr.Csizmás #9860

  Új Válasz 2011-03-31 14:57:20 #9861

  Ú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 Mr.Csizmás #9860 üzenetére

  

• #9859 Delila_1 veterán Mr.Csizmás #9858

  Új Válasz 2011-03-31 14:55:01 #9859

  Ú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 Mr.Csizmás #9858 üzenetére

  Na, ennek örülök. Nem a hibáknak, hanem az eredménynek.
  Kicsit sok lett volna 50 lapra mindent átmásolni.

• #9857 Delila_1 veterán Mr.Csizmás #9856

  Új Válasz 2011-03-31 14:51:21 #9857

  Ú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 Mr.Csizmás #9856 üzenetére

  Szívesen.
  Mi volt a 3 debug?

• #9855 Delila_1 veterán Mr.Csizmás #9854

  Új Válasz 2011-03-31 14:33:13 #9855

  Ú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 Mr.Csizmás #9854 üzenetére

  Van most a füzetedben 1 lap, amiben jó az élőfej.
  Indítasz egy makrórögzítést.
  A jó lapon állva átkapcsolsz a nyomtatási képbe, ott is a beállításokba, az élőfejbe.
  OK. Belépsz (ha van) az élőlábba, OK. Rögzítés vége.

  Szép hosszú makrót kapsz, amiből csak néhány sort hagysz meg:

  With ActiveSheet.PageSetup
  .LeftHeader = "Valami1"
  .CenterHeader = "Valami2"
  .RightHeader = "Valami3"
  .LeftFooter = "Valami4"
  .CenterFooter = "Valami5"
  .RightFooter = "Valami6"
  End With

  Természetesen a Valamik helyett a saját adataid lesznek az egyenlőségjel után.
  Ha élőláb nincs, a Footer-es sorokat is kihagyhatod.
  Most beviszel egy új makrót:

  Sub Élőfejek()
  For lap = 1 To Worksheets.Count
  Sheets(lap).Select
  '***ide másolod be az előbb rögzített sorokat ***
  With ActiveSheet.PageSetup
  .LeftHeader = "Valami1"
  .CenterHeader = "Valami2"
  .RightHeader = "Valami3"
  .LeftFooter = "Valami4"
  .CenterFooter = "Valami5"
  .RightFooter = "Valami6"
  End With
  '*******************************************************
  Next
  End Sub

  Ahol jelöltem, beviszed a rögzített makró rövidített részét, és futtatod az újat. Minden lapra bemásolja az élőfejet, és ha van, az élőlábat is.

• #9853 Delila_1 veterán Mr.Csizmás #9852

  Új Válasz 2011-03-31 13:40:03 #9853

  Ú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 Mr.Csizmás #9852 üzenetére

  Másold át a mostani füzetbe a régi lapot, ami az élőfejet tartalmazza, majd erre a lapra az előző tartalom helyett másold be a mostanit.

• #7716 Delila_1 veterán Mr.Csizmás #7715

  Új Válasz 2010-07-22 10:55:04 #7716

  Ú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 Mr.Csizmás #7715 üzenetére

  Szívesen.

• #7714 Delila_1 veterán Mr.Csizmás #7713

  Új Válasz 2010-07-22 10:46:21 #7714

  Ú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 Mr.Csizmás #7713 üzenetére

  Akkor az AD oszlopba írd a sorszámokat, AD10-től lefelé, ameddig van adatod az A oszlopban.
  Mivel üres oszlopok is vannak, valóban ki kell jelölnöd az A10:ADvalahány területet, utána rendezés, ahogy WindBoar írta.

• #7712 WildBoarTeam senior tag Mr.Csizmás #7706

  Új Válasz 2010-07-22 10:36:30 #7712

  Ú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

  

  WildBoarTeam

  senior tag

  válasz Mr.Csizmás #7706 üzenetére

  Csinálhatnál belőle egy printscreent, és látható lenne anmit írsz.
  A sorba rendezésnél (amikor több oszlopot kell együtt rendezned), kijelölöd az egész tartományt, amit együtt akarsz sorba rakni. Utána Adatok/sorba rendezés... és kijelölöd melyik alapján akarod sorba rendezni.
  Itt egy példa:
  Kiinduló adat:
  
  Rendezés után ezt kapod:
  

  Delila_1 ugyanezt írja amúgy.

• #7711 Delila_1 veterán Mr.Csizmás #7710

  Új Válasz 2010-07-22 10:25:50 #7711

  Ú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 Mr.Csizmás #7710 üzenetére

  Akkor az F oszlopba írd a lefelé növekvő sorszámokat. Ha van címsorod, akkor az F1-be ne írj.
  A számok bevitele után állj az F oszlop valamelyik celláján, és rendezd az adatokat csökkenő sorrendbe (Z-A ikon).

• #7709 Delila_1 veterán Mr.Csizmás #7708

  Új Válasz 2010-07-22 10:22:05 #7709

  Ú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 Mr.Csizmás #7708 üzenetére

  Nem így értettem. Vannak adataid az A oszlopban, a B-ben, a C-ben, stb. Melyik oszlop az utolsó?
  Csak az első sorban van a címsorod, vagy esetleg több sorban is?

• #7707 Delila_1 veterán Mr.Csizmás #7706

  Új Válasz 2010-07-22 10:16:12 #7707

  Ú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 Mr.Csizmás #7706 üzenetére

  Melyik az első üres oszlopod?

• #7705 Delila_1 veterán Mr.Csizmás #7704

  Új Válasz 2010-07-22 10:03:46 #7705

  Ú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 Mr.Csizmás #7704 üzenetére

  Az adataid mellett egy üres oszlopba beírod a számokat 1-től 45-ig.
  NE jelöld ki a rendezés előtt az új oszlopot, csak állj benne. Rákattintasz a Z-A ikonra, ami csökkenő sorrendbe rendezi az oszlopot, és viszi magával a többi adatot is.

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