Hirdetés
- balojazz: Szódakészítés üzembiztosan és olcsón! Figyelem, csak hardcore szódázóknak!
- Luck Dragon: Asszociációs játék. :)
- btz: Internet fejlesztés országosan!
- Mr.Csizmás: Bestbuy travel, utazós, kirándulós topic - szállások, jegyek
- sziku69: Fűzzük össze a szavakat :)
- Ndruu: Segíts kereshetővé tenni a PH-s arcképeket!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Doky586: SecureBoot kulcsok frissítése (2026 nyara)
- potyautas: Olyan valóságosnak tűnt
- ricsi99: 6. Genes alaplap tündöklése kontra MS/Zintel korlátozásai
-
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
-
Delila_1
veterán
A Pivot Table éppen arra való, hogy ne tételenként, hanem összesítve jelenítse meg az adatokat.
Írtam egy kis makrót, ami az adatokat tartalmazó lapod A oszlopa szerint rendez, végigfut az adatokon, és annyi új lapot hoz létre a füzetedben, ahány féle adat van az A oszlopban. A lapok mindegyike az adat nevét veszi fel, és az oda tartazó sorokat tartalmazza. Vagyis a ktgriport nevű lapon csak a ktgriport tartalmú sorok lesznek.Sub Adatok()
Application.ScreenUpdating = False
lap = ActiveSheet.Name
Range("A2").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
sor = 2
Do While Cells(sor, 1) <> ""
nev = Cells(sor, 1)
If Cells(sor + 1, 1) <> nev Then
Selection.AutoFilter Field:=1, Criteria1:=nev
Rows("1:" & Range("A65536").End(xlUp).Row).Copy
Sheets.Add
ActiveSheet.Paste
ActiveSheet.Name = nev
Sheets(lap).Select
End If
sor = sor + 1
Loop
Sheets(lap).Select
Application.CutCopyMode = False
Selection.AutoFilter
Application.ScreenUpdating = True
End Sub -
Angmar
tag
Windows vezérőpultban a területi beállításioknál a szám formátumnál '','' vagy ''.'' szerepel?
'','' kéllene állítani talán segít. Vagy elternatív megoldásként jelöld ki a B oszlopot aztán szerkesztés\keresés; Mit keres '','' Mire cseréli ''.'' majd nyomsz egy Összes cseréje gombot.
[Szerkesztve] -
Balli
őstag
Köszönöm a helpeket
A Eszközök\Beállítások\Számolás\ Automatikus nem segített, ha a 37,00 karaktert átirom 37-re akkor szűmol. S nincs szókoz se, igy neznek ki a karakterek: [link]
Közben rájöttem, hogy az ugy megtudom oldani, hogy levágom egy külön oszlopba a ,00 karaktereket s akkor a fentmaradt értéket már számnak tekintik. Viszont sok különböző számjegyű szám van s nagyon sok! +az értékeket nem tudom nagyságrendbe rakni (mivel nem számként kezeli az excel) igy ez nem igazán jó megoldás.
Tehát a gond az hogy a '','' karaktert veszzőként lett bevíve s nem tizedesjegynek szerintem s igy nem számként látja.
Vkinek vmi megoldás?
Új hozzászólás Aktív témák
Hirdetés
- Otthoni hálózat és internet megosztás
- balojazz: Szódakészítés üzembiztosan és olcsón! Figyelem, csak hardcore szódázóknak!
- Yettel topik
- Milyen videókártyát?
- Napelem
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Új CPU-magokka, de régebbi PowerVR GPU-val jöhet a Tensor G6
- Linux kezdőknek
- Békéscsaba és környéke adok-veszek-beszélgetek
- Heroes of Might & Magic: Olden Era
- További aktív témák...
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- HP. Laptop. i5. Model: 15-da1002nq
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel! 13 hónap ultimate - 50.000 ft
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- HP EliteBook 640 G10 - 14" FullHD IPS - i5-1335U - 8GB - 512GB - Win11 - 1 év garancia - MAGYAR
- Csere-Beszámítás! Apple Macbook Pro 2013 vége! 512GB SSD, I7, 16GB DDR3, Intel Iris Pro! Olvass!
- Katonai Rugged laptopok Panasonic Toughbook 5-6. gen gar.
- 27% - MSI MAG Coreliquid I240 AIO Vízhűtés!
- iPhone 15 Pro 128GB 87% (1év Garancia)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50