- sh4d0w: Árnyékos sarok
- btz: Internet fejlesztés országosan!
- urandom0: Kicsit most elfáradtam...
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Gurulunk, WAZE?!
- Geri Bátyó: Agglegénykonyha 6 – Néhány egyszerű tésztaétel
- sziku69: Szólánc.
- eBay-es kütyük kis pénzért
-
LOGOUT
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
-
VGYke
addikt
válasz
Delila_1 #12973 üzenetére
Ismét köszönöm!
Most olyan "problémába" ütköztem, hogy írtam egy primitív makrót, ami nem csinál mást, mint a Lap nevű munkalapról, a makró indításának helyén lévő munkalapra másol adatokat. Na jó, van benne minimális képletezés is, itt, ott.
Sub Kitolt()
Lap = "Lekérdezés"
smax = Sheets(Lap).UsedRange.Rows.Count
For L = 1 To smax - 1
Cells(L + 1, 1) = Sheets(Lap).Cells(L, 1)
szla = Sheets(Lap).Cells(L, 2)
b = Left(szla, 8) + "-" + Mid(szla, 9, 8) + "-" + Mid(szla, 17, 8)
Cells(L + 1, 2) = b
'......hasonló 8. oszlopig
Next L
End Sub
Van 8 kitöltendő oszlop és jelenleg 850 sor. A makró kb. 4-5 perc alatt fut le, 50% proci terhelés mellett, pedig nem annyira gagyi a gép. Ez így normális és ilyen feladatot ne makróval, hanem excel képletekkel oldjak meg?
Új hozzászólás Aktív témák
- sh4d0w: Árnyékos sarok
- Apple Watch Sport - ez is csak egy okosóra
- Lexus, Toyota topik
- BestBuy topik
- Formula-1
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Milyen egeret válasszak?
- TCL LCD és LED TV-k
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Vezeték nélküli fejhallgatók
- További aktív témák...
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- MS SQL Server 2016, 2017, 2019
- Apple iPhone 12 Pro Max / 256GB / Kártyafüggetlen / 12Hó Garancia
- Lenovo X13 Yoga 2in1 Thinkpad WUXGA Touch i5-1145G7 vPro 16GB 256GB 4G LTE GPS Win11 Pro Garancia
- Xiaomi Redmi 12C 64GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! MSI GE75 Raider 9SF 17 Gamer notebook - i7 9750H 16GB DDR4 512GB SSD RTX 2070 8GB WIN10
- HIBÁTLAN iPhone 13 512GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3273, 100% Akkumulátor
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest