-
Fototrend
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
-
Louro
őstag
Szia,
ha jól értem annyi fájlt akarsz, ahány sorod van -1 (a fejléc miatt).
Ha igen, akkor ciklussal addig mennék ahány sor van. Megkommenteztem a kódot, de nem teszteltem. De hátha a logikai út segít.
Dim SourceBook, NewBook as Workbook
Set SourceBook = ActiveWorkbook
For i = 2 to ActiveSheet.UsedRange.Rows.Count 'Ha nincs fejléc, akkor mehet 1-ről is
Set NewBook = Workbooks.Add
'Itt első oszloptól 10. oszlopig mindent másol. De a logika alapján talán már megvan miképp tudsz
'kiszedni cellákat.
SourceBook.Worksheets("A munkalap neve").Range(Cells(i,1),Cells(i,10)) = _
NewBook.Worksheets(1).Range(Cells(1,1),Cells(1,10))
'Mentsük el a fájlt a sorszám alapján és zárjuk be. Majd ugrás a következőre. Fájlnévnek fontos,
'hogy a változót tedd be, hogy ne legyen ütközés. Akár Filename:="Tesco_tej_" & i & ".xlsx"
NewBook.Close Filename:= i & ".xlsx", SaveChanges:=True
Next
Új hozzászólás Aktív témák
- Samsung Galaxy Tab S11 - tizenegyes
- Mozilla Firefox
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Sony MILC fényképezőgépcsalád
- Újjászületés: szombattól új szerverkörnyezetben a PROHARDVER! lapcsalád
- Honor Magic6 Pro - kör közepén számok
- Gran Turismo
- Álláskeresés, interjú, önéletrajz
- Samsung Galaxy Felhasználók OFF topicja
- Sorozatok
- További aktív témák...
- Árváltozás+játék DVD: Borderlands 2 Ultimate Loot Chest Limited Edition
- Eladó Steam kulcsok kedvező áron!
- Árváltozás + játék DVD: Watch Dogs Deadsec Edititon
- AKCIÓ! Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Árváltozás+játék!The Witcher 2 Assassins of Kings Collector's Edition
- Gyári garanciával Digitalizáló tábla XP-PEN Artist Pro 24
- Telefon felvásárlás!! Samsung Galaxy S25, Samsung Galaxy S25 Plus, Samsung Galaxy S25 Ultra
- Fujitsu LIFEBOOK E449 i3-8130U 12GB 512GB 14" FHD 1 év garancia
- BESZÁMÍTÁS! ASUS H510M i5 10400F 16GB DDR4 512GB SSD RTX 2080 Super 8GB Zalman T4 PLUS FSP 700W
- Jabra Speak2 75 MS Teams USB-bluetooth hangszóró
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő