Hirdetés
- Gurulunk, WAZE?!
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Magga: PLEX: multimédia az egész lakásban
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- eBay-es kütyük kis pénzért
- gban: Ingyen kellene, de tegnapra
- GoodSpeed: Én és a Battlefield 6
- Brogyi: CTEK akkumulátor töltő és másolatai
-
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
-
Louro
őstag
Ööö, elsőre nem tűnik vészesnek. Adott egy forrástábla. Pl. Első munkalapon. Második munkalpra vagy a táblázat mellé új oszlopokba akarsz kalkulált értékeket.
Vegyük utóbbit.
Én úgy csinálnám, hogy
Range(Cells(2,ActiveSheet.UsedRange.Columns.Count+1),Cells(ActiveSheet.UsedRange.Rows.Count,ActiveSheet.UsedRange.Columns.Count+1)) = "=A2+D2/F2"
Range() : Hol is akarunk dolgozni. -tól -ig. Ezért kell két cellát megadni.
ActiveSheet.UsedRange.Columns.Count : Az aktív munkalap kitöltöttségének utolsó oszlopának sorszáma. Mivel nem az utolsót akarjuk felülírni, hanem mellé tenni, ezért a +1.Remélem ez valamicskét segít.
Különben lehet akár 10000+ sor is. Első függvényt megírva már csak másolni kell a függvényt
(Jobb alsó sarokra kattintva.) Oszloponként pedig elég felülírni az értékeket, hogy ne kalkulálja mindig elölről mindig az egészet.
-
Árnymester
tag
Lehet nem a legelegánsabb megoldás...
Sub Szetszed()
Dim MyWs As Worksheet
Set MyWs = ActiveSheet
'Az első másolandó sor száma
r = 1
Do Until Not IsEmpty(MyWs.Cells(r, 1)) 'Ide olyan oszlopot adj meg, ami minden sorban tartalmaz adatot!
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
'Ide jönnek az oszlopok, a c1-c5-ök helyére a forrás(MyWs) értékes oszlopait kell beírni.
'Címsor másolása
ActiveSheet.Cells(1, 1).Value = MyWs.Cells(1, c1)
ActiveSheet.Cells(1, 2).Value = MyWs.Cells(1, c2)
ActiveSheet.Cells(1, 3).Value = MyWs.Cells(1, c3)
ActiveSheet.Cells(1, 4).Value = MyWs.Cells(1, c4)
ActiveSheet.Cells(1, 5).Value = MyWs.Cells(1, c5)
'Adatok másolása
ActiveSheet.Cells(1, 1).Value = MyWs.Cells(r, c1)
ActiveSheet.Cells(1, 2).Value = MyWs.Cells(r, c2)
ActiveSheet.Cells(1, 3).Value = MyWs.Cells(r, c3)
ActiveSheet.Cells(1, 4).Value = MyWs.Cells(r, c4)
ActiveSheet.Cells(1, 5).Value = MyWs.Cells(r, c5)
r = r + 1
Loop
End Sub
Új hozzászólás Aktív témák
- HP 65W töltő eladó
- BESZÁMÍTÁS! ASUS H510M i5 10400F 16GB DDR4 512GB SSD RTX 2080 Super 8GB Zalman T4 PLUS FSP 700W
- BESZÁMÍTÁS! 4TB Western Digital Purple SATA HDD meghajtó garanciával hibátlan működéssel
- LG 42LX330C 42" LED-backlit LCD TV - Full HD
- 2025.10.02 - Frissített lista - Lenovo LOQ / LEGION Pro , Yoga Pro (RTX 4060 / 4070 / 4080 / 4090)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő