- Luck Dragon: Asszociációs játék. :)
- aquark: Jó platformer játékokat keresek!
- Magga: PLEX: multimédia az egész lakásban
- bambano: Bambanő háza tája
- sellerbuyer: Milyen laptopot vegyek? Segítek: semmilyet!
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- gban: Ingyen kellene, de tegnapra
- gerner1
- 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
-
#11894
zsotesz81
senior tag
m.zmrzlina
#11888
zsotesz81
senior tag
válasz
m.zmrzlina
#11888
üzenetére
ok, köszi
-
mr.nagy
tag
válasz
m.zmrzlina
#11889
üzenetére
Köszönöm! Ez működik.
-
#11890
m.zmrzlina
senior tag
m.zmrzlina
#11889
m.zmrzlina
senior tag
válasz
m.zmrzlina
#11889
üzenetére
Pontosabban ezt:
=ÖSSZEFŰZ(B2;"00000";SZÖVEG(C2;"000");SZÖVEG(D2;"00");E2;F2;)
-
#11888
m.zmrzlina
senior tag
zsotesz81
#11883
m.zmrzlina
senior tag
válasz
zsotesz81
#11883
üzenetére
sor=selection.row vagy sor=activecell.row
A sor=selection.rows.count azt adja meg,hogy hány sora van a kijelölésednek. Egyetlen cellánál ez értelemszerűen 1
Az activecell.rows.count megint csak mindig egyet fog adni mert aktív cella egy nagyobb tartomány kijelölésekor is csak egy van.
-
mr.nagy
tag
Nem csak 1 és 0 lehet. Ahol több karakteres a cella ott bármilyen szám, de csak max. a látható karakter mennyiség szerint. Tehát ahol 3 karakter látható a cellában ott 1-től 999-ig bármi.
Fire/SOUL/CD
Köszönöm, de nem jó! Mindig 13 karakterből álló kódot kell kapnom. Így ha ott ahol 3 karakteres a cella, ott ha mondjuk 1 az érték akkor a 001 sorozatnak kell hozzáadódni, ha 889 akkor csak egyszerűen a 889. -
#11885
Fire/SOUL/CD
félisten
mr.nagy
#11884
-
mr.nagy
tag
Sziasztok!
Egy kis segítség kellene. A képen látható módon kellene legenerálni több száz sornyi kódot. A "G" oszlopban látható milyen eredményre lenne szükség. Balról jobbra haladva a felépítéssel, tehát az elsőt adja a "B" oszlop, ezután mindig 5 darab nulla, majd a többi a megadottak szerint.
Hogyan lehetne ezt egyszerűen megoldani? -
zsotesz81
senior tag
Sziasztok
Hogy lehet makróval meghatározni azt, hogy a kijelölt cella melyik sorban van?
Tehát ha pl. a C9-es cellám van kijelölve, akkor ebből a sorszámot kapjam meg, hogy el tudjam tenni egy változóba.
ezeket próbáltam:
sor=activecell.rows.count
sor=selection.rows.count
ezeknél mindig egyet kaptam, pedig valójában nem ott volt a kijelölés -
bugizozi
őstag
válasz
Delila_1
#11880
üzenetére
Csak ez olyan elegánsabb dicséret
mondhattam volna magyarul is, de angolul jobban tetszett 
ismered a viccet ugye?!A turistákkal teli busz megáll a Niagara vízesésnél, kiszállnak a turisták, elsőként megszólal az angol:
"Oh my God, this is beautiful!"
Aztán a német:
"Oh mein Gott, das ist so wunderbar!"
És végül így szól a magyar:
"Bazmeg, ez kurva jó!"
-
#11876
Sas madár
őstag
Fire/SOUL/CD
#11871
Sas madár
őstag
válasz
Fire/SOUL/CD
#11871
üzenetére
Sajna optimista voltam,angol nyelvű a programom így nem jövök rá az alap lépésekre.
Tudtok olyan oldalt ahol ez le van írva lépésenként? -
-
Delila_1
veterán
válasz
bugizozi
#11868
üzenetére
Sok rövidítéshez.
A K oszlopban legyenek a rövidítések, az L-ben a hozzájuk tartozó számok, nullától felfelé.
A nullához a "Nincs rövidítés a sorban" szöveg – vagy valami elfogadhatóbb – tartozzon a K oszlopban.Function akármi(ter As Range)
Dim b As Integer, CV
b = 0
For Each CV In ter
If CV > "" Then
If Application.WorksheetFunction.VLookup(CV, Columns("K:L"), 2, 0) > b Then
b = Application.WorksheetFunction.VLookup(CV, Columns("K:L"), 2, 0)
End If
End If
Next
akármi = Range("K" & Application.WorksheetFunction.Match(b, Columns("L:L"), 0))
End Function -
#11871
Fire/SOUL/CD
félisten
Sas madár
#11869
válasz
Sas madár
#11869
üzenetére
A oszlop kijelöl és pénznem-re formáz, majd feltöltöd az adatokka
B oszlopot feltöltöd a darabszámokkal
C oszlop kijelöl és pénznem-re formáz, majd a C1 cellába ezt a képletet beírod =A1*B1, majd a C1 cella sarkát megfogod az egérrel és lemásolod ameddig kell.
Az utolsó adatot tartalmazó C cella alá pedig beszúrsz egy SZUM függvényt.
Mindez képben -
Sas madár
őstag
Sziasztok!
Teljesen 0ról lenne kérésem,ha tudnátok segíteni szeretnék magamnak egy egyszerű táblázatot aminek első oszlopában megadnám az egység árat,a másodikba mindig be tudnám írni a változó db számot,és ezt összesítené soronként a 3. oszlopban,
És végül az összes sor eredményét is össze adná.
Remélem érthető voltam,ez azt gondolom alap táblázat de nem tudom hogy tudok ilyent létrehozni. -
q13579
senior tag
Sziasztok!
Nagyon fontos kérdésem lenne.
Vállalatirányítási rendszerből query lekérdezzéssel kellene adatokat kinyernem, azonban az excel képtelen egy idő után ezeket kezelni...
Maga az excel file kb 150 megás, van benne bőven sor és oszlop is, azonban képletes oszlopból csak pár van.
Viszont! Rendszeresen leáll az excel adatfrissítés közben. Iszonyatosan lassú file indításkor, teljesen kiszámíthatatlan.
Excel verzió: 2007
A vas, amivel dolgozom igen erős, I7-es CPU (8 mag) 3 giga ram stb. Tehát viccesnek tartom, hogy ezen ne tudjon futni...
Szeretném megkérdezni, hogy tud-e valaki bármilyen teljesítményjavító megoldást excelben, mert perpillanat nem tudom végezni a munkámat emiatt :S.
Előre is köszönöm a segítséget. -
#11865
bugizozi
őstag
m.zmrzlina
#11860
bugizozi
őstag
válasz
m.zmrzlina
#11860
üzenetére
Igen, ha nem ilyen össze-vissza rövidítések lennének, akkor ez is jó megoldás lenne
-
bugizozi
őstag
válasz
bugizozi
#11858
üzenetére
Úgy gondoltam elkezdeni, hogy felveszem egy tömbbe a rövidítéseket, így lesz mindegyiknek egy sorszáma
ReDim rov(0 To 9) As String
rov(0) = "TK"
rov(1) = "TKA"
rov(2) = "GyK"
rov(3) = "AK"
rov(4) = "TKI"És ezután a sorban meg kellene vizsgálni, hogy milyen rövidítések vannak, milyen szám tartozik hozzájuk és megnézni, hogy melyik a legnagyobb számú, kvázi mint egy maximum keresés..
Ez így járható út? Ha igen, akkor ebben a maximumos dologban tudna valaki segíteni?
Nagyon alap programozásnak tűnik, de valamiért nem megy
-
#11860
m.zmrzlina
senior tag
bugizozi
#11858
m.zmrzlina
senior tag
válasz
bugizozi
#11858
üzenetére
Én azt a tartományt amiben a rövidítések vannak (vízszintes sorokban) Másolás>Irányított beillesztés >Transzponálás segítségével függőleges oszlopokká alakítanám és így rendezném A-Z-ig (természetesen nem az eredeti helyén)
Így minden oszlop tetején ott lenne az a rövidítés ami a hozzá tartozó sor elejére kell.
Ha akarod csinálhatod kézzel is, de a tartomány határainak ismeretében makrósítani is lehet a módszert.
-
bugizozi
őstag
Sziasztok!
Lenne egy jó kis kérdésem...megpróbálom érthetően leírni
Vannak különböző rövidítéseim, amiknek van egy bizonyos sorrendje, meg van adva, hogy melyiket melyik követi. Soronként több ilyen rövidítés lehet egy táblázatban, nekem azt kellene kiszűrni minden sor elejére, hogy melyik a "legnagyobb" rövidítés, tehát melyik az amelyik fölött már nincs a sorban...
Nah most ez képpel szemléltetve hogy érthetőbb legyen
Tehát mondjuk meg van adva hogy A -> B -> C -> D -> E és ezek lehetnek egy sorba, de nem feltétlenül mind, és nekem ki kellene szűrni, hogy az adott sorban melyik a "legnagyobb".
Sajnos ez a probléma az én programozói képességemet egyelőre meghaladja
Ha van valakinek valami ötlete hozzá azt szívesen veszem!
Előre is köszönöm!
-
#11857
jerry311
nagyúr
m.zmrzlina
#11856
jerry311
nagyúr
válasz
m.zmrzlina
#11856
üzenetére
Holnap munkaidőben megpróbálom újra.
-
#11855
jerry311
nagyúr
m.zmrzlina
#11852
jerry311
nagyúr
válasz
m.zmrzlina
#11852
üzenetére
Az igazat megvallva, magát a kódot tudom értelmeni, csak azt nem tudtam, hogy lehet életre kelteni Excelben.
-
#11853
Delila_1
veterán
m.zmrzlina
#11852
Delila_1
veterán
válasz
m.zmrzlina
#11852
üzenetére
A 2003 is ismeri a RANDBETWEEN függvényt, a 2010-ben VÉLETLEN.KÖZÖTT a neve.
-
#11852
m.zmrzlina
senior tag
jerry311
#11851
m.zmrzlina
senior tag
válasz
jerry311
#11851
üzenetére
Bocs.
Alt+F11-gyel megnyitod a VBA szerkesztőt majd Insert>Module. Az itt kapott szövegszerkesztő szerű mezőbe másolod a kódot, majd F5-tel elindítod. Ha gyakrabban szeretnéd használni akkor lehet hozzá gombot rendelni a Gyorsindítás eszköztárra.
Ha pontosan megadod, hogy milyen tartományból milyen tartományba szeretnél véletlen tartalmat generálni akkor aszerint módosítom.
Csak Excel2007-2010-zel működik a Randbetween() fv miatt.
-
#11851
jerry311
nagyúr
m.zmrzlina
#11850
jerry311
nagyúr
válasz
m.zmrzlina
#11850
üzenetére
Tthx!
De ezt nem tudom értelmezni.
Tippelem valahol be kéne adnom, mint makrót, de eddig még nem sikerült működésre bírni. -
#11850
m.zmrzlina
senior tag
jerry311
#11849
m.zmrzlina
senior tag
válasz
jerry311
#11849
üzenetére
Excel2007-et feltételezve ( a Randbetween() ) miatt, az A1:A20 tartományt tölti fel a B1:L20 tartományból véletlenszerűen vett adatokkal:
Sub veletlen()
Cells(1, 1).Select
For i = 1 To 20
Cells(i, 1).Value = Cells(WorksheetFunction.RandBetween(1, 20), WorksheetFunction.RandBetween(2, 12)).Value
Next
End Sub -
Delila_1
veterán
A B1 cellában a megadott útvonal ilyen C:\Főkönyvtár\Alkönyvtár\AlAlkönyvtár\ legyen. Ne maradjon le a végéről a "\".
Sub SokPld()
Dim lap%, ment As String
Application.ScreenUpdating = False
For lap% = 1 To 100
Sheets(lap%).Select
ment = Cells(2) & Cells(1) & ".xls"
Sheets(lap%).Copy
ActiveWorkbook.SaveAs Filename:=ment, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
Next
Application.ScreenUpdating = True
End Sub -
spok2
csendes tag
Üdv!
Az megoldható egy makróval, hogy egy Excel tábla munkalapjaiból a kód megfuttatásával csináljon külön táblákat meghatározott helyekre. Vagyis egy 100 munkalapos táblából csináljon 100 külön táblát minden munkalapot mondjuk az A1-ben szereplő névvel mentse a B1-ben szereplő elérési útra (C://....). Természetesen az A1 és B1 paraméter lenne munkalaponként. Ha vki megírni a kódot nagyon megkösszönném.
-
-
-
Delila_1
veterán
Írtam, hogy a kimutatás az összes eladott gyógyszer (fajtánkénti) árát hozza. Lehet, hogy idén egyes gyógyszerekből kevesebbet vettek, ezért az idei összes eladási áruk kevesebbre jön ki, mint a tavalyi, még akkor is, ha az a bizonyos orvosság éppen drágább lett. Talán éppen azért vettek belőle kevesebbet.
-
Jimmy8
senior tag
Sziasztok!
Egy "egyszerű" kérdésem lenne:van egy ilyen képletem:
HA(J11<>J10;HOL.VAN(J11;$B$7:$B$96;0);HOL.VAN(J11;B(7+I10):$B$96;0))A B(7+I10) cellahivatkozás nem jó, az tuti. Meg lehet oldani valahogy, hogy a hivatkozásban (jelen esetben) a sor ne fix érték legyen, hanem a sor értéke függjön egy másik cella tartalmától?
-
Delila_1
veterán
A J oszlopban "nem"-re szűrsz. Kijelölöd az összes sort, és törlöd. Előtte készíts egy másolatot a lapról.
A kigyomlált sorokról érdemes egy speciális szűrést készíteni. Adatok - Rendezés és szűrés - Speciális.
Az összegeket a G oszlopba írtam, azért van ez a kijelölés. Az L1:N... helyre kerülnek az adatok. Ezt a tartományt rendezed a megnevezés, majd az év szerint. Minden gyógyszered 2 értéke egymás alatt lesz, amivel már könnyen számolhatsz egy HA függvénnyel.
-
-
Delila_1
veterán
Mondok egy egyszerűbbet. Készíts kimutatást, amibe a H-t, I-t, és azt az oszlopot veszed be, amelyik az árat tartalmazza.
A sorcímkébe húzod a megnevezést, az oszlopcímkébe az évet, az értékekhez az árat.
Ezzel 1 sorba kerül minden termék neve mellé a 2 évi ára.
A kimutatás következő oszlopába betehetsz egy HA függvényt, ami kiírja az eredményt.=HA(C5>B5;"drágult";"olcsóbb lett")
Szerk.: Ez hülyeség volt, hagyd figyelmen kívül!
-
válasz
Delila_1
#11825
üzenetére
Nagyon szépen köszönöm!
Több óra szemfárasztástól kíméltél meg, mert azt kellett kigyűjtenem, hogy a termékek amiket beszerzünk azok drágultak vagy olcsóbbak lettek mint 2010-ben és mennyivel, így azokat könnyen ki tudom törölni amik nem voltak mindkét évben használva.
Köszi még egyszer.
-
Ami még fontos lehet, az az, hogy a tételekből nem csak egy van és az évszámok eddig hónapokkal is el voltak látva, de azokat a könnyebb kezelhetőség miatt átírtam 2010 és 2011-re. Pl.: JODOFOAM beszerzés volt több cégnél is, így vett az egyik cég 2010 januárban februárban stb, másik cég máskor, harmadik.... és 2011-ben is volt. Most csak 2010 és 2011 van hónapok nincsenek.
Megoldható-e így is, hogy gyakorlatilag egy cikknév több sorban is szerepel, mivel több cég, más-más hónapban is beszerezhette.
Köszi!
-
Sziasztok!
Egy céges excel táblázaton dolgozok, de egy kis egyszerűsítés kellene, mert rengeteg tételből áll. 2010 és 2011-es gyógyszer beszerzésről van szó, ami kb 5000 sorból áll. Már sikerült közös névre hozni azokat miket esetleg nem úgy írtak, de le kellene úgy szűrnöm, hogy az olyan tételeket dobja ki külön amik 2010-ben és 2011-ben is szerepeltek.
Sorból van egy évre utaló és cikknév sorom. Ezt valahogy össze lehet hozni, hogy a cikknév szerint vizsgálva azokat dobja ki, amiknél van 2010 és 2011-es is?
Egy példa ahogyan gondoltam:
Van olyan, hogy JODOFOAM mint cikknév ezt használták 2010-ben és 2011-ben is akkor a cella IGEN ha csak 2010 vagy 2011 van előtte akkor a cella NEM legyen.
Előre is köszönöm!
-
-
Delila_1
veterán
A laphoz rendelt makróval lehet megoldani. Az első változatot írtam meg, mikor az A1-be írva a B1 zárolt lesz. Mikor törlöd az A1 tartalmát, mindkét cella felszabadul. A B1-be írva az A1 lesz zárolt.
A makró indítása előtt a többi cellában – ahova még akarsz írni a fenti kettőt kivéve – töröld a zárolást.
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect UserInterfaceOnly:=True
If Not Intersect(Target, Range("A1:B1")) Is Nothing Then
If IsEmpty(Target) Then
Range("A1:B1").Locked = False
Exit Sub
End If
End If
If Target.Address = "$A$1" Then
Range("B1").Locked = True: Range("A1").Locked = False
End If
If Target.Address = "$B$1" Then
Range("A1").Locked = True: Range("B1").Locked = False
End If
End Sub -
Pá
addikt
Nem hiszem, hogy makró nélkül meg lehet oldani az alábbit, de hátha.
Szóval van A1 és B1 cellám. Azt szeretném, hogy ha írok valamit A1-be, akkor valahogy blokkolja, vagy védje le a B1 cellát, hogy oda már ne lehessen írni. Vagy ha először B1-be írok, akkor az A1-et védje le. Persze ha kitörlöm, amit írtam B1-be, akkor újra lehessen írni mindkettőbe. De ha már valamelyikben van valami, akkor a másikba ne lehessen.
Alternatív megoldásként jó lenne az is, ha A1-be írok valamit, akkor B1-ben megjelenik A1+x. De ha ezt pl B1-ben felülírom akármivel, akkor A1-ben jelenjen meg B1-x. Talán ez könnyebb, bár makró nélkül ebben sem bízom, hogy menni fog.
Bónusz kérdés: web query jelszóval védett oldalakra még mindig senki? (ezt lehet makróval is akár)
-
mr.nagy
tag
Sziasztok!
Csináltam egy form-ot az alábbi kóddal:
Private Sub OkButton_Click()
Dim sor%
Sheets("GENERÁLMAPPA").Activate
For sor% = Range("A1").End(xlDown).Row To 2 Step -1
If Cells(sor%, "B") = PolcTextBox.Value And Cells(sor%, "C") = FakkTextBox.Value Then
Rows(sor%).Delete
End If
Next
MsgBox "KÉSZ!"
End SubNos ez így nem működik, ha a TextBox értékek helyére konkrét számot írok akkor viszont hibamentesen lefut a program.
Mit rontok el? -
#11809
Mythunderboy
csendes tag
Mythunderboy
csendes tag
Sziasztok a 11647 es problémámra továbbra sem találok megoldást...HELP PLÍZ
-
#11808
bozsozso
őstag
Fire/SOUL/CD
#11807
bozsozso
őstag
válasz
Fire/SOUL/CD
#11807
üzenetére
Hát ezt nem értem
Ami el volt mentve az nem ment, ahogy bemásoltam újra úgy meg igen. Nem tudom mi lehetett. -
#11807
Fire/SOUL/CD
félisten
bozsozso
#11806
-
#11806
bozsozso
őstag
Fire/SOUL/CD
#9588
bozsozso
őstag
válasz
Fire/SOUL/CD
#9588
üzenetére
Sziasztok!
A #9584-es hozzászólásban amire most is válaszolok kaptam egy tökéletesen működő kódot, elég furcsa kerekítést szerettem volna. Most ismét szükségem van rá, de nem tudom működésre bírni és nem tudom mi lehet a probléma.
A következő hibaüzenetet kapom:
Compile error:
User-defined type not defined.
Mi lehet a probléma. Először 2003-as excelben próbáltam és nem működött most pedig kipróbáltam 2010 alatt is de ott sem.
-
#11805
Fire/SOUL/CD
félisten
Badb0y
#11782
válasz
Badb0y
#11782
üzenetére
Private Sub CommandButton1_Click()
Dim MyRange As Range
'Ettől a cellától kezdődnek az adatok
Set MyRange = Range("C2")
For i = ActiveSheet.UsedRange.Rows.Count To MyRange.Row Step -1
If (InStr(1, Cells(i, MyRange.Column).Value, "BONTOTT", vbTextCompare) > 0 Or _
InStr(1, Cells(i, MyRange.Column).Value, "Scratch", vbTextCompare) > 0 Or _
InStr(1, Cells(i, MyRange.Column).Value, "Refurbished", vbTextCompare) > 0) Then
Cells(i, MyRange.Column).EntireRow.Delete
End If
Next i
End Sub -
#11804
atillaahun
veterán
Delila_1
#11803
-
#11803
Delila_1
veterán
atillaahun
#11802
Delila_1
veterán
válasz
atillaahun
#11802
üzenetére
Nem olvastam vissza, de feltételezem, hogy makró is van a füzetedben. Az
Application.DisplayAlerts=False
sor letiltja a kérdést. Érdemes óvatosan bánni vele, sokszor hasznos a rákérdezés.
-
#11802
atillaahun
veterán
bugizozi
#11799
atillaahun
veterán
válasz
bugizozi
#11799
üzenetére
A csatolásokat sajnos még mindig nem tudom kiválasztani.
(#11801) bugizozi
Ez jónak tűnt így elsőre, ki is vettem a pipát belőle, mentés, bezárás, megnyitás, és megkérdezte.
Szóval szerintem ez nem csatolás lesz. Vagy nemtudom. De az biztos.
Mondjuk az zavar még ezeket a frissítési beállításokat sem találom, mert mikor létrehoztam a webes lekérdezést egyszer megkérdezte hogy s mint akarom, de most utólag már fogalmam sincs hogy kéne módosítani.(#11798) Fire/SOUL/CD
Azért köszi. Végülis nem akkora gáz. Inkább még valami számkinyerős képletet szeretnék. -
#11801
bugizozi
őstag
atillaahun
#11800
bugizozi
őstag
válasz
atillaahun
#11800
üzenetére
Automatic update and no message
2003:
On the Tools menu, click Options, and then click the Edit tab.
Click to clear the Ask to update automatic links check box.2007:
Click Microsoft Office Button, and then click Excel Options.
Click Advanced.
Under General, click to clear the Ask to update automatic links check box.
mondhattam volna magyarul is, de angolul jobban tetszett 
ismered a viccet ugye?!
![;]](http://cdn.rios.hu/dl/s/v1.gif)
na így eszembe se jutott volna elkezdeni, szép megoldás 
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Keresem az alábbi PC játékokat! (Teljes lista a leírásban!)
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Assassin's Creed Shadows Collector's Edition PC
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- AKCIÓ! Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Honor Magic6 Pro 512GB, Kártyafüggetlen, 1 Év Garanciával
- ÁRGARANCIA! Épített KomPhone i5 13400F 16/32/64GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
- Telefon felvásárlás!! Samsung Galaxy A16, Samsung Galaxy A26, Samsung Galaxy A36, Samsung Galaxy A56
- HIBÁTLAN iPhone 12 Pro Max 256GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS3106, 100% Akkumulátor
- iKing.Hu - Apple iPhone 15 Pro Max Black Titanium Titán stílus, 5 optikai zoom 256 GB- Gari
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest