- PHP programozás
- Adobe Photoshop
- Linux kezdőknek
- Facebook és Messenger
- Windows 11
- Kaspersky Antivirus és Internet Security Fórum
- A választási tévinformációk ellen küzd a Meta
- Hálózati / IP kamera
- Törvénnyel pörgetné fel az európai zöldtechnológiát az EU
- Egyre több európai használja a Telegramot, ezért megkereste az EU
-
IT café
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
Topikgazda
válasz Gabcsika #3448 üzenetére
Vegyük, hogy az adataid a Munka1 lapon vannak, A oszlopban a megnevezés, B-ben a szám_1, C-ben a szám_2.
Munka2 A2-be: =HA(Munka1!$B2=Munka1!$C2;Munka1!A2;"")
Ezt jobbra húzod a C oszlopig, onnan a hármat együtt le addig a sorig, ameddig a Munka1-en adataid vannak. Kapsz egy foghíjas táblázatot.
A Munka2 lapon bekapcsolod az autoszűrőt, bármelyik oszlopban kiszűröd az üres sorokat, és törlöd azokat.
A szűrő visszaállítása után érdemes a Munka2 lapon kijelölni az A,B,C oszlopokat, másolás, ugyanoda érték beillesztés (hogy a képletek helyére a fix adatok kerüljenek).Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Gabcsika #3464 üzenetére
Szia Gabcsika!
Megtisztelő, hogy személyesen engem szólítasz meg, de itt a fórumon erre sokan mások is tudnak válaszolni.
A VLOOKUP a magyar FKERES angol megfelelője, azt jelenti, hogy függőlegesen keres.
Példa: van egy halom anyagod, cikkszámmal, súllyal. Az anyag megnevezését tudod, amellé kell beilleszteni a megfelelő cikkszámot, és a súlyt.
Van egy táblázatod, mondjuk a $J$1:$L$100 tartományban, ahol a J az anyag nevét, a K a megfelelő cikkszámot, az L a súlyt tartalmazza.
A napi használatban felviszed az anyag nevét az A oszlopba. Az A1 az oszlop nevét tartalmazza, az adatok A2-ben kezdődnek. A B oszlopba kellene beírni a cikkszámot, a C-be a súlyt, ehelyett a Vlookup függvényt írod be a B2-be:
=Vlookup($A2;$J$1:$L$100;2;FALSE)
Az első paraméter a keresendő érték, jelen esetben az A2 cella tartalma. A 2. paraméter a tábla, ahol keresni kell, ez a $J$1:$L$100.
A függvény a tábla első oszlopában keresi a keresendő értéket, az anyag nevét. A 3. paraméterrel adjuk meg, hogy a tábla hanyadik oszlopában lévő adatot írja az B2-be, ez itt most a második. Az utolsó paraméter egy logikai érték, amivel azt adhatjuk meg, hogy pontos-, vagy közelítő értéket keresünk-e. A FALSE pontos egyezést ad. A súgó leírja a közelítő értékek keresésének módját.
A függvény a B2 cellába beírja a cikkszámot.
A B2 képletét átmásolod a C2-be, és az oszlop számát átírod 2-ről 3-ra, mert ide a tábla 3. oszlopában lévő súlyt kell beíratni.
A C2 így néz ki:
=Vlookup($A2;$J$1:$L$100;3;FALSE)
Ezt a két képletet lemásolod addig, ameddig szükséges. Ezután elég az anyag nevét beírni az A oszlopba, a másik két adatot a függvények mellé írják.Jó munkát
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Gabcsika #3553 üzenetére
Munka2 A1 cellájába – ha a Munka1 lapon az A oszlopban vannak az adataid.
=HA(KÓD(Munka1!A1)=34;Munka1!A1;"")
Ezt lemásolod, szűröd üres cellára, azokat a sorokat törlöd. Utána rendezheted is.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
Delila_1
Topikgazda
válasz Gabcsika #3765 üzenetére
Szívesen.
A Formátum/Feltételes formázással könnyen megoldható.
[Itt egy kép][ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Gabcsika #3937 üzenetére
A képleteket tartalmazó celláidat tedd zárolttá és rejtetté. Azoknál a celláknál, amikbe majd az adatokat be kell vinni, oldd fel a zárolást. Ezután az Eszközök/Védelem/Lapvédelemnél védd le a füzetedet.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Gabcsika #3971 üzenetére
Húzd át Excelbe. Az egészet beteszi az A oszlopba.
Jelöld ki az oszlopot, Csere.
Mit kereshez írj egy szóközt, Mire cserélihez semmit. Mindet cserélje.
Marad a kijelölés, a cserénél a Ft-ot cseréld semmire.
Adatok/Szövegből oszlopok/Tagolt, a következő oldalon a határolójel Más, mellé írd be a / jelet. Kész.
A B oszlop adatait ezután formázhatod úgy, hogy mögötte legyen minden sorban Ft.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
kingi
tag
válasz Gabcsika #4002 üzenetére
vhogy csak meg leeht oldani, nem tudom hogy... egyelőre. jó az ötlet pláne a havi zárás-os ezer sheetes milliónyi adatmezős kis táblához, néhány finance mgr örülne amikor már s szemei villóznak, na nem a vaskapaos fajta...
győzzön a jobbik, de nem lehet, hogy a jobb maga a rossz? (Seneca)
-
Delila_1
Topikgazda
válasz Gabcsika #4062 üzenetére
Az, hogy miben tér el a két oszlop, a tartalmuktól függ. A Ha függvénnyel kérheted az egyenlőség, ill. a NEM egyenlőség megmutatását.
=HA(A1=B1;"Azonosak";"Eltérnek")
Ha összegek vannak a két oszlopban, akkor
=Ha(A1>B1;"'A' nagyobb";ha(B1>A1;"'B' nagyobb";"Egyenlőek"))
Ez tulajdonképpen szövegek összehasonlítására is jó, ott a "nagyobb" azt jelenti, hogy az ABC rendben később szerepel.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz Gabcsika #4069 üzenetére
Hali!
Tudom, hogy régen volt, de volt egy érdekes kérdésed a "villogó cella" témakörben.
Munkafüzet1 - Munka1 (Code)
Public Most_villog As Boolean
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("A1") = "ok" And Most_villog = False Then
Call Szincsere
Most_villog = True
ElseIf Range("A1") <> "ok" And Most_villog = True Then
Call Villogas_ki
Most_villog = False
End If
End SubMunkafüzet1 - Module1 (Code)
Public Idozites As Double
Sub Villogas_ki()
Range("A1").Interior.ColorIndex = xlAutomatic
Range("A1").Font.Color = RGB(0, 0, 0)
Application.OnTime Idozites, "Szincsere", , False
End Sub
Sub Szincsere()
If Range("A1").Interior.Color = RGB(255, 0, 0) Then
Range("A1").Interior.Color = RGB(0, 255, 0)
Range("A1").Font.Color = RGB(255, 0, 0)
Else
Range("A1").Interior.Color = RGB(255, 0, 0)
Range("A1").Font.Color = RGB(0, 255, 0)
End If
Idozites = Now + TimeSerial(0, 0, 1)
Application.OnTime Idozites, "Szincsere", , True
End SubHa az A1 cellába beírod hogy "ok" akkor villog a cella háttere, meg a betűszín, egyéb esetben meg nem. Bár a VB nem az erősségem, de ez olyan jó feladat volt, hogy nem bírtam ellenállni, hogy egy kis kitérőt tegyek
Nyílván ha szép elhalványodó, színátmenetes villogást szeretnél, akkor azért ennél több kell. Azonban egyetértek Delila_1-el, miszerint felesleges, jobb a hagyományos módszer.(ne villogjon, csak legyen más színe).Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
válasz Gabcsika #4080 üzenetére
Legegyszerűbben úgy, hogy egy oszlopba beírod (a példában az A oszlopban vannak az adatok):
=darabteli(A:A;A1)
Ezt lemásolod minden sorodba, utána ezt az oszlopot az autoszűrővel megszűröd a nullánál nagyobb értékekre.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Gabcsika #4169 üzenetére
A sorokat kellett volna törölnöd, nem az adatokat. Egy szűrés üresre, vagy rendezés után megteheted.
A vlookup csak a kritériumnak megfelelő első sort adja, használd az irányított szűrést. Angolban nem tudom, magyarban Adatok/Szűrő/Irányított szűrő. A súgóban megtalálod a leírását.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Gabcsika #4169 üzenetére
Ez a rövid makró kitörli azokat a sorokat, ahol az A oszlopban üres cellát talál.
For sor = Range("A65536").End(xlUp).Row To 1 Step -1
Cells(sor, 1).Select
If Cells(sor, 1) = "" Then Selection.EntireRow.Delete
NextProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Gabcsika #4318 üzenetére
Vegyük, hogy a szétbontandó adataid az A oszlopban vannak. Kijelölöd az adatokat.
Az Adatok/Szövegből oszlopok menüben Tagolt, a következő ablakban Szóköz, Kész.
Ám ez a (456)-ot negatív számként teszi be a sor B oszlopába a zárójel miatt.C1-be: ="(" & B1*-1 & ")" A képletet lemásolod, kijelölöd a C oszlopot. Másolás, B1-be állva értékként beilleszted.
Ezt több idő volt leírni, mint az egészet végrehajtani.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fehér Mancs
tag
válasz Gabcsika #4318 üzenetére
Képlettel is ki lehet hámozni a zárójeles részt (A1-ben van az adott szöveg):
=MID(A1;FIND("(";A1);FIND(")";A1)-FIND("(";A1)+1)1. paraméter, az adott cella
2. paraméter megkeresi, hogy honnan kezdődik, vagyis a nyitó zárójel pozíciója
3. paraméter, hogy milyen hosszú részt kell kiemelni -> záró zárójel pozíciója minusz a nyitó zárójel pozija +1[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz Gabcsika #4362 üzenetére
Igen, rosszul értettem. A D1 képlete:
=HA(DARABTELI($A$1:$A$9;C1)>1;SZUMHA($A$1:$A$9;C1;$B$1:$B$9);FKERES(C1;$A$1:$B$9;2;HAMIS))
Fehér Mancsnak igaza van, (például) erre jó a kimutatás. Nagyon kényelmes.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Gabcsika #4364 üzenetére
A 4360-as hozzászólás D oszlopának képletei adják az A oszlop adatait duplikátok nélkül, de az oszlop foghíjas lesz. Makróval lehetne folyamatossá tenni az adatokat.
Oldd meg inkább a feladatot Fehér Mancs javaslata szerint kimutatással. Az Adatok menüben találod, a varázsló szépen végig vezet a szükséges lépéseken.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
AvLav
csendes tag
válasz Gabcsika #4400 üzenetére
Helllo!
Az adatokat tartalmazó oszlop (legyen A) mellett lévő oszlopba (B-be), a következőt kell írni:
"=SZÖVEG.TALÁL("-";A1)" :ez megadja, hogy a kötőjel hanyadik karakter a szövegbenEzután a következő oszlopba (C-be), a következőt kell írni:
"=BAL(A1;B1-1)" :ez veszi az A oszlopban lévő szövegből balról kezdve a karaktereket a kötőjeligMindez persze megoldható makróval is, de sajnos nem fogalmaztad meg pontosan, hogy szükséged van-e az eredeti oszlopra vagy hogy hogyan nézzen ki a végén a tábla.
-
Delila_1
Topikgazda
válasz Gabcsika #4409 üzenetére
Például ilyen:
Sub szétcincál()
sor = 1
Do While Cells(sor, 1) <> ""
Cells(sor, 1) = Left(Cells(sor, 1), InStr(Cells(sor, 1), "-") - 1)
sor = sor + 1
Loop
End Subde másképp is meg lehet írni.
Másik, nem makrós megoldás, hogy kijelölöd a sorokat, Adatok/Szövegből oszlopok. A varázsló második lapján a kötőjelet adod meg határoló jelnek.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
AvLav
csendes tag
válasz Gabcsika #4433 üzenetére
Szia!
Én valami hasonló makróval próbálkoznék, bár amit most itt mutatok még hagy egy kis kívánnivalót maga után:
Sub szamol()
Sheets("Munka2").Select
lastRow = Range("A65535").End(xlUp).Row
Sheets("Munka1").Select
lastRow2 = Range("A65535").End(xlUp).Row
Dim szamlalo
For i = 1 To lastRow
Sheets("Munka2").Select
x = Range("A" & i).Value
szamlalo = 0
For j = 1 To lastRow2
Sheets("Munka1").Select
y = Range("A" & j).Value
If (y = x) Then
szamlalo = szamlalo + 1
End If
Next j
Sheets("Munka2").Select
Range("B" & i).Value = szamlalo
Next i
End Sub!!! Ez a makró feltételezi, hogy a Sheet1-en minden A oszlopbeli elem mellett van a B oszlopban érték
[ Szerkesztve ]
-
AvLav
csendes tag
-
Delila_1
Topikgazda
válasz Gabcsika #4436 üzenetére
Meg lehet számoltatni az adatok "féleségét". A B oszlop adatait elnevezed tartománynak.
=SZORZATÖSSZEG((tartomány<>"")/DARABTELI(tartomány;tartomány))
avagy
=SUMPRODUCT((tartomány<>"")/COUNTIF(tartomány;tartomány))Ezzel az a baj, hogy azt mutatja meg, hány féle érték van a B oszlopban, függetlenül az A oszlop tartalmáról.
Miért nem jó a kimutatás? Már máskor is kapálóztál ellene.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Gabcsika #4436 üzenetére
Nagy nehezen megszületett.
Sub Egyezo()
Sheets("Sheet1").Select
'******* Rendezés ***************
Range("A2").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B1") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
'************************************
sor_1 = 1: sor_2 = 1
Sheets("Sheet2").Select
Do
első = sor_1
A = Cells(sor_2, 1)
Sheets("Sheet1").Select
Do While Cells(sor_1, 1) <> ""
If Cells(sor_1, 1) = A Then
If Cells(sor_1 + 1, 1) > A Or Cells(sor_1 + 1, 1) = "" Then
ucsó = sor_1
Range("B" & első & ":B" & ucsó).Select
ActiveWorkbook.Names.Add Name:="tartomány", RefersTo:=Selection
Sheets("Sheet2").Select
Cells(sor_2, 2).Select
Selection.FormulaR1C1 = "=SUMPRODUCT((tartomány<>"""")/COUNTIF(tartomány,tartomány))"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Sheet1").Select
ActiveWorkbook.Names("tartomány").Delete
sor_1 = sor_1 + 1
Exit Do
End If
End If
sor_1 = sor_1 + 1
Loop
sor_2 = sor_2 + 1
Sheets("Sheet2").Select
Loop While Cells(sor_2, 1) <> ""
Application.CutCopyMode = False
End SubA csillagokkal határolt rész a Sheet1-en való rendezés. Nálam nincs rovatfej. Ha ez nem jó, helyette rögzítsd makróban a kétkulcsos rendezést, első kulcs az A, második a B oszlop, emelkedő sorrendben.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Gabcsika #4443 üzenetére
A font.color a karakter színét adja, az interior.color a kitöltését. A kitöltés nélkülit próbáltam a vbNone kifejezéssel megadni, de az fekete lett, ezért inkább a ColorIndexet írtam be, a -4142-t.
Sub colour()
Cells.Interior.Color = vbRed
Range(Cells(1, 1), Cells(27, 16)).Select
Selection.Interior.ColorIndex = -4142
Range("A1").Select
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Gabcsika #4445 üzenetére
Akkor két részletben add meg a színezést, az A28: P65536, és a Q1:IV65536 tartományra. 2007-es Excelnél nagyobb a tartomány.
Alapértelmezésben a cellák zárolva vannak, de ez a zárolás csak akkor lép érvénybe, mikor beállítod a lapvédelmet. A nem védendő cellák kijelölése után a cellaformázásnál a védelem fülön kiveszed a pipát a Zárolt elől. Ugyanitt a cella rejtését is beállíthatod, ha azt akarod, hogy a szerkesztőlécen ne jelenjen meg a képlet. Ez utóbbi is csak a lapvédelem beállítása után lép érvénybe.
A lapvédelmet az Eszközök/Védelem/Lapvédelemnél állíthatod be, és jelszót is adhatsz a feloldásához.[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
Fehér Mancs
tag
válasz Gabcsika #4442 üzenetére
Az excel 2007-es verziójában képlettel is ki lehet ezt számolni ezt:
=SZUM(HA(értékek=vizsg_érték;HA(tartomány<>"";1/DARABHATÖBB(értékek;vizsg_érték;tartomány;tartomány);0);0))
(Tömbképlet, vagyis shift+ctrl+enter-et kell használni)Az értékekben keressük meg a vizsg_értéket, és csak ezeket vesszük figyelembe a darabszámlálásnál (tartományban a különbözők kiszedése).
Ha nem lehet érteni, ne aggódj, én sem igazán értem, de működik
[ Szerkesztve ]
-
Fehér Mancs
tag
válasz Gabcsika #4442 üzenetére
Még egy észrevétel, ha macroval számoltatjuk ki ezt, akkor saját függvényt érdemes használni, mivel az nem módosítja az adataidat, változásnál újra is számol, másolható, stb.
Erre egy megoldás:
Function CountDistinct(Ertekek As range, Tartomany As range, Vizsg_ertek) As Variant
Dim Taroltak()
Dim i, j, Talalat
Dim VanMar As Boolean
Talalat = 0
For i = 1 To Ertekek.Rows.Count
If Ertekek(i) = Vizsg_ertek Then
If Talalat = 0 Then
ReDim Taroltak(1)
Taroltak(1) = Tartomany(i)
Talalat = 1
Else
VanMar = False
For j = 1 To Talalat
If Taroltak(j) = Tartomany(i) Then
VanMar = True
Exit For
End If
Next j
If Not (VanMar) Then
ReDim Preserve Taroltak(Talalat + 1)
Taroltak(Talalat + 1) = Tartomany(i)
Talalat = Talalat + 1
End If
End If
End If
Next i
CountDistinct = Talalat
End Function -
Delila_1
Topikgazda
válasz Gabcsika #4463 üzenetére
Pontosan ezt a függvényt írta meg neked Fehér Mancs. Látod, nem Sub, hanem Function az eleje.
Másold át a füzetedbe a makrókhoz.
A függvények között a Felhasználói kategóriában és a Mindben ezután megtalálod a CountDistinc nevűt.
A példádnál maradva az Értékekhez az A oszlopodat, a Tartományhoz a B oszlopot, a Vizsg_értékhez pedig A1-et írj be. Húzd le a függvényt.
Ahogy módosulnak az adataid, a függvénnyel előállított értékek is változnak.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Gabcsika #4466 üzenetére
Kétféle módja van.
1. Ha van már personal.xls-ed, oda bemásolod. Ha nincs, készítesz.
Rögzíts egy akármilyen makrót: Eszközök/Makró/Új makró rögzítése. Lényeg, hogy a makró helyének a listából az Egyéni makró-munkafüzetben elnevezésűt jelöld be. Semmi mást nem kell módosítani. Ezt OKézod, indul a makró, amit rögzítesz, pl. módosítod a betű színét, majd a rögzítés vége gombbal befejezed. Létrejött a personal.xls, benne az első makróddal. Most lépj a makró szerkesztőbe:
Eszközök/Makró/Visual Basic (vagy Alt+F11). Bal oldalon a personalhoz tartozó Modules könyvtárban kattints duplán a Module1-re. Jobb oldalon megjelenik az általad rögzített makró. Ez alá másold be az újat. A rögzítettet le is törölheted.2. Másold be a makrót egy üres füzet makró szerkesztőjébe, majd mentsd el egy találó néven, xla kiterjesztéssel (Microsoft Excel bővítmény) formában. Az útvonalat nem kell megadni, az Excel automatikusan beállítja.
Jelöld be az Eszközök/Bővítmények között megjelenő, általad elnevezett bővítményt, ezután alkalmazhatod függvényként. A függvények között a Felhasználói kategóriában, és persze a Mind-ben találod meg ezután.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Új hozzászólás Aktív témák
- Suzuki topik
- Még két színben megcsodálható az ár/érték trónra pályázó Moto
- Projektor topic
- Milyen légkondit a lakásba?
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- iPhone topik
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Kerékpárosok, bringások ide!
- eMAG/edigital vélemények - tapasztalatok
- EAFC 24
- További aktív témák...
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Steames kulcsok jó áron eladóak!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest