- Samsung Galaxy Watch7 - kötelező kör
- Xiaomi 14T - nem baj, hogy nem Pro
- Samsung Galaxy A56 - megbízható középszerűség
- One mobilszolgáltatások
- A lapkakészlet és az akku különbözteti meg a Motorola Edge 60 és Edge 60 Pro-t
- Google Pixel topik
- Yettel topik
- Android alkalmazások - szoftver kibeszélő topik
- Íme az új Android Auto!
- Karaktere biztos lesz az első Nothing fejhallgatónak
-
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
-
-
bmenya
csendes tag
válasz
Delila_1
#20676
üzenetére
A sorok elrejtése kissé sok időt venne el mert, 16 munkalapon 130 sorból kellene kiválogatni.
A feltételes formázás akkor működik ha a celle amit szinezni akarok az felel meg a feltételnek nekem kb igy kellene ha(kezd!d2=1;kezd!d2" ide kellene a cella szinét meg adni;"0" nincs cella szinezés a képlet vég!d18 cellában van.
-
kőbaltazár
tag
válasz
Delila_1
#20665
üzenetére
Köszönöm, működik
Van arra lehetőség, hogyha lehúzom a képletmásolóval, csak az időként formázott cellákat vegye figyelembe?
Csak az A1; A5; A9; A13 cella van időként formázva, a többiben másfajta adat van. Tudom nem sok beírhatnám egyesével, de a kíváncsiság miatt érdekelne.
Köszi -
Saua
tag
válasz
Delila_1
#20619
üzenetére
Köszi a segítséget.
sajnos egyenlőre nem akar működni, így alkamaztam a formázást (office 2010):
feltételes formázás/ új formázási szabály/ a formázandó cellák kijelölése képlettel/ értékek formázása ha ez a képlet igaz:=hahiba(INDEX($G$3:$J$15;HOL.VAN(B3;$F$3:$F$14;0);HOL.VAN(C3;$G$2:$J$2;0));"")
-
#20614
the radish
senior tag
Delila_1
#20613
the radish
senior tag
válasz
Delila_1
#20613
üzenetére
Nagyon köszönöm! A probléma az volt, hogy bent maradt a CompoBox kimenetében is a "B1" cella és összeveszhettek rajta, mert állandóan leállt. De most, hogy megértetted velem a működését, rájöttem a hiba okára és tökéletes.
Remélhetőleg most már kevesebbszer akadok el. (Bár már mondtam ezt egy párszor.)Még egyszer köszönöm!
-
#20610
the radish
senior tag
Delila_1
#20608
the radish
senior tag
válasz
Delila_1
#20608
üzenetére
Igen, a választható adatok a füzetből megfelelő formában jönnek, ahogy az első képen látszik is.
Változtatni azért kéne itt az userform felületén, mert ez a munkafüzet, egyébként nem szem előtt lévő részén található és így szeretném a munkát a későbbiekben megkönnyíteni. (Bár nem tudom, hogy pontosan ezt kérdezted-e?)
Amennyiben ez az érték változik, úgy egy pár (akár a fent említett 36) érték is változik. melyek figyelemmel kísérése a munkafüzetben eddig szinte lehetetlen volt. (Így viszont már az elején Mindenki találkozik ezekkel.)Szóval a formátum a fő gond, azaz hogy miért nem jelenik meg jól a hh:mm formátum a CompoBox ablakában az adatbevitelt követően.
-
-
alfa20
senior tag
válasz
Delila_1
#20584
üzenetére
ez azért nem jó, mert akkor minden nap újra kellene írni a makrót, mert a 0219 hónapot és napot jelölni
Akkor lehet másképpen kell megoldani...
#20583:
bakter, már tudom mi volt a hiba.
A makró neve ugye MB_R(), én meg szépen ott is hagytam a két záró jelet.
ezer köszönet
-
Geryson
addikt
válasz
Delila_1
#20360
üzenetére
Szia Delila!
Sajnos nem volt eddig időm kipróbálni azt, amit írtál, azaz:
A C2 képlete legyen =ÁTLAGHA(A:A;A2;B:B), ezt másold végig.
Adhatsz feltételes formázást az A2:C4000 tartományra.
A képlet legyen =DARABTELI($A:$A;$A2)>1, és adj neki valami feltűnő formátumot.A feltételes formázásra egyszerűen nem jövök rá, hogy hogyan állítom be (a képletet nem tudom hova írom), de ez talán a kisebbik gond. A nagyobbik az az, hogy az első képlet így nekem nem megy. Mellékelek egy képet, amit látszik, hogy az első helyen (C2) kapásból valamit számol és nem jövök rá, hogy mit (nem értem, hogy miért más a C2 mint a B2 értéke). Aztán a C24/C25-ben meg nem számol semmit. Ugye az én kérésem az az lenne, hogy ha az A oszlopban ugyanaz az azonosító van, akkor a C oszlopba a B oszlopból számított átlagot írja (tehát pl. a C24/C25-ben annak kellene állni, hogy 984758, mert ez a kettő érték átlaga.
-
#20554
antikomcsi
veterán
Delila_1
#20552
antikomcsi
veterán
válasz
Delila_1
#20552
üzenetére
Szia!
Köszönöm, átküldtem levélben.
Sajnos valóban nagyok a karakterek, de szükség van rájuk. Valamelyest finomítottam ugyan a méretükön, de ilyen nagynak kell lenniük.
Szóval akkor azt nem lehet beállítani, hogy amikor felugrik a lista, abban is jó nagyok legyenek a választható elemek. Kár.
-
#20551
antikomcsi
veterán
Delila_1
#20549
antikomcsi
veterán
válasz
Delila_1
#20549
üzenetére
Szia!
Nem tudom mennyire emlékszel még a makróra amit csináltál nekem, de az lenne a kérdésem, hogy a #20536-ban lévő kép szerint, hogyan tudom azt elérni, hogy a makró csak akkor mentsen, ha az F5 dátum az nagyobb, egyenlő, mint a B2 mínusz 3 nap?
Illetve hogyan lehet a legördülő listában lévő karakterek méretét megnövelni?
Köszönöm!
-
#20534
the radish
senior tag
Delila_1
#20528
-
bulanjoe
tag
válasz
Delila_1
#20509
üzenetére
Még egy kérdés. ÉS akkor tényleg békénhagylak. Mi van, ha egy szünetet be kell ékeljek. Ha duplázom az ÉS-t akkor csak azt bizonyítja, hogy idióta vagyok.
=HA(ÉS(ÉS(F$1>=$B2;F$1<=$C2);ÉS(F$1>=$D2;F$1<=$E2));1;0)Példa: Béla 7től 15ig és 16tól 21ig
Megvan! VAGY!
Helyesen:
=HA(VAGY(ÉS(F$1>=$B2;F$1<=$C2);ÉS(F$1>=$D2;F$1<=$E2));1;0) -
csongi
veterán
válasz
Delila_1
#20465
üzenetére
Én voltam a béna
Működik.
Tovább bonyolítom, Ha meg van hogy cukor a cella tartalma , akkor kellene további két cella tartalmát meghatároznom, amik kapcsolódnak a cukorral. Pl a mellette lévő cellába az összetevők, mellette az ára.
Ami így nézne ki:
Termék azonosító termék neve termék ára -
csongi
veterán
válasz
Delila_1
#20458
üzenetére
Nem értem. Szerintem nekem ez nem jó.
Tehát nekem nem számolt hanem meghatározott érték kell.Pl
A1 értéke 475 vagyis kisebb mint 501 akkor a F6 értéke egyenlő Cukor
Ha A1 beírt értéke 598 vagyis kisebb mint 601 de nagyobb mint 501 akkor az F6 cella egyenlő búza.
A cukor és búza.. egy másik cellákban vannak elnevezve. -
csongi
veterán
válasz
Delila_1
#20455
üzenetére
Ez jóó
Tovább bonyolítom.
Ha olyat szeretnék, hogy az A1 értékétől függően kerüljön be a c3 cellába az előre kijelölt adatok közül a megfelelő.
Vagyis
A1=0-500között van , akkor a c3 értéke f6
A1=501-1000 között van, akkor a c3 értéke F7
A1=1001-1200 között van, akkor a c3 értéke F8
stb. -
gabor222
tag
válasz
Delila_1
#20451
üzenetére
Ez a 2. hét, hogy tanulom. Mi általában egy betűből álló neveket szoktunk adni.
Amit írtál abban ez a rész fontos? & "", Mert anélkül is működik.
Kicsit átfogalmazva a feladat:
1. A százas helyi értéken nem 8 áll.
2. Az egyes helyi értéken nem a 7 áll.Sub nyolcszac()
Dim i As Integer, db As Integer
For i = 100 To 999
If Right(i, 1) <> "7" And Left(i, 1) <> "8" Then db = db + 1
Next
MsgBox db
End SubElvileg jó, igaz?
Utánaszámolva igen -
#20445
antikomcsi
veterán
Delila_1
#20442
antikomcsi
veterán
válasz
Delila_1
#20442
üzenetére
Köszönöm, próbálkozom.
Így azt csinálja, hogy a H cellák értékeit menti az "Adatok"-ra, az F cellákat nem.
Aztán ha dátumot váltok az F cellák tűnnek e,l a H cellák maradnak, ha pedig visszaváltok ugyan arra a dátumra, a H cellák értékei, amik az Adat részen vannak kerülnek az F cellákba.
Most már ott tartok, hogy jutalmat ajánlok fel a megoldásért.
-
#20441
antikomcsi
veterán
Delila_1
#20440
antikomcsi
veterán
válasz
Delila_1
#20440
üzenetére
Az eredeti amit feltöltöttél az jó.
Aztán mindig más nem jó, ahogy próbálkozok.
Vagy nem menti el a többi cella értékeit, az "Adatok" munkalapra, vagy nem üríti a cellákat dátum váltáskor, vagy üríti, de nem rakja vissza, ha visszalépek a dátummal, vagy ezek variációja.
Egyszerűen nem tudom megcsinálni, hogy úgy működjön mint a Tiéd, ha nem csak az F8-21 cellákat szeretném, hanem ugyan úgy a H,J,L,N 8-21 és 24 cellákat is.
-
-
xavix13
őstag
válasz
Delila_1
#20424
üzenetére
Még egy utolsó finomítást kérdezhetek?
Most, hogy kitöröltem a próba adatokat, a win rates táblában, az átlagok helyére, sok helyre nulla került, mivel ugye még nem játszottam azokkal.
Meglehet valahogy oldani, hogy a nullákat figyelmen kívül hagyja az átlagból?Itt lehet látni. Az átlagnak itt kerek 4-nek kéne lennie nem pedig 0,89-nek.
A Totals táblában megtudtam úgy oldani, hogy nem átlag fv. használtam, hanem az össz.win-t osztottam az össz.win+össz.lose összegével.
Így:
Viszont ezt a Win Rates-nél nem tudom hogy lehetne megcsinálni. Ötlet?
-
xavix13
őstag
válasz
Delila_1
#20419
üzenetére
Annyi a bökkenője, hogy így most azt mutatja. hogy összesen hány winem volt az adott classal.
Nekem pedig az kéne hogy hányszor játszottam 0-3 közti wines játékot. (Mint a minta táblázatban.)
Tehát ha a táblázatban ilyen játszmáim vannak druiddal hogy: 1-3, 2-3, 1-3, 3-3. Akkor ne az jelenjen meg hogy 7 (a winek összege), hanem hogy 4 (vagyis 4x játszottam, 3 vagy az alatti wines játszmát.)
Remélem nem fogalmaztam túl kacifántosan. -
#20417
the radish
senior tag
Delila_1
#20416
the radish
senior tag
válasz
Delila_1
#20416
üzenetére
Igen, így gondoltam. Nagyon kár, hogy nem lehet egy menetben megoldani, de ne legyünk telhetetlenek. .
+1 kérdés felmerült bennem: Van-e arra lehetőség, hogy hőmérsékleti adatokat importáljak pl. az Accuweather.com-ról, vagy akár az időkép.hu-ról (stb.)?
Pl. A1= mai átlaghőmérséklet
Vagy ez már megint a telhetetlenség jele?
-
psg5
veterán
válasz
Delila_1
#20404
üzenetére
Tényleg nem direkt nem írtam le hamarabb. Sorry.
xls-et természetesen elírtam a nagy kapkodásban ami azért történt, mert nagyon kész akartam vele lenni, annyira felcsigázott, hogy van megoldásNagyon-nagyon hálás vagyok a segítségért!
Még annyi, hogy ezzel az utolsó javítással csupán egy "0" elnevezésű fájlt hoz létre.
valamit rosszul írhattam? -
psg5
veterán
válasz
Delila_1
#20396
üzenetére
Összefoglalva:
Tökéletesen működik.
Kijavítottam xlxs-et sima xlx-re, így már megnyitható.Akkor ami kérdés még vissza lenne:
1. Első két sor is fixen kellene az eredetiből.
2. mentési név az egyik oszlopban szereplő számok, eléjük egy nullát írva. (A oszlopból lennének a mentési elnevezések)SZERKESZTVE:Közben olvasom a válaszaidat, így már csak a 2. kérdés van vissza
Köszi!
-
Salex1
őstag
válasz
Delila_1
#20359
üzenetére
Köszi! kicsit átalakítva tudtam csak működésre bírni, biztos van egyszerűbb mód, de legalább működik.
Range("K1").Value = ActiveSheet.Shapes("Text Box 558").TextFrame.Characters.Text
Range("L1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(""*"",RC[-1],""*"")"
Selection.AutoFilter Field:=2, Criteria1:=Range("L1").TextLehetséges valahogy a makrót hozzárendelni a textbox elhagyásához, vagy a textboxban az enter megnyomásához?
-
bteebi
veterán
válasz
Delila_1
#20343
üzenetére
Működik!
Hálás köszönet érte! 
Igazából úgy is megy, ahogy először leírtad, valamit én ronthattam el.
Már csak egy dolgot nem értek: csak úgy működik, ha a Target.Address abszolút hivatkozással van megadva, tehát "$A$1". Se úgy nem megy, hogy "A1", se úgy, hogy Me.Range("A1"), és úgy se, hogy Sheets("Lista").Range("A1"). Nem kellene egyébként mindig lefutnia a makrónak, ha bármelyik lapon változik az A1-es cella? Nem teszi (és nekem így jó), de valahol logikusnak tűnne, mert elvileg akkor le kellene futnia, ha az A1-es cella változik. Vagy a private sub-ban lévő abszolút hivatkozás csak az adott lapon érvényes? (Igen, jól gondolod, sajnos nem értek hozzá
.) -
bteebi
veterán
válasz
Delila_1
#20333
üzenetére
Szia!
Nagyon köszönöm a segítséget
, egyelőre azonban valamiért még nem működik a kód. Azt írja, hogy a Range osztály Select metódusa hibás.Valamennyit javult a makróm, de ha az
If Target.Address = "$A$1" Then
sor volt megadva, akkor nem működött. Csak akkor futott le magától, ha a lentebb látható módon próbáltam:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("A1")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Sheets("Suzuki").PageSetup.CenterHeader = "Szín: " & Sheets("Lista").Range("A1").Value
'és ez a sor ismételve az összes lapra, de az elég gagyi
Application.EnableEvents = True
End SubEzt viszont nem tudtam úgy átírni eddig, hogy működjön. Pedig az ötleted tök jó, de valamiért nem megy. Kipróbáltam egy M$ honlapon lévő makrót is, de nem tudtam úgy átírni, hogy jó legyen (mondjuk az az összes lapra működne elvben, úgyhogy a te megoldásod jobb lenne):
Sub WorksheetLoop2()
Dim Current As Worksheet
For Each Current In Worksheets' Insert your code here.
Next
End SubDe ezt se tudtam úgy átírni, hogy működjön
. Ilyet próbáltam:Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("A1")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Dim Current As Worksheet
For Each Current In Worksheets
.PageSetup.CenterHeader = "Szín: " & Sheets("Lista").Range("A1").Value
'ez így hibás, valahogy máshogy kellene megadni, de ActiveSheet-tel se megy
Next
Application.EnableEvents = True
End SubVan ötleted, hogy mi lehet a probléma?
-
Attas
aktív tag
válasz
Delila_1
#20339
üzenetére
Ez vajon miért nem működik újfent?
Option Explicit
Sub TípusVálasztás()
Dim WÜM As Worksheet
Set WÜM = Sheets("Ütemidő műveletenként")
WÜM.Select
If WÜM.Cells(13, "C") = "x" Then UserForm1.Controls("AF10") = True Else UserForm1.Controls("AF10") = False
If WÜM.Cells(13, "D") = "x" Then UserForm1.Controls("AF20") = True Else UserForm1.Controls("AF20") = False
If WÜM.Cells(13, "E") = "x" Then UserForm1.Controls("AF30") = True Else UserForm1.Controls("AF30") = False
If WÜM.Cells(13, "F") = "x" Then UserForm1.Controls("AF40") = True Else UserForm1.Controls("AF40") = False
If WÜM.Cells(13, "G") = "x" Then UserForm1.Controls("AF50") = True Else UserForm1.Controls("AF50") = False
If WÜM.Cells(13, "H") = "x" Then UserForm1.Controls("AF60") = True Else UserForm1.Controls("AF60") = False
If WÜM.Cells(13, "I") = "x" Then UserForm1.Controls("AF70") = True Else UserForm1.Controls("AF70") = False
If WÜM.Cells(13, "J") = "x" Then UserForm1.Controls("AF90") = True Else UserForm1.Controls("AF90") = False
If WÜM.Cells(13, "K") = "x" Then UserForm1.Controls("AF100") = True Else UserForm1.Controls("AF100") = False
If WÜM.Cells(13, "L") = "x" Then UserForm1.Controls("AF110") = True Else UserForm1.Controls("AF110") = False
If WÜM.Cells(13, "M") = "x" Then UserForm1.Controls("AF120") = True Else UserForm1.Controls("AF120") = False
If WÜM.Cells(13, "N") = "x" Then UserForm1.Controls("AF130") = True Else UserForm1.Controls("AF130") = False
If WÜM.Cells(13, "O") = "x" Then UserForm1.Controls("AF140") = True Else UserForm1.Controls("AF140") = False
If WÜM.Cells(13, "P") = "x" Then UserForm1.Controls("AF150") = True Else UserForm1.Controls("AF150") = False
If WÜM.Cells(13, "Q") = "x" Then UserForm1.Controls("AF160") = True Else UserForm1.Controls("AF160") = False
If WÜM.Cells(13, "R") = "x" Then UserForm1.Controls("AF180") = True Else UserForm1.Controls("AF180") = False
If WÜM.Cells(13, "S") = "x" Then UserForm1.Controls("AF210") = True Else UserForm1.Controls("AF210") = False
If WÜM.Cells(13, "T") = "x" Then UserForm1.Controls("AF215") = True Else UserForm1.Controls("AF215") = False
If WÜM.Cells(13, "U") = "x" Then UserForm1.Controls("AF216") = True Else UserForm1.Controls("AF216") = False
If WÜM.Cells(13, "V") = "x" Then UserForm1.Controls("AF220") = True Else UserForm1.Controls("AF220") = False
UserForm1.ListBox1.List = WÜM.Range("CellTípusok").Value
UserForm1.Show
End SubEddig működött amíg a rövidítést nem alkalmaztam
Hibaüzenet " Method of 'range' of object'_Worksheet' failed -
deka1
csendes tag
-
AtHoS
nagyúr
válasz
Delila_1
#20287
üzenetére
Köszi
Ez egy elegáns megoldás. Kár, hogy nem jutott eszembe
Közben megoldottam amúgy egy bonyolultabb módszerrel
2 új oszlop a B elé, ezeket formáztam dátumra, majd rendeztem a B oszlopot, így a végére kerültek a 2014-esek. A létrehozott C oszlop celláiba "=D1-365", ahol ugye a * folyamatosan nő a soroknak megfelelően, majd a C oszlop másol, B oszlopba irányított beillesztés -> érték, majd a C és D oszlop töröl és voálá.
Ehhez képest a csere azért jóval elegánsabb
-
#20276
Térközjelző
csendes tag
Delila_1
#20262
Térközjelző
csendes tag
válasz
Delila_1
#20262
üzenetére
Szia!
Nagyon jó irányba halad a tábla, köszönöm a rengeteg segítséget.
Talán az elnevezés pontatlan, de az Utazás táblában a szolgálati lap száma D oszlop NEM a vonal számát jelenti, az csupán egy futó sorszám pl iktatószám. A Vonal számát CSAK a Menetrend pirosan jelzett cellája adja. Érdemes lehet kihámozni a Járatok lapra.
Még egy szabály eszembe jutott:
Akkor talán nem kell ennyi tartomány minden egyes járatnak. A járat típusok azt jelölik, hogy a járat milyen megállókon áll meg, lehet elég lenne csak azokat elnevezni, és abban tárolni a rá jellemző útvonalat.
ALL: köszönöm mindenkinek aki egyáltalán elgondolkodott a feladaton. Kihívásnak tuti nem rossz.
)Köszönöm!
-
#20252
Térközjelző
csendes tag
Delila_1
#20250
Térközjelző
csendes tag
válasz
Delila_1
#20250
üzenetére
Szia!
Köszönöm, hogy megnézed:
2014-Utazás tábla: ide kellene raknom az eredményt.
és
menetrend.xls tábla ebben kell keresgélni:
Közben érkezett a hír, hogy 1szerűbb lett a tábla, mert csak a közlekedő járatokat tartalmazza, nem kell foglalkozni vele, hogy egy járat épp adott napon megy-e.
Az aktuális remélhetőleg végleges verzio:A táblák azonos könyvárban vannak a számítógépen.
Remélem sikerült minden értelmesen leírnom. Ha mégsem kérlek kérdezősködj.Köszönöm szépen!
-
earth
csendes tag
válasz
Delila_1
#20218
üzenetére
Hello.
Köszönöm a válaszod, de én több száz vagy ezer számról beszélek és nem szeretném megszámolni mennyi hasonló van én azt szeretném hogy ezt a program megcsinálja maga. Az első lapon van kb több ezer termékkód egymás alatt amit egy cégtől kaptam, a második lapon pedig azok a termékkódok amiket mi szoktunk rendelni ugyanattól a cégtől de még nehezíti a feladatot hogy teljesen különböző sorrendben. És azt szeretném hogy ami az első lapon megegyezik a második lapon lévővel azt tegye a harmadik lapra.
Köszönöm.
-
tgumis
tag
válasz
Delila_1
#20220
üzenetére
Megpróbáltam de nem müxik
Létrehoztam egy segédtáblát oda irányitott beillesztéssel átmásoltam mindent de ahogy kész voltam és mindent f_án megformáztam rögzítés vége. Majd új adatokkal feltöltöttem a táblázatot elindítottam a makrót és semmi nem történt maradt az előbb kitöltött adatokkal -
tgumis
tag
válasz
Delila_1
#20210
üzenetére
Köszi a választ de abszolút semmi t nem értek belőle. Bocs de akárhogy is olvasgatom a fórumot sehogy nem történik semmi.Ez amit leírtál visual basic kód? Azzal mit kel csinálni?
példán keresztül bemutatnád?
A1 kék
A2 lapát
A3 nyéll
A4 papám kertjétA5 én kék lapát nyéllel ástam a papám kertjét
="én "&A1&" "&A2&" "&A3&"el ástam a "&A4
hogyan tudom a kék szót kékké a lapát nyél-t és a el-t félkövérré (nyéllel lesz belőle összefűzés után)
)
Új hozzászólás Aktív témák
Hirdetés
Fferi50
- BESZÁMÍTÁS! ASRock B85M Pro4 B85 chipset alaplap garanciával hibátlan működéssel
- BESZÁMÍTÁS! MSI Z370 i5 9500 16GB DDR4 512GB SSD RX6600 8GB Cooler Master MB510L Chieftec 500W
- Új és használt laptopok , üzletitől a gamerig , kedvező áron. Garanciával !
- BESZÁMÍTÁS! MSI B450M R5 5500 16GB DDR4 512GB SSD GTX 1080Ti 11GB Rampage SHIVA Chieftec 700W
- BESZÁMÍTÁS! 6TB Seagate SkyHawk SATA HDD meghajtó garanciával hibátlan működéssel
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest