- urandom0: Kicsit most elfáradtam...
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- gban: Ingyen kellene, de tegnapra
- sziku69: Szólánc.
- sellerbuyer: Mivel fotózz és videózz 2025-ben? Elég egy mobil vagy kell egy kamera?
- <Lacy85>: Időmilliomosok előnyben - Játékfejlesztés #1
- DeFranco: Tanuljunk angolul játékosan! - Duolingo
- Geri Bátyó: Agglegénykonyha 1 – rizseshús másképp
- Gurulunk, WAZE?!
-
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
-
Lasersailing
senior tag
válasz
RedHarlow #32262 üzenetére
Szia,
Ha jól értettem a feladatot, akkor az alábbi:
Sub redharlow()
Dim sor As Integer
Dim oszlop As Integer
Dim ujsor As Integer
Dim sn As String
'program
sor = 1
sn = ActiveSheet.Name
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "eredmeny"
ujsor = 1
'fejlécet
Sheets("eredmeny").Cells(1, 1) = "Név"
Sheets("eredmeny").Cells(1, 2) = "C oszlop"
Sheets("eredmeny").Cells(1, 3) = "D oszlop"
Sheets("eredmeny").Cells(1, 4) = "E oszlop"
[B]Sheets("eredmeny").Cells(1, 5) = "Dátum"[/B]
Sheets("eredmeny").Cells(1, 6) = "Ft"
Do
sor = sor + 1
For oszlop = 7 To 66
If Not (IsEmpty(Sheets(sn).Cells(sor, oszlop))) Then
ujsor = ujsor + 1
Sheets("eredmeny").Cells(ujsor, 1) = Sheets(sn).Cells(sor, 2)
Sheets("eredmeny").Cells(ujsor, 2) = Sheets(sn).Cells(sor, 3)
Sheets("eredmeny").Cells(ujsor, 3) = Sheets(sn).Cells(sor, 4)
Sheets("eredmeny").Cells(ujsor, 4) = Sheets(sn).Cells(sor, 5)
[B] Sheets("eredmeny").Cells(ujsor, 5) = Sheets(sn).Cells(1, oszlop)[/B]
Sheets("eredmeny").Cells(ujsor, 6) = Sheets(sn).Cells(sor, oszlop)
End If
Next oszlop
Loop Until IsEmpty(Sheets(sn).Cells(sor, 1))
End Sub(kérlek jelezz vissza, hogy jól értettem-e és ha van kérdésed még)
(Bocsánat találtam közben egy hibát, azt vastagon szedtem, hogy ki tud javítani)
üdv.
Új hozzászólás Aktív témák
- Kettő együtt: Radeon RX 9070 és 9070 XT tesztje
- Kormányok / autós szimulátorok topikja
- Apple iPhone 17 - alap
- A Temu diktál Magyarországon, a hazai e-kereskedők fulladoznak
- Autós topik látogatók beszélgetős, offolós topikja
- Forza sorozat (Horizon/Motorsport)
- Steam Deck
- urandom0: Kicsit most elfáradtam...
- Kijelző került a kamerasávra a Xiaomi 17 Pro és 17 Pro Max hátulján
- Honor 400 Pro - Gép a képben
- További aktív témák...
- Xiaomi Redmi Note 13 Pro 256GB Kártyafüggetlen 1 év Garanciával
- Telefon szerviz helyben - Gyors javítás, akár 30 perc alatt!
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7500F 32/64GB RAM RTX 5060 Ti 8GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! Intel Core i9 14900KF 24 mag 32 szál processzor garanciával hibátlan működéssel
- Apple MacBook Air M2,8/256GB,Dobozával,12 hónap garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest