- Vivo X200 Pro - a kétszázát!
- Xiaomi 15T - reakció nélkül nincs egyensúly
- Samsung Galaxy S23 Ultra - non plus ultra
- Apple iPhone 17 Pro Max – fennsík
- iPhone topik
- iOS alkalmazások
- Egyéves Gemini AI Pro a Google-től a magyar egyetemistáknak is
- Hivatalos a OnePlus 13 startdátuma
- Nem lesz iPhone 19
- 2.1-es Bose sztereó hangrendszer a Redmi K90 Pro Maxban
-
Mobilarena
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
- GeForce RTX 5060: Ezt kapjuk 150 ezerért
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Horgász topik
- Vivo X200 Pro - a kétszázát!
- Battlefield 6
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Formula-1
- Meggyi001: Eldugott helyek Párizsban, amiket jó eséllyel még nem láttál... 2. rész.
- Milyen billentyűzetet vegyek?
- AMD vs. INTEL vs. NVIDIA
- További aktív témák...
- Keresek Xbox Series S / Series X / Playstation 5 konzolokat
- Apple iPhone 13 Pro Max Graphite ProMotion 120 Hz, Pro kamerák 256 GB-100%-3 hó gari!
- Creative Sound BlasterX G6 7.1 USB külső hangkártya
- GYÖNYÖRŰ iPhone 13 mini 256GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3443
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RTX 5070 Ti 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő