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

• #39570 Delila_1 veterán lorcsi #39569

  Új Válasz 2018-11-08 14:38:10 #39570

  Ú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 lorcsi #39569 üzenetére

  Sub Szetcincal()
Dim sor As Long, WS As Worksheet, utvonal As String
utvonal = ThisWorkbook.Path & "\"

Application.ScreenUpdating = False

Set WS = ActiveSheet
sor = 2
Do While Cells(sor, 1) <> ""
Sheets(Array("Munka2", "Munka3", "Munka4", "Munka5", "Munka6", "Munka7", "Munka8", _
"Munka9", "Munka10", "Munka11", "Munka12")).Copy '***
Sheets.Add before:=Sheets(1)
ActiveSheet.Name = "Munka1" '*****
WS.Rows(1).Copy ActiveWorkbook.Sheets(1).Cells(1)
WS.Rows(sor).Copy ActiveWorkbook.Sheets(1).Cells(2, 1)
ActiveWorkbook.SaveAs utvonal & sor - 1 & ". füzet.xlsx"

ActiveWorkbook.Close
sor = sor + 1
Loop

Application.ScreenUpdating = True
End Sub

  A 3 csillaggal jelzett sorban írd át a "Munka2", "Munka3" ... "Munka12" neveket a saját lapjaid nevére..
  Az 5 csillagos sorban a "Munka1" helyére írd be a szétszedendő lapod nevét.

• #39554 Delila_1 veterán lorcsi #39552

  Új Válasz 2018-11-07 07:46:48 #39554

  Ú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 lorcsi #39552 üzenetére

  A lenti makrót másold a szétszedendő füzetedben egy modulba (lásd a téma összefoglalót). Állj arra a lapra, amit külön füzetekbe akarsz másolni, majd indítsd a makrót.

  Ha nem jó az új füzetek elnevezése (1.füzet.xlsx, 2.füzet.xlsx, stb.), az
  ActiveWorkbook.SaveAs utvonal & sor - 1 & ". füzet.xlsx"
  soron kell változtatni.

  Sub Szetcincal()
Dim sor As Long, WS As Worksheet, utvonal As String
utvonal = ThisWorkbook.Path & "\"

Set WS = ActiveSheet
sor = 2
Do While Cells(sor, 1) <> ""
Workbooks.Add
WS.Rows(1).Copy ActiveWorkbook.Sheets(1).Cells(1)
WS.Rows(sor).Copy ActiveWorkbook.Sheets(1).Cells(2, 1)
ActiveWorkbook.SaveAs utvonal & sor - 1 & ". füzet.xlsx"
ActiveWorkbook.Close
sor = sor + 1
Loop
End Sub

• #39552 lorcsi veterán lorcsi #39529

  Új Válasz 2018-11-06 21:19:28 #39552

  Ú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

  

  lorcsi

  veterán

  válasz lorcsi #39529 üzenetére

  Erre valaki ?

• #35983 Apollo17hu őstag lorcsi #35982

  Új Válasz 2017-08-16 14:50:15 #35983

  Ú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 lorcsi #35982 üzenetére

  [link]

• #9835 perfag aktív tag lorcsi #9816

  Új Válasz 2011-03-29 16:05:58 #9835

  Ú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 lorcsi #9816 üzenetére

  Bé vagyok havazva, nincs időm 2007-ben megnézni ... Excel 2010: kijelölöd a diagramodat. Ugyanúgy, mint a képeknél itt is megjelenik egy (itt több!) menücsoport, Diagrameszközök névvel. 2010-ben van egy Elrendezés fül, Tengelyek csoport, ... innen már egyszerű.
  Van úgy, hogy ott van az orrunk előtt ...

• #9816 lorcsi veterán lorcsi #9808

  Új Válasz 2011-03-29 10:48:10 #9816

  Ú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

  

  lorcsi

  veterán

  válasz lorcsi #9808 üzenetére

  erre valaki ?

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