- Samsung Galaxy A56 - megbízható középszerűség
- Nothing Phone (3a) és (3a) Pro - az ügyes meg sasszemű
- One mobilszolgáltatások
- Mi nincs, grafén akku van: itt a Xiaomi 11T és 11T Pro
- VoLTE/VoWiFi
- Mobil flották
- Xiaomi 15 - kicsi telefon nagy energiával
- Google Pixel 8a - kis telefon kis késéssel
- Samsung Galaxy S25 - végre van kicsi!
- Milyen okostelefont vegyek?
-
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
-
Fferi50
Topikgazda
válasz
lenkei83
#53967
üzenetére
Szia!
DARABHATÖBB függvényt megnézted már?=DARABHATÖBB(Analitika!$C:$C;">="&Sum!J$1;Analitika!$C:$C;"<"&KALK.DÁTUM(Sum!J$1;1);Analitika!$B:$B;Sum!$C3)
Egyébként nem tanácsolom, hogy teljes oszlopokat és sorokat használj a képletekben, mert az nagyon megnöveli a számítási időt. Inkább egy maximálisan várható reális sor/oszlop számot érdemes megadni.
Üdv. -
Fferi50
Topikgazda
válasz
lenkei83
#52592
üzenetére
Még egy kis magyarázat:
Ez a képlet:=SZORZATÖSSZEG((ÉV('1'!$B$15:$B$1001)=2023)*(NEM(ÜRES('1'!$A$15:$A$1001)))*('1'!$H$15:$H$1001))
igazából nem is szorzatösszeg, hanem három tényező összeszorzása, vagyis egy sima szorzás...
A SZORZATÖSSZEG függvénynél (is) a paramétereket el kell választani egymástól. Itt két paraméter van, az egyik az évek, a másik a fizetett kamatok, ahogyan az előző hsz-ben írtam.
Üdv. -
Fferi50
Topikgazda
válasz
lenkei83
#52592
üzenetére
De ha a SZUMHATÖBB is problémás, akkor meg lehet oldani SZUMHA függvénnyel is:
=SZUMHA('1'!B15:B1001;"<"&DÁTUM(2024;1;1);'1'!H15:H1001)-SZUMHA('1'!B15:B1001;"<"&DÁTUM(2023;1;1);'1'!H15:H1001)
És most jön a végső "csapás", a SZORZATÖSSZEGES képlet:=SZORZATÖSSZEG((ÉV('1'!$B$15:$B$1001)=2023)*1;'1'!$H$15:$H$1001)
Látod azt a fránya pontosvesszőt a tömbök között??? No csak ennyi kellett.
Üdv. -
-
VGYke
addikt
válasz
lenkei83
#49024
üzenetére
Egyébként amit te linkeltél az ez:
https://view.officeapps.live.com/op/view.aspx?src=https%3A%2F%2Fwww.mnb.hu%2Farfolyam-letoltes%3Fyear%3D2022&wdOrigin=BROWSELINK
(eltér ettől: https://www.mnb.hu/arfolyam-letoltes?year=2022)
Ha a fenti hosszú címet írjuk be a lekérdezendő címként, valóban görcsre fut... -
Fferi50
Topikgazda
válasz
lenkei83
#49002
üzenetére
Szia!
Az első paraméter kötelező, egy userform combo vagy listbox objektum a kód alapján. A második paraméter opcionális logikai.
Az első paraméternél meg kell adnod az objektum teljes nevét, pl. Userform1.Combobox1 (a nálad érvényes nevekkel).
A második paraméter elhagyható, illetve False esetén nem méretezi át az objektumot, True esetén átméretezi. False és True helyett természetesen bármely általad bevezetett logikai változót alkalmazhatsz amelyiknek megfelelő az értéke számodra.
Mivel nincs visszatérési értéke, így szerintem egyszerűen meghívható zárójelek nélkül, mint egy paraméterezett eljárás:ControlsResizeColumns Userform1.Combobox1,True
Üdv. -
#47638
Fire/SOUL/CD
félisten
lenkei83
#47637
-
#47634
Fire/SOUL/CD
félisten
lenkei83
#47633
válasz
lenkei83
#47633
üzenetére
1. Maga az adatbázis, az már egy létező adatbázis (pl. MySQL, Access, Paradox stb stb)?
2. Lokális (saját gépeden van) vagy hálózaton (neten egy szerveren csücsül stb stb)?
3. Az adatbázis felépítése?Szóval ezen, alapvető infók hiányában nagyon nehéz segíteni. Pl. korábban írtad:
"1: teljes adózói adatbázis letöltése excelbe"Adatbázist nem lehet "csak úgy" letölteni Excel-be, max. átkonvertálni (makró segítségével, de ehhez nélkülözhetetlen az adatbázis felépítésének ismerete) avagy "legegyszerűbben" Power Query segítségével beimportálni az adatokat, majd ezt követően SQL lekérdezéseket (is) már el lehet követni.
-
#47631
Fire/SOUL/CD
félisten
lenkei83
#47628
-
Fferi50
Topikgazda
válasz
lenkei83
#47570
üzenetére
Szia!
Ez a függvény nem VBA-ban van megírva szerintem, hanem Visual Studioban. Ha elmész a szerző(k) oldalára https://www.instagram.com/knacksack_official/,fogsz találni rá példát, hogyan csinálta.
A VBA UDF értéket ad vissza és nem tudja módosítani a cellaformázást.
Üdv. -
-
GreenIT
tag
válasz
lenkei83
#38720
üzenetére
Koszonom, kis modositassal tokeletes lett.
Ezek szerint nem aktiv, hanem passziv logikat kell kovetni, nem en mondom meg, hogy melyik cellaba tegye a valtozatokat, hanem minden cellaban meg kell adni, hogy honnan vegye az adatokat. Vagyis kulon figyelni kell, hogy ne legyenek atfedesek, mert barmi szabadon megadhato.
-
ny.janos
tag
válasz
lenkei83
#38524
üzenetére
A feltételes formázás nem jó a számodra? Kijelölöd mindkét oszlopot, majd az ismétlődő értékeket formázod.
A egyedi értékeket tartalmazó oszlopban látni fogod, hogy mely értékek szerepelnek abban az oszlopban is, amelyben ismétlődő értékek vannak.Ha másra gondolsz, akkor nem jól értettem a feladatot.
-
-
-
Pakliman
tag
válasz
lenkei83
#36587
üzenetére
Akkor viszont:
Dim ws As Worksheet
Dim rCella As Range
Set ws = ActiveSheet
With ws
For Each rCella In .Range("I2:I" & .Range("A1").SpecialCells(xlCellTypeLastCell).Row)
rCella = "=sumifs('" & .Cells(rCella.Row, "F") & "'!$C:$C," & "'" & .Cells(rCella.Row, "F") & "'!$B:$B,$D2," & "'" & .Cells(rCella.Row, "F") & "'!$P:$P,$B2)"
Next rCella
End WithAzt ugye tudod, hogy a SpecialCells tud ám rafinált hibákat okozni?
Csak látszat, hogy az utolsó "használt" cella lesz az alapja a visszaadott koordinátának.
Ha az utolsó mentés (és/vagy újranyitás) előtt mondjuk a "XFD1048576" cellába (O2010-nél az utolsó cella) valaki írt valamit aztán TÖRÖLTE, akkor a SpecialCells(xlCellTypeLastCell) az a cella lesz!!Én ezeket használom az utolsó sor/oszlop meghatározására (a "hol" lehet egy munkalap, vagy akár egy terület is):
Public Function UtolsóSora(hol, Optional lColumn As Long = 1) As Long
Dim rng
Set rng = hol.Cells(hol.Cells.Rows.Count, lColumn)
If Not IsEmpty(rng) Then
UtolsóSora = rng.Row
Else
UtolsóSora = rng.End(xlUp).Row
End If
Set rng = Nothing
End Function
Public Function UtolsóOszlopa(hol, Optional lRow As Long = 1) As Long
Dim rng
Set rng = hol.Cells(lRow, hol.Cells.Columns.Count)
If Not IsEmpty(rng) Then
UtolsóOszlopa = rng.Row
Else
UtolsóOszlopa = rng.End(xlToLeft).Column
End If
Set rng = Nothing
End Function -
Pakliman
tag
válasz
lenkei83
#36585
üzenetére
Jelenlegi ismereteim szerint (remélem, lesz aki mutat valami jobbat) az INDIREKT nélkül csak úgy lehet megoldani, hogy a munkalap neve(ket)t fixen építed be a függvénybe. Így viszont "nincs értelme" az F oszlopnak, mivel nem is fogja onnan venni az értéket
Az INDIREKT valóban lassítja a dolgot, mivel volatile függvény, vagyis minden esetben újraszámol. -
Pakliman
tag
-
Delila_1
veterán
válasz
lenkei83
#36029
üzenetére
Az L-M oszlopba írja ki az egyes megnevezésekhez tartozó összegeket.
Sub Kigyujtes()
Dim usor As Long
Columns(1).Copy Range("L1")
usor = Range("L" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("L1:L" & usor).RemoveDuplicates Columns:=1
usor = Range("L" & Rows.Count).End(xlUp).Row
Range("M1:M" & usor) = "=sumif(A:A,L1,B:B)"
End Sub -
pigster
senior tag
válasz
lenkei83
#36029
üzenetére
Tools/References...-nél be kell jelölni a Microsoft Scripting Library-t a működéshez
Function Gyujtes() As Scripting.Dictionary
Dim dict As Scripting.Dictionary
Dim myRange As Range
Dim sor As Long
Dim megnevezes As String
Dim ertek As Long
Set myRange = Range("A:B")
sor = 1
Set dict = New Scripting.Dictionary
megnevezes = myRange.Cells(sor, 1).Value
ertek = myRange.Cells(sor, 2).Value
Do While Not megnevezes = ""
If Not dict.Exists(megnevezes) Then
dict.Add megnevezes, ertek
Else
dict(megnevezes) = dict(megnevezes) + ertek
End If
sor = sor + 1
megnevezes = myRange.Cells(sor, 1).Value
ertek = myRange.Cells(sor, 2).Value
Loop
Set Gyujtes = dict
End Function
Sub Kiiras()
Dim dict As Scripting.Dictionary
Set dict = Gyujtes
Dim v As Variant
For Each v In dict.Keys
Rem persze a MsgBox helyett akármit lehet csinálni vele
MsgBox CStr(v) & " összesen: " & dict(v)
Next
End Sub -
Fferi50
Topikgazda
válasz
lenkei83
#35822
üzenetére
Szia!
Ez nyilván valamilyen ellenőrző lista lesz, amit teljes egészében végre kell(ene) hajtani, csak azután lehet(ne) továbbmenni. Ezért kell megnézni, hogy minden pipa megvan-e....
De ismerve a felhasználók lelkületét, azt nem lehet garantálni, hogy valóban meg is csinálták azt a műveletet, amit bepipáltakÜdv.
-
Delila_1
veterán
válasz
lenkei83
#35810
üzenetére
Másik megoldás (Feriéhez képest): tedd keretbe a CheckBoxokat, és egy gombhoz rendeld a lekérdezést.
Private Sub CommandButton1_Click()
Dim i As Object, f As Boolean
For Each i In Frame1.Controls
If i = False Then f = True
Next
If f Then MsgBox "Nincs minden jejölőnégyzet bejelölve", vbInformation
End Sub -
Fferi50
Topikgazda
válasz
lenkei83
#35810
üzenetére
Szia!
Sajnos egy lépésben nem fog menni. Javaslom, vegyél fel egy Public változót és hozzá egy függvényt.
A függvényben a lekérdezés:valtozo = Me.CheckBox1 And Me.CheckBox2 And Me.CheckBox3 stb.Ez csak akkor True, ha minden CheckBox be van pipálva.
(Némi kis trükkel elérhető az is, hogy megtudd, melyik nincs bepipálva:
valtozo = -Me.CheckBox1 * 1 Or -Me.CheckBox2 * 2 Or -Me.CheckBox3 * 4
Akkor minden rendben, ha az értéke 7.
Ha 6, akkor az első hiányzik, ha 5 akkor a második, ha 3 akkor a harmadik.)Ha minden kattintás eseményben meghívod a függvényt, akkor azonnal tudod, hogy mind be van-e jelölve.
Üdv.
-
Fferi50
Topikgazda
válasz
lenkei83
#35583
üzenetére
Szia!
Sajnos ez nem lehetséges jelenleg. Azt javaslom, hogy egészítsd ki a munkalap nevét egy H ill. egy V betűvel (plusz szóköz esetleg) az elején vagy a végén a listában.
Esetleg csinálhatsz két oszlopos listboxot, amelyikben szétválasztva sorolod fel a munkalapokat (egyik H, másik V), persze ilyenkor a kiválasztás nem lesz egyértelmű.Üdv.
-
Fferi50
Topikgazda
válasz
lenkei83
#34928
üzenetére
Szia!
Valóban fáradt vagy....
Az első változóba a munkalap kódneve kerül, ami ugye string (akkor is, és főleg azért, mert variantnak definiáltad).
A következő sorban pedig objektumhoz szeretnéd rendelni a stringet.... Nem csoda, hogy nem megy.Kérdezd le csak a nevét, majd a Sheets(név) formában hozzárendelheted az objektumhoz.
Üdv.
-
Fferi50
Topikgazda
válasz
lenkei83
#34420
üzenetére
Szia!
Az nyilván nagyobb kutatómunkát igényelne, hogy elsőre miért nem szereti - amire most nem feltétlenül vállalkoznék, talán egy későbbi időpontban...
Ha most így működik (persze nem megnyugtató), akkor figyelni kell, hogy hiba esetére legyen mentés.
(Nyilván esetedben még fontosabb.)
Priviben még elbeszélgethetünk rajta esetleg.Üdv.
-
Fferi50
Topikgazda
válasz
lenkei83
#34398
üzenetére
Szia!
Nyiss meg egy üres Excel munkafüzetet. A VBA nézetben az immediate ablakba írd be:
Application.EnableEvents=False (enter)
Azaz kikapcsolod az eseménykezelést.
Utána próbáld megnyitni a fájlt (nekem sikerült). Innen már makrónként végigmehetsz, hogy mi akaszthatja ki.Üdv.
Update: Sőt: ok_wathing indítása lépésenként, pár lépés után lefuttatása majd bezárás - mentéssel, az eseménykezelés visszakapcsolása után simán meg is nyitotta a fájlt.
-
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.
-
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.
-
Fferi50
Topikgazda
-
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.
-
asphalt
csendes tag
válasz
lenkei83
#33081
üzenetére
Ez így működik is csak, ha a képlettel kapott adatokra máshol van szükség akkor vagyok bajban.
[link]Mondjuk most, hogy így gondolkodok lehet egy
=és kijelölöm a szükséges cellákat megoldaná a problémámat.
Ha lenne esetleg megoldás arra hogy lehet a rögzítést alkalmazni egy már kész oszlopra(vagy sor, stb.) akkor azt továbbra is várom. Illetve egy képleten belül minden cellára, hogy ne kelljen végig menni egyesével. pl
=($B$2*$C$2*$D$2*$E$2) vagy hosszabbaknál, ahol bonyolultabb a képlet esetleg a más munkalapon található cellanevek miatt kevésbé átlátható.
Köszönöm a segítséget! -előre is -
-
Pakliman
tag
válasz
lenkei83
#33032
üzenetére
Szia!
Ha nem akarsz csiki-csukit, akkor az rw változót a proc elején deklaráld és minden
Print #xx,sor után írd be ezt:rw=rw+1.
A végén az rw értéke a fájl sorainak a száma lesz (feltéve, hogy a fájlba kiírt szövegek nem tartalmaznak sortörést okozó karaktert).Vagy egy másik lehetőség, hogy az
Open ...esetében a Random-t használod az Output helyett. -
Pakliman
tag
válasz
lenkei83
#33026
üzenetére
Szia!
Csak egy pillantást tudtam vetni rá, de szerintem a hiba
For Output As #xxlesz.
Ez esetben olvasni nem tudsz a fájlból.Egy lehetőség a sok közül:
For Each mezokod In mezokod_tartomany_1
If mezokod <> "" And mezokod.Offset(0, -6) <> "" Then
Print #xx, mezokod.Value & "=" & mezokod.Offset(0, -6).Value
End If
Next mezokod
Close #xx 'ÚJ SOR!!
Dim LineofText As String
Dim rw As Long
rw = 0
xx = FreeFile() 'ÚJ SOR!!
Open ThisWorkbook.Path & "\" & "1665" & "_" & ido & ".imp" For Input As #xx 'ÚJ SOR!!
Do While Not EOF(xx)
Line Input #xx, LineofText
rw = rw + 1
Loop
MsgBox rw
Close #xxAz 'ÚJ SOR!! részeket kell beírnod a kódba.
Figyelj! Az Open-nél Input van!Remélem műxik majd
-
Fferi50
Topikgazda
-
Delila_1
veterán
-
Delila_1
veterán
válasz
lenkei83
#32993
üzenetére
Azt nem mondtad, hogy nem userformon, hanem egy lapon van a combobox.
Az Alapadatok lapon a C4:C11 tartományt érdemes táblázattá alakítani. A C5:C11-et kijelölve megadtam a Teszt nevet (előtte töröltem a régit). Az ofszetes tartományod nem volt jó, C5-től C12-ig tartott. Persze nem nagy baj, ha pluszban van egy üres sor.
A Combobox lapon beállítod a Tervező módot, a vezérlődre állva megjeleníted a Tulajdonságokat. Itt a ListFillRange opcióhoz beírod: Teszt
Szerk.: azért elég a Teszt szót beírni, mert a tartomány hatóköre az egész munkafüzetre vonatkozik.
-
Fferi50
Topikgazda
-
Fferi50
Topikgazda
válasz
lenkei83
#32873
üzenetére
Szia!
Szerintem ennek működni kellene, viszont mivel a Thisworkbook kódlapja nem általános modul, hanem osztálymodulnak számít, a változót csak úgy tudod elérni, ha a teljes nevével hivatkozol rá, azaz Thisworkbook.valid_cell_range. Ebben a formában már látja minden modul - és a vba segítőben is látod.
Üdv.
-
Mittu88
senior tag
válasz
lenkei83
#32126
üzenetére
Na igen, de valamiért nem teszi be az oldaltörést.
Arra a kódra, hogy
Thisworkbook.Worksheets("mlapnév").HpageBreak.Add "Adott cella"
nem csinál semmit, a
Thisworkbook.worksheets("mlapnév").HpageBreak(1).Location "Adott cella"
meg Subscrypt out of range hibára fut.Hogy tudok oldaltörést beszúrni egy adott sor fölé, hogy ne dobjon hibaüzenetet?
-
Delila_1
veterán
válasz
lenkei83
#32019
üzenetére
El lehet rejteni az egész füzetet a Nézet | Ablak | Elrejtés menüponttal. Pl. a personal.xlsb is rejtetten nyílik meg (ha van) az Excel megnyitásakor.
Olyankor érdemes alkalmazni, mikor a felhasználó számára nem akarjuk elérhetővé tenni azt a füzetet, aminek az adataiból a látható füzet dolgozik. Éppen most írtam egy ilyen makrót, ami a füzet megnyitásakor behívja, és eleve elrejti a rengeteg adatot tartalmazó füzetet.
-
köszönöm, de sajnos ez nem fog működni mert az alap táblában is van ismétlődés, ez egy hétről hétre bővülő tábla, és sajnos van benne olyan oszlop ami változó 
Új hozzászólás Aktív témák
Hirdetés
Fferi50- TCL LCD és LED TV-k
- Argos: Szeretem az ecetfát
- RAM topik
- Intel Core i3 / i5 / i7 / i9 10xxx "Comet Lake" és i3 / i5 / i7 / i9 11xxx "Rocket Lake" (LGA1200)
- sziku69: Fűzzük össze a szavakat :)
- Vicces képek
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Kivégzi a Firewire-t az új macOS verzió?
- World of Tanks - MMO
- Kertészet, mezőgazdaság topik
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Vírusirtó, Antivirus, VPN kulcsok
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- Sea of Thieves Premium Edition és Egyéb Játékkulcsok.
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Tablet felvásárlás!! Apple iPad, iPad Mini, iPad Air, iPad Pro
- Bomba ár! HP EliteBook 830 G5 - i5-8G I 8GB I 256GB SSD I 13,3" FHD I HDMI I Cam I W11 I Gari!
- Csere-Beszámítás! Asus Rog Strix RTX 3070Ti 8GB GDDR6X Videokártya!
- QNAP TS-870U-RP 8 lemezes Rack NAS
- Telefon felvásárlás!! Apple Watch SE/Apple Watch SE 2 (2022)
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest