- bitpork: MOD Júni 28- Augusztus 2- szombat jelen állás szerint.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Magga: PLEX: multimédia az egész lakásban
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Android másképp: Lineage OS és társai
- Random25: Windows 11 telepítés Pendriveról
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Luck Dragon: Asszociációs játék. :)
-
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
-
Fferi50
Topikgazda
válasz
Mexildos
#33199
üzenetére
Szia!
Egy segédoszlopba kell a következő képletet beírni, ha a szavak az A oszlopban vannak:
B1 képlete: ="(" & A1 & ")"
Ezt végighúzod ameddig az A oszlopban vannak szavak.
Ezután a B oszlopot kijelölöd - másolás - irányított beillesztés értéket. Vagy ezt másolod rá az A oszlopra, vagy kitörlöd előle az A oszlopot.Üdv.
-
SssunnyyY
újonc
Sziasztok!
Sosem voltam nagy Exceles, de a 2016-os feladta a leckét, még az alapok se mennek...
Több gondom is van...
1. A VR-számok alatt futó projekteket szeretném ábrázolni ugyanabban a sorrendben, mint a táblázatban (a diagramon jelenleg fordítva van).
2.Az kezdő dátum az x tengelyen mindig az aktuális (MA) nap legyen és az ábrázolt projektek kezdőpontja az indítás időpontja, a végpontja pedig a határidő legyen.
Lehetséges, hogy rossz diagramtípussal próbálkozom?
Köszi előre is!
-
#33184
Smogus
őstag
Juditta_56
#33183
Smogus
őstag
válasz
Juditta_56
#33183
üzenetére
Köszönöm!
Ez frankón működik
-
#33183
Juditta_56
aktív tag
Smogus
#33182
-
Smogus
őstag
Sziasztok!
Egy táblázatban egy oszlopban számla sorszámok találhatóak.
Azt szeretném elérni,hogy ebbe az oszlopba ne szerepelhessen kétszer ugyan az.
Szóval ha elkezdek valamit beírni és ha bejeztem, akkor adjon egy hibaüzenetet, ha már van abban az oszlopban ugyan olyan érték vagy szöveg, mert sajnos betűt és számokat is tartalmaznak a száma sorszámok.
Lehetséges ez excelben? -
Dr V
őstag
Sziasztok!
Angol nyelvű excelt használok.
Az alábbi képlettel egyik cellából kiszedtem egy számot:=MID([@Column14];3;2)
Eredmény:50
Az így kapott értékekből szeretnék átlagot számolni, de DIV#/0! hibát kapom eredményül.
Ha az 50et kézzel beírom, akkor számol átlagot.
A cellaformátumot számra átállítottam, de ennek ellenére sem kapok jó eredményt. Hogyan tudnám kiszámolni az átlagot? Sajnos a szám, amivel számolnom kell, egy szövegben található, de szerencsére fix helyen, ezért is tudom kiszedni az MID képlettel. -
Kasya
nagyúr
Sziasztok!
Egy (szvsz) nagyon alap dolgot kerdeznek, de mar nincs erom a dologhoz:
2 oszlopos adathalmazból szeretnek diagrammot kesziteni. Az A oszlop datumokat tartalmaz, a B pedig pozitiv szamokat. A Diagrammban szeretnem, ha az X tengelyen a datum lenne, az Y tengelyen pedig a napok elorehaladtaval folyamatosan osszeadodnanak a szamok. Vagyis egy novekvo függvényt kapnek.Hogyan tudnam ezt elerni?
-
mormota
senior tag
sziasztok
erőforrásbarátabbá szeretnék tenni egy legyűjtést azáltal, hogy nem ugrálok és copy pastázok két fül között darabonként, hanem tömbbe copy-zom ki a kívánt adatokat egymás után, majd egyszerre illesztem be a kellő helyre
az a muris a dologban, hogy egy adatbázis-szerű táblázatból kell kiszedni, ahol egy sorban van egy adott helyiség, és a hozzá tartozó 2-3-akámennyi (max 22) adat 6-os blokkokban az i oszloptól kezdődően
a legyűjtésnél pedig minden sorban szerepeltetni kellene az adott adatbázis sorához tartozó helyiség két azonosítóját (B és D oszlop)
remélem érthető voltam
addig sikerül eljutnom, hogy megszámoltatom vele, hogy hány 6-os blokk van az adott sorban, de hogy ezeket betenni a tömbbe sikerült-e azt már nem tudtam leellenőrizni, azt meg még csak megoldani se tudtam, hogy a legyűjtés kellő helyére bemásolja a 6-os blokkokat
-
#33163
Lasersailing
senior tag
Lasersailing
senior tag
Sziasztok,
Excel VBA-ból szeretnék e-mailt küldeni. Egyszer régen már írtam ilyen makrót (még előző munkahelyemen), de most nem működik. Olyasmi rémlik, hogy valahol a VBA menüben kellene valamit átállítani, de nem találom, hogy mit...
Makró érintett sora:
Dim level As Outlook.Mailitem ' levélHibaüzenet:
"Compile error: User-defined type not defined"És kijelőli a fenti sort (meg megáll, vagy inkább el sem indul)
Esetleg valaki tud segíteni?
köszi előre is!Szerkesztés:
Bocsánat, megtaláltam a megoldást, ideírom, hátha másnak is kell:
Tools / references --> ki kell jelőlni a "Microsoft Outlook 14.0 Object Library" -t! -
v-paci
aktív tag
Sziasztok,
két dátum közötti évek számát szeretném számítani, de folyamatosan #SZÁM hibát dob az excel. Mi lehet a probléma:
=DÁTUMTÓLIG([@Belépés];MA();"É")
Próbáltam táblázat nélkül sima cellamegadással/fix dátumokkal is, de úgy sem működött. 2013-as verziót használom.
-
b3n1t0
csendes tag
válasz
róland
#33106
üzenetére
Szia,
az alábbi makrót bemásolod egy modulba (témaösszefoglaló), a munkalapon kijelölöd azt a tartományt, amit exportálni szeretnél, majd ALT + F8, kiválasztod a Save2Text makrót és indítás. A makróban kommenttel jelölt mentési helyre elkészíti a file-t, lentebb szintén kommentelt résznél tudsz még elválasztó jelet módosítani (vessző, pontosvessző stb...)
Public Sub Save2Text()
Dim lineText As String
Dim myrng As Range, i, j, k
Filename = "C:\export.csv" 'hova/milyen néven mentse
Open Filename For Output As #1
Set myrng = Selection
For i = 1 To myrng.Rows.Count
For j = 1 To myrng.Columns.Count
lineText = IIf(j = 1, "", lineText & ";") & myrng.Cells(i, j) '";" mivel legyenek elválasztva az adatok
Next j
Print #1, lineText
Next i
Close #1
End Sub -
Fferi50
Topikgazda
válasz
blountex
#33152
üzenetére
Szia!
"az egyiknél betűt kell írni mint n, a másiknál hogy hány darab van abból, a harmadiknál pedig a végederményt"
Kérdés, honnan tudod, hogy melyik betű milyen számot jelent? Mennyi az n és mennyi a k, vagy ha van más betű, akkor azoknak mi az értéke. Mert betűt számmal szorozni, annak mindig 0 az eredménye.Egy ötlet arra, hogyan lehet 2 betűt is használni:
A1 cellában vannak a betűk - ha két betű van, akkor ; (pontosvessző) az elválasztás közöttük.
B1 cellában van az előfordulások száma, ha két betű van az A1 cellában, akkor ide is két szám kell, elválasztó itt is a ; (Az n = 5, k = 7 állandókat használtam.) C1 cella képlete:=HA(HIBÁS(SZÖVEG.KERES(";";A1));5*B1;5*BAL(B1;SZÖVEG.KERES(";";B1)-1)+7*KÖZÉP(B1;SZÖVEG.KERES(";";B1)+1;HOSSZ(B1)))Ezt még meg lehet fejelni pl. azzal, hogy a szorzók (a betűk) értékét is egymásba ágyazott ha függvényekkel választod ki.
Üdv.
-
blountex
senior tag
válasz
Fferi50
#33151
üzenetére
Köszi, de hasonlóra jutottam én is amit írtál, viszont ez így nem az igazi.
Talán azt kifelejtettem, hogy mindössze 3 cella áll rendelkezésemre, aminél az egyiknél betűt kell írni mint n, a másiknál hogy hány darab van abból, a harmadiknál pedig a végederményt. Ez addig simán is megy, míg 1 betűt kell írni, de néha előfordul a két betű is, és ekkor ezt külön kell számolni. Nem olyan probléma csak mivel a táblázat több szálon fut át, így nem akarom ezt annyira átvariálni. No persze rejtett sorokat meg képleteket azért bele lehetne csempészni
-
Fferi50
Topikgazda
válasz
blountex
#33150
üzenetére
Szia!
Veszel két cellát, az egyikbe beírod az n, a másikba a k szorzóját.
Pl. A1 cella az n szorzója, B1 cella a k szorzója, akkor C1-be a képlet: =A1*25+B1*12
Sőt:
Az n számára és a k számára is használhatsz egy - egy cellát és akkor
C1 képlete = A1*A2+B1*B2 (n az A2, k a B2 cellában van).Remélem, jól értettem a kérdésed.
Üdv.
-
blountex
senior tag
Hello!
Nem igen foglalkoztam VB programozással, függvényt meg szerintem nincs rá.
Ezt eddig függvénnyel oldottam meg, az alábbiak szerint. Van egy n betű és annak 25 értéke. Ahány n van annyival szorozza meg a 25 értéket, csak hogy van mikor több változó is van, így ezt a függvény nem tudja érzékelni mint n+k, akkor nem tudja hogy mennyi n és mennyi k van hiába írom azt hogy 3n+k ami 87.
Tehát valami ilyesmi kéne, hogy ha az:
n=25
k=12
és ?n+?k azaz a kérdőjel helyére beírok egy számot pl 3n+1k azaz 3*25+1*12=87 akkor ő azt egy másik cellába írja ki az értéket -
ANT
őstag
Üdv mindenkinek.
A következő feladat megoldásához kérnék segítséget:
Külön a név és a tertmagasság megjelenítése megy az INDEX és HOL.VAN függvényekkel, de ez a sorszámmal kombinált verzió meghaladja a képességeimet.
Köszi előre is a segítséget.
Szerk: excel2007 a játszótér, ha ennek van jelentősége.
-
Fferi50
Topikgazda
válasz
lenkei83
#33141
üzenetére
Szia!
Szerintem kicsit túlkombinálod.
Ez a függvényes, ami csak 1 cella esetén müxik jól.If (sh.CodeName = "munka5" Or 1 <= target.Column <= 2) Then
regiertek = target.Value ' ez volt a target értéke
Application.EnableEvents = False
Application.Undo
target.Cells.NumberFormat = "@"
If Application.CutCopyMode <> False Then ' ha másolásról van szó, akkor
target.PasteSpecial Paste:=xlPasteValues ' most bemásoljuk az értéket - ami megegyezik az előzőleg regiertekbe tett értékkel!
Application.CutCopyMode = False
target.Value = RemoveNotNum(regiertek) 'ezért itt jó a regiertek és a target.value is!!
Else
target.Value = RemoveNotNum(regiertek) 'ha nem másolás volt, akkor is kiszedjük a számokat
EndIf
mivel ez a két sor azonos, lehet az EndIf után tenni.Ez pedig a Sub-bal, itt viszont a meghíváskor RANGE-et kell megadni, nem értéket!
If (sh.CodeName = "munka5" Or 1 <= target.Column <= 2) Then
regiertek = target.Value
Application.EnableEvents = False
Application.Undo
target.Cells.NumberFormat = "@"
If Application.CutCopyMode <> False Then
target.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
RemoveNotNum Target 'regiertek
Else
Target.Value=regiertek
RemoveNotNum Target 'regiertek
End If
Ez működik több cellás cél esetén is (meg egy cella esetén is).Üdv.
-
lenkei83
tag
válasz
Fferi50
#33140
üzenetére
Azért
regiertek, mert az a sor ugyan meg van hogyregiertek = target.Value, de utána van egyapplication.undo, és ha ilyenkor hívom meg functionnal atarget.Value = RemoveNotNum(target.value)-t, akkor atarget.Valueéppen üres, vagyis üresre fogja hozni a cellámat.If sh.CodeName = "Munka7" Or sh.CodeName = "Munka13" Or sh.CodeName = "Munka10" Or sh.CodeName = "Munka8" Or sh.CodeName = "Munka5" Then
Application.EnableEvents = True
Exit Sub
Else
If (sh.CodeName = "munka5" Or 1 <= target.Column <= 2) Then
regiertek = target.Value
Application.EnableEvents = False
Application.Undo
target.Cells.NumberFormat = "@"
If Application.CutCopyMode <> False Then
target.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
target.Value = RemoveNotNum(regiertek)
Else
target.Value = RemoveNotNum(regiertek)A meghívásnak így kellene kinézni? Konkrétan a bemásolt (vagyis az aktuálisan kijelölt) területre szeretném alkalmazni, akkor így kellene meghívni?
RemoveNotNum SelectionNem igazán akar működni worksheet_change-el
Else
If (sh.CodeName = "munka5" Or 1 <= target.Column <= 2) Then
regiertek = target.Value
Application.EnableEvents = False
Application.Undo
target.Cells.NumberFormat = "@"
If Application.CutCopyMode <> False Then
target.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
RemoveNotNum regiertek
Else
RemoveNotNum regiertek
End Ifüdv
P. -
Fferi50
Topikgazda
válasz
lenkei83
#33139
üzenetére
Szia!
Szerintem a Copy ágon nincs régi érték...
Ha több cellából áll a Target tartomány, akkor két lehetőséged van:
- vagy a Target tartomány celláin mész végig for each ciklussal és egyenként hívod meg a függvényt,
- vagy és ez szerintem a jobb, hogy a függvényből paraméteres eljárást csinálsz és ezen belül megy végig a ciklus a range celláin:Sub RemoveNotNum(ByRef myRange As Range)
Dim xOut As String, xTemp As String, i As Integer, xstr As String, cl As Range
xOut = ""
For Each cl In myRange
For i = 1 To Len(cl.Value)
xTemp = Mid(cl.Value, i, 1)
If xTemp Like "[0-9]" Then
xstr = xTemp
Else
xstr = ""
End If
xOut = xOut & xstr
Next i
cl.Value = xOut
xOut = ""
Next
End Sub
(Ez már csaknem az eredeti makró :-)
A meghívás pedig RemoveNotNum Target (illetve a Target helyett írhatod azt a tarrtományt, amelyből ki szeretnéd venni a nem szám karaktereket.
Itt már nem kell zárójel, mert nem függvény, hanem eljárás ami működik. Ez akkor is működik, ha csak egy cella van kijelölve, akkor is, ha több.Üdv.
-
lenkei83
tag
válasz
Fferi50
#33130
üzenetére
Szia Feri!
Köszönöm, működik, annyit kellett változtatni, hogy
RemoveNotNum(target.value)helyettRemoveNotNum(regiertek)
Nem is értem mit nem értettem...
Amire viszont most jöttem rá, hogy ha több értéket akarok egyszerre bemásolni akkor ez nem működik, mert a target range csak egy lehet. Van erre valami megoldás?
üdv
P. -
-
SssunnyyY
újonc
Sziasztok!
Tudnátok abban segíteni, hogy a hetek számát kitöltve, akár 5 évre előre, hogyan tudnám úgy görgetni az oszlopokat, hogy csak az aktuális 1 éves intervallum látszódjon, azaz rögzítve legyen a Terv/Tény oszlop is és a Felelős oszlop.
Igazából bármilyen megoldás érdekelne, hogy hogyan tudnám bővítve látni a dátumokat, ha szükség van "előretekintésre"?
Előre is köszi!
-
bficsor
csendes újonc
Sziasztok!
A csatolmányban írtam le részletesen a problémámat, amelynek lényege, hogy elegánsan szeretném megoldani, hogy két oszlopban felsorolt pontokhoz tartozó hosszakat összeadja az excel. Mátrix műveletben gondolkodom, de még nem jutottam sikerre.
Tudnátok segíteni?
Előre is köszönöm!
-
Fferi50
Topikgazda
-
#33129
Delila_1
veterán
Juditta_56
#33128
Delila_1
veterán
válasz
Juditta_56
#33128
üzenetére
-
#33127
Delila_1
veterán
Juditta_56
#33123
Delila_1
veterán
válasz
Juditta_56
#33123
üzenetére
A lenti makró a kijelölt tartományban végzi el a számok félkövérre állítását a szövegen belül. Ez a tartomány az eredeti, képlettel előállított szövegnek az értékként beillesztett területe legyen.
Sub Felkover()
Dim CV As Range, b As Integer
For Each CV In Selection
For b = 1 To Len(CV)
If IsNumeric(Mid(CV, b, 1)) Then CV.Characters(b, 1).Font.Bold = True
Next
Next
End Sub -
#33123
Juditta_56
aktív tag
fecske13
#33121
Juditta_56
aktív tag
válasz
fecske13
#33121
üzenetére
Köszönöm azért Neked is!
A SZÖVEG függvényt ismerem, ezexerint nem ez volt a megoldás, hanem Delila új makrója.
Még egyszer köszönöm Neked is, Delila!
A makródat majd kibővítem, hogy az összes sort (cellát) átalakítsa és akkor tényleg csak egy gombnyomás lesz a szöveg "megírása". 
-
Fferi50
Topikgazda
válasz
lenkei83
#33119
üzenetére
Szia!
A második makróból csinálj egy függvényt (pl):
Function RemoveNotNum(ByVal ertek As String)
Dim xOut As String, xTemp As String, i As Integer, xstr As String
xOut = ""
For i = 1 To Len(ertek)
xTemp = Mid(ertek, i, 1)
If xTemp Like "[0-9]" Then
xstr = xTemp
Else
xstr = ""
End If
xOut = xOut & xstr
Next i
RemoveNotNum = xOut
End FunctionEzután az első makróban a target.Value = regiertek sort cseréld ki erre:
target.Value = RemoveNotNum(regiertek)Üdv.
-
fecske13
tag
válasz
Juditta_56
#33110
üzenetére
Elmentettem akkor azt a fájlt, most feltettem ide:
Szovegek_formazasa_1_cellan_belul
hátha még másnak is szüksége lehet rá.
A köszönet Delila-t illeti. -
#33118
scott_free
senior tag
scott_free
senior tag
sziasztok,
az októberi office-frissítés használhatatlanná tette az űrlapokat (probléma leírása), amire elvileg tegnap kijött a javítás, a 2054-es verzióval.
azt tudja valaki, hogy magyarul mikor lesz ez elérhető? mert még mindig a 2038-asra frissít.
köszi!
-
#33116
Delila_1
veterán
Juditta_56
#33115
Delila_1
veterán
válasz
Juditta_56
#33115
üzenetére
Örülök, hogy sikerült, szívesen.
-
#33111
Delila_1
veterán
Juditta_56
#33110
Delila_1
veterán
válasz
Juditta_56
#33110
üzenetére
Szia Juditta!
Azt a fájlt már nem tudtam előbányászni.
Előtte írtam, hogy a képlet eredményeként látszó szöveget nem lehet részenként formázni, de irányítottan, értékként átmásolhatod valahova. Azt már akár karakterenként másképp formázhatod.
Írtam egy makrót, amit a lapodhoz kell rendelned (lásd a Téma összefoglalót). A formázandó cellán állva egy duplaklikk kiemeli félkövérrel a benne szereplő számokat.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim b As Integer
For b = 1 To Len(Target)
If IsNumeric(Mid(Target, b, 1)) Then Target.Characters(b, 1).Font.Bold = True
Next
Cancel = True
End Sub -
#33110
Juditta_56
aktív tag
Delila_1
#23042
Juditta_56
aktív tag
válasz
Delila_1
#23042
üzenetére
Szia, Delila!
Ezt ("Összeollózott szövegek formázása 1 cellán belül") az anyagot fel tudnád rakni valahová, ha szépen megkérlek, mert már nem érhető el? Előre is köszönöm!
A problémám - amire remélem, megoldás lesz az anyag -, hogy a főnökség nem szeret táblázatot nézegetni, ezért mindent el kell küldeni szövegesen (is). Az összesítőket képletekkel szövegbe rakjuk, majd bemásoljuk egy e-mailbe, viszont szeretném, hogy a számok bold formátumúak lennének (és csak a számok). Próbáltam, hogy a szerkesztőlécen a cellahivatkozást - amiben az adott szám van - vastagra állítom, de képletben nem fogadja el. Esetleg az excelben lévő "kész" szövegben lehet valami trükk, amivel a számokat ki lehetne vastagítani? Nyilván egyenként meg lehet oldani, akár az excelben, akár az e-mailben, de jó lenne valami trükk rá...
Egyébként mindent köszönök előre is, meg utólag is, rengeteget tanulok Tőled!
-
#33108
Juditta_56
aktív tag
róland
#33106
Juditta_56
aktív tag
válasz
róland
#33106
üzenetére
Szia!
Én is most kínlódtam meg ezzel. Kérdés, hogy Neked milyen formátum kell.
Ha "simán" mentettem a munkalapot csv-ként, az nekem pontosvesszővel elválasztott adatokat eredményezett. Úgyhogy összefűztem a szükséges adatokat úgy, hogy közé vesszőket tettem (a fejlécet is!), ezt átraktam egy üres munkalapra és azt mentettem csv-ként. Így szabályos, vesszővel elválasztott mezőket kaptam. (Konkrétan a guglinaptárba akartam importálni a beosztásomat.)
-
olloczky
senior tag
Sziasztok
Egy nagy táblában ahol számok vannak külön cellában ott, hogy tudok egy adott kombinációra rákeresni?
példa:
1 2 3 4 5
5 6 7 8 9
10 11 12 13 14nyílván ezt több ezer számmal, és én az 5 6 7 8 9 sorra szeretnék rákeresni, szimplán a számok megadásával. Hogy lehetséges?
üdv
-
#33101
Delila_1
veterán
II.Démonlord
#33100
Delila_1
veterán
válasz
II.Démonlord
#33100
üzenetére
Örülök, hogy sikerült az egyszerűbb módszerrel összehozni, szívesen.
Új hozzászólás Aktív témák
- Exkluzív órák
- Autós topik látogatók beszélgetős, offolós topikja
- Bambu Lab 3D nyomtatók
- HiFi műszaki szemmel - sztereó hangrendszerek
- CURVE - "All your cards in one." Minden bankkártyád egyben.
- bitpork: MOD Júni 28- Augusztus 2- szombat jelen állás szerint.
- Konzolokról KULTURÁLT módon
- Honor Magic V3 - mágikus realizmus
- Milyen billentyűzetet vegyek?
- Augusztusban jön a Honor Magic V Flip 2
- További aktív témák...
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Assassin's Creed Shadows Collector's Edition PC
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- MAGYAR Larousse Enciklopédia 1-2-3 egyben 2999 ft
- BESZÁMÍTÁS! 32GB ADATA XPG Lancer RGB 7200MHz DDR5 garanciával hibátlan működéssel
- Samsung Galaxy Z Fold5 , 12/256 GB , Kártyafüggetlen
- AKCIÓ! "ÚJ" Microsoft Surface 5 13,5 notebook - i5 1235U 8GB RAM 256GB SSD Intel Iris Xe IGP 27% áfa
- Xiaomi Redmi Note 14 Pro 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest