-
IT café
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Eladó Steam kulcsok kedvező áron!
- Cégek számára kedvezmény! Irodai programok: Office, Word, Excel