-
Fototrend
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
-
logitechh
csendes tag
Sziasztok köszöntök mindenkit!
Most ismerkedem a makrókkal és lenne egy pár kérdésem:
Már sikerült összehoznom egy makrót az irányított beillesztésre de szeretném összefűzni, a makró indítás után megkeresse a B oszlopban az utolsó adatot tartalmazó sort. Majd az egyel alatta lévő sorra álljon a kurzor és oda irányított beillesztéssel illessze be a vágó lapon lévő adatot 4 oszlopnyi adatot.
Aztán az A oszlopon ismételten keresse meg az utolsó adatot tartalmazó cellát és alatta mindig növelje 1 el az értéket( kvázi sorszámot generáljon.
Végül az egész táblázatot jelölje ki(próbáltam makró rögzítővel a CTRL+A billentyű parancsot felvenni de csak annyit rakott be amekkora a táblázat)mert utána a formáznám a szegélyt.
Remélem érthetően írtam és tudtok segíteni
Köszönöm szépen[ Szerkesztve ]
-
logitechh
csendes tag
válasz poffsoft #35028 üzenetére
Hali
ebből semmit nem vágok
Sub iranyitott_beillesztes()
'
' iranyitott_beillesztes_ Makró
''
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Subebben a történetben hol szerepel a te általad leírt dolog
Rengeteg makrót találtam ami megadj az utolsó sor számát de azt nem tudom elérni hogy a B oszlop utolsó üre sorába áljon a kurzor vagyis hogy onnan kezdődjön a beillesztés -
logitechh
csendes tag
válasz poffsoft #35032 üzenetére
Kösszi neked is és Dellila_1-nek is(az övére nem tudok válaszolni mert azt írja ki,hogy várjak türelemmel amíg valaki válaszol a hozzászólásomra)
úgy látom két részre kell szednem a beillesztést és a sorszámozást mert valamiért mindig csak egyel növeli a sorszámot függetlenül hogy hány sornyi adatot illesztek be.Ez mind a kettőtök makrójánál fent áll.
De baromira megkönnyítettétek a munkám.[ Szerkesztve ]
-
logitechh
csendes tag
válasz Delila_1 #35037 üzenetére
Hali!
Nem tudom miért írta ki azt hogy várjak türelemmel de majd legközelebb kifotózom. de az volt a furi hogy senki más hozzászólására nem tudtam reagálni.
Tehát küldik ezt a munkalapot:
majd én ebből kiásolom amit kell Coszloptól F oszlopig .
erre már megcsináltam a makrót hogy szűr és másol.
Az innen kimásolt értékeket illesztem be ide:
B oszloptól az E oszlopig . Ez lehet egyszerre akár 50 sor is de ez változó.
Majd az F oszloptól az L oszlopig az újjonan beillesztett sorokba szeretném lemásolni a képleteket:
csak erre szeretnék makrót mert amit makrórögzítővel veszek fel és módosítok mindig csak egy sort sikerül másolni és beilleszteni.És ha mondjuk 45 sort illesztek be az B oszloptól F oszlopig akkor ugyan úgy 45 sorba kellene beilleszteni a képleteketEzután szeretném az A oszlopot sorszámozni.
a keretezés az már megvan ahogy a Delila_1 megmutatta.[ Szerkesztve ]
-
logitechh
csendes tag
válasz poffsoft #35040 üzenetére
Picit finomítani kellett mert az A oszlopban és az F:L tartományban egyel túlfutott a másolás
Köszi mindenkinek
felteszem a kódot hátha valaki más is hasznát vesziSub beillesztes()
'
' előre másik munkalapból kimásolt 4 oszlop szélességü tartományt beilleszt a B oszlop első üres sorától kezdve a B oszloptól az E oszlopig majd az A oszlopot kitölti sorszámmal illetve az F oszloptól az L oszlopig az F2:L2 tartomány képleteit másolja be addig a sorig ameddig a B oszlop tartalmaz elemet
'
Dim Asor As Long
Dim Bsor As Long
Dim i As Integer
Asor = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("B" & Asor).PasteSpecial xlPasteValues
Bsor = Range("B" & Rows.Count).End(xlUp).Row + 1
Range("F2:L2").Copy Destination:=Range("F" & Asor & ":F" & Bsor - 1) 'a végén a -1 azt jelzi hogy nem az utlsó kitöltött sor plusz egy sorba másolja a képletet hanem csak az utolsó sorig
For i = Asor To Bsor - 1 'számláló rész a Bsor esetén plusz egy sort beszámoz viszont ha csak a kitöltött celláig akarunk számozni akkor a-1 kell
Range("A" & i) = Range("A" & i - 1) + 1
Next i
'innen kezdődik a keretezés
Range("A1").CurrentRegion.Select 'CTRL+a kijelöli a teljes táblázatot
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub
Bár nam biztos hogy szabad ennyi mindent összefűzni de szerintem így tökéletes[ Szerkesztve ]
-
logitechh
csendes tag
Sziasztok!
Lenne 3 kérdésem:
1.
Hogy tudom azt megoldani makróval, hogy egy kijelölt tartományban a betüméretet meg kelljen adni hogy elférjen az adott cellában.
Tehát ki van jelölve a tartományom emberünk rányom a makró gombra és majd felugrik egy ablak melyben az szerepel,hogy: "adjad meg a betűméretet"
oda beírja delikvens az értéket majd a betűméret 3 és akkor lekicsinyíti.
Ha ez bonyolult az is megoldás ha mondjuk a c3 as cellába írt szám mértére változtassa a betűméretet.2.
Mások nagy problémám hogy van egy táblázatom ami kb fixen 600 sor és nem és mindig úgy kezeli az excel mintha még a 10000-ik sorba is lenne valami pedig nincs. Tehát a görgetősáv irtó pici és alig lehet navigálni benne.
3.
Azt hogyan állítom be, hogy pl beírok valamit a cellába akkor automatikusan állítsa át a megfelelő magasságúra a cellát. Mert van olyan füzetem ahol ez megtörténjen és van olyan ahol ez nem. Sőt olyan is van ahol egy részében megoldja ez egy részében nem.
Köszi előre is
Bocsi ha nem érthetően fogalmaztam -
logitechh
csendes tag
válasz Delila_1 #35218 üzenetére
szia amit megadtál az tök jól müxik egy üres munkalapon
De nekem lényeges lenne, hogy hagyja figyelmen kívül , hogy az A oszlop vagy a Q oszlopba vannak sorok amelyek esetleg magasabbak mint a többi.
Nem lehet a betűméret bekérős módszert alkalmazni?
(Ez egy munkalap levédős makróm szövegdoboza)tehát ha itt azt irom hogy 3 akkor 3as legyen az F16166 tartományban a betűméret
-
logitechh
csendes tag
válasz tgumis #37538 üzenetére
Neked erre van szükséged
Nem olyan stílusos mint Delila_1 megoldása de funkciójában ez tökéletesen működikSub szur_masol_beilleszt_torol()
Sheets("bevitel").Unprotect Password:="pw"
Sheets("összesítés").Unprotect Password:="pw"
Sheets("összesítés").Select
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter
Sheets("bevitel").Select
Sheets("bevitel").Range("D2").Activate
Sheets("bevitel").ListObjects("bevitel").Range.AutoFilter Field:=17, Criteria1:="=OK", Operator:=xlAnd
usor = Range("D2").End(xlDown).Row
Range("D2:T" & usor).Select
Selection.Copy
Sheets("összesítés").Select
Dim Asor As Long
Dim Bsor As Long
Dim i As Integer
Asor = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("B" & Asor).PasteSpecial xlPasteValues
Bsor = Range("B" & Rows.Count).End(xlUp).Row + 1
Range("S2:V2").Copy Destination:=Range("S" & Asor & ":S" & Bsor - 1)
For i = Asor To Bsor - 1
Range("A" & i) = Range("A" & i - 1) + 1
Next i
With Range("A1").CurrentRegion
.BorderAround LineStyle:=xlContinuous, Weight:=xlThin
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideHorizontal).Weight = xlThin
End With
Sheets("összesítés").Protect Password:="pw", UserInterfaceOnly:=True, AllowFiltering:=True,
AllowFormattingColumns:=True
Sheets("bevitel").Select
Sheets("bevitel").ListObjects("bevitel").Range.AutoFilter Field:=17
Range("D2:E200,G2:G200,H2:I200").Select
Range("H2").Activate
Range("D2:E200,G2:G200,H2:I200,B1:B6").Select
Range("B1").Activate
Selection.ClearContents
Selection.ClearContents
Sheets("bevitel").Protect Password:="pw", UserInterfaceOnly:=True, AllowFiltering:=True,
AllowFormattingColumns:=True
End SubA message bax-al történő makró vezérlése viszont engem is érdekel. Szóval ha igen lefusson a makró ha nem akkor meg nem. Arra tud valaki olyan példát amiből ki lehet ezt venni és más makrókhoz felhasználni
-
logitechh
csendes tag
Sziasztok
Van egy táblázatom ami jelenleg 10000 sornyi adatra van képletezve.
ez most még sok de később meg kevés lesz.
Van egy rakat képletem ami kb ilyen=SZUMHA($B$404:$B$10403;B257;$K$404:$K$10403)
itt rögzített a végeA kérdésem az hogy ha a 10403 at ki szeretném cserélni 5000 re vagy 15000 re akkor azt makróval vagy az indirekt függvénnyel csináljam.
Lehet ezt egyáltalán makróval?Sajnos az indirektet se nagyom bírom felfogni. Valaki tudna egy érthető leírást hozzá?
-
logitechh
csendes tag
Valaki tudna egy makrót ami a munkafüzet megnyitásakor feldobjon egy üzenet ablakot.
Ha igenre kattintunk akkor nyissa meg ha nem re akkor meg ne nyissa meg.
A szöveg :
Kérlek az adaokat megfelelő formátumban vidd be! -
logitechh
csendes tag
Sziasztok
Van egy táblám ami kaják receptjeit tartalmazza:
Anno valaki csinált egy makrót ami adott kaják receptjeit kilistázta.
Valaki tud segíteni?
nem csak egy kaját hanem változó mennyiségű kaját azt hiszem egy tartományba be kellett adni a kódjait és szépen kilistázta mi kell hozzá.Illetve a kilistázás után hogyan tudom megoldani hogy egy másik helyre szummázva csak az összetevők megjelenjenek.
2 lista kellene:
1. a kaják felsorolása és mellé az értéke
2. az alapanyagok összesen szóval a kilistázott kajákhoz ennyi só annyi rízs stb.
köszi előre is -
logitechh
csendes tag
Sziasztok
Van arra valami módszer, hogy adott táblázatban (mindegy hány oszlop és sor) bárminemű módosítást hajtanak végre akkor azt valahogy jelölődjön.
Mondjuk olyanra gondoltam hogy A oszlopban dátumok vannak és ha valaki beír egy dátumot akkor valahol jelenjen meg a felhasználóneve(céges gépeknél le lehet kérni a bejelentkező nevet) és ha B oszlopba egy azonosító számot ír valaki akkor az is jelenjen meg valahol azt is változtatta valaki. -
logitechh
csendes tag
Sziasztok
Hogy oldom meg azt ha rajta állok egy cellán akkor jelölje ki az aktív cellától jobbra 7 celláig az összes cellát?Sub Makró14()
'
' Makró14 Makró
'
'
Range(Selection, Selection.End(xlToRight)).Select
End SubSajnos nem folytonos az adattartalom tehát csak azt tudom hogy "A oszloptól a "G" oszlopig akarom kijelölni az aktív sort. Tehát ha az A2-n állok akkor az A2:G2
Esetleg ha azt meg lehetne oldani az még jobb volna ha a C3-n állok akkor a makró az A3:G3 tartományt jelölje ki -
logitechh
csendes tag
Sziasztok
Van egy táblázat amiben szűrök és szeretném a szűrt táblazat első oszlopát besorszámozni de csak a látható cellákat ott viszont folytonos legyen -
logitechh
csendes tag
válasz Delila_1 #41065 üzenetére
Köszi mindkettőtöknek a gyors választ
Ugyanehhez tartozik (mert ez a könnyebb megoldás ez volt) de hogy az adott tábla A19:H109.
A 110. sortól szöveges részek vannak
szeretnék makróval törölni egy sort mondjuk a 100-at akkor ha megadnám egy cellában akkor törölje a 100 as sort majd az utolsó sorba szúrjon be ismét egy keretes részt és a szöveges rész ismét a 110. sorban legyen. -
logitechh
csendes tag
válasz Fferi50 #41068 üzenetére
alapból így lenne de egy másik makró pakolja az utolsó üres sorba az értékeket egy másik munkalapról és ha csak a tartalmat törlöm akkor pl a 71. sor üres lesz majd a 72. sorba érték. Ezért szeretném a 71. sort törölni és az utolsó üres sor utáni sorba illeszteni az új adatokat
-
-
logitechh
csendes tag
válasz Fferi50 #41073 üzenetére
Újragondoltam a storyt
Delia nagy igazságát szem előtt tartva plusz a tiédet(nincs összevonás veszélyes a sorok törlése) sokkal egyszerűbb megoldásra jutottam.
Persze ehhez ti kelletek.
Mégpedig egy helyre bemásolom az adatokat amit behivatkozok a megformázott táblázatba egyszerű képlettel. Ahonnan meg hivatkozom kedvemre törölgethetek
Végül is erre való a fórum, hogy egymástól okosodjunk. Igaz 4 éjszakányi meló megy a kukába de így legalább könnyen javítható lesz és gyorsabb is
Köszi mindannyitoknak -
logitechh
csendes tag
Sziasztok!
Input boxba lehet valahogyan combo boxot rakni?
Bújom a netet de nem találom.
Dim Beszallito As String
Beszallito = InputBox("Add meg a beszállító kódját" & vbLf & "A Törzsadatok munkalapon találod a szállítók kódját", " Beszállító", "")
Range("EL5").Value = Beszallito[ Szerkesztve ]
-
logitechh
csendes tag
válasz Delila_1 #41105 üzenetére
Köszi a fáradozásod
Sajna már ott elakadtam, hogy tudom előhívni. Természetesen Google barátom majd megtanít.
Így kérdezésemmel sem zaklatlak hisz nem lenne fair.
És ha megszerzem az alap ismereteket majd zaklatlak.
Azt hittem pikk pak átírok egy két számot és joe vagyok -
logitechh
csendes tag
Sziasztok!
Táblázatként van formázva egy táblázatom. Szeretnék egy makrót ami az adatokat tartalmazó sorokat törli. Rögzítővel csináltam egy makrót de ahogy látom minden egyes sort törölt. Ez a táblázat van hogy 10000 van hogy 500 sor.Ez lett az eredmény a rögzítéssel:
Sub Makró2()
'
' Makró2 Makró
'
'
Range("anyagbiz").Select
Selection.ListObject.ListRows(1).Delete
Selection.ListObject.ListRows(1).Delete
Selection.ListObject.ListRows(1).Delete
Selection.ListObject.ListRows(1).Delete
Selection.ListObject.ListRows(1).Delete
Selection.ListObject.ListRows(1).Delete
Selection.ListObject.ListRows(1).Delete -
logitechh
csendes tag
Sziasztok!
Régen a makró idejére sikerült feloldani a jelszavas védelmet. Most a lekódolás ok de a beillesztés már nem működik
Makró 3 másolás
Makró 2 beillesztésSub Makró2()
'
' Makró2 Makró
'
'
Set WSIlletm = Sheets("Munka1")
WSIlletm.Protect Password:="Jelszo01", UserInterfaceOnly:=True, AllowFormattingColumns:=True ' AllowFiltering:=True
Range("C15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Makró3()
'
' Makró3 Makró
'
'
Set WSIlletm = Sheets("Munka1")
WSIlletm.Protect Password:="Jelszo01", UserInterfaceOnly:=True, AllowFormattingColumns:=True ' AllowFiltering:=True
Range("C2:O13").Select
Selection.Copy
End Sub[ Szerkesztve ]
-
logitechh
csendes tag
bocsi nem értem
-
logitechh
csendes tag
-
-
logitechh
csendes tag
-
logitechh
csendes tag
válasz Delila_1 #42351 üzenetére
Kipróbálom majd de az a baj, hogy az eredeti munkafüzetből van 15 mindegyik ugyanúgy néz ki. arról kijelölünk egy tartományt A1:M12 mindig ugyan ezt a területet.
Majd a cél munkafüzetben mindig máshová(egymástól 15 sorral eltolva illesztjük be a kimásolt tartományt.
Attól füg melyik "telephelyről" jön a saját kis összesítő oda másolja majd be a felhasználó. Nem akartam hivatkozással megcsinálni. Van akinek 3 van akinek 13 van akinek 6 helyről jön adat ő csak annyi részbe másol.Sub Beilleszt1()
'
' Makró5 Makró
'
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt2()
'
' Makró6 Makró
'
'
Range("C15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt3()
'
' Makró6 Makró
'
'
Range("C29").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt4()
'
' Makró6 Makró
'
'
Range("C43").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt5()
'
' Makró6 Makró
'
'
Range("C57").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt6()
'
' Makró6 Makró
'
'
Range("C71").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt7()
'
' Makró6 Makró
'
'
Range("C85").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt8()
'
' Makró6 Makró
'
'
Range("C99").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt9()
'
' Makró6 Makró
'
'
Range("C113").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt10()
'
' Makró6 Makró
'
'
Range("C127").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt11()
'
' Makró6 Makró
'
'
Range("C141").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt12()
'
' Makró6 Makró
'
'
Range("C155").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt13()
'
' Makró6 Makró
'
'
Range("C169").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt14()
'
' Makró6 Makró
'
'
Range("C183").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt15()
'
' Makró6 Makró
'
'
Range("C197").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Torol1()
'
' Makró7 Makró
'
'
Range("D2:O5,D9:O12").Select
Range("D9").Activate
Selection.ClearContents
End Sub
Sub Torol2()
'
' Makró7 Makró
'
'
Range("D16:O19,D23:O26").Select
Range("D23").Activate
Selection.ClearContents
End Sub
Sub Torol3()
'
' Makró7 Makró
'
'
Range("D30:O33,D37:O40").Select
Range("D37").Activate
Selection.ClearContents
End Sub
Sub Torol4()
'
' Makró7 Makró
'
'
Range("D44:O47,D51:O54").Select
Range("D51").Activate
Selection.ClearContents
End Sub
Sub Torol5()
'
' Makró7 Makró
'
'
Range("D58:O61,D65:O68").Select
Range("D65").Activate
Selection.ClearContents
End Sub
Sub Torol6()
'
' Makró7 Makró
'
'
Range("D72:O75,D79:O82").Select
Range("D79").Activate
Selection.ClearContents
End Sub
Sub Torol7()
'
' Makró7 Makró
'
'
Range("D86:O89,D93:O96").Select
Range("D93").Activate
Selection.ClearContents
End Sub
Sub Torol8()
'
' Makró7 Makró
'
'
Range("D100:O103,D107:O110").Select
Range("D107").Activate
Selection.ClearContents
End Sub
Sub Torol9()
'
' Makró7 Makró
'
'
Range("D114:O117,D121:O124").Select
Range("D121").Activate
Selection.ClearContents
End Sub
Sub Torol10()
'
' Makró7 Makró
'
'
Range("D128:O131,D135:O138").Select
Range("D135").Activate
Selection.ClearContents
End Sub
Sub Torol11()
'
' Makró7 Makró
'
'
Range("D142:O145,D149:O152").Select
Range("D149").Activate
Selection.ClearContents
End Sub
Sub Torol12()
'
' Makró7 Makró
'
'
Range("D156:O159,D163:O166").Select
Range("D163").Activate
Selection.ClearContents
End Sub
Sub Torol13()
'
' Makró7 Makró
'
'
Range("D170:O173,D177:O180").Select
Range("D177").Activate
Selection.ClearContents
End Sub
Sub Torol14()
'
' Makró7 Makró
'
'
Range("D184:O187,D191:O194").Select
Range("D191").Activate
Selection.ClearContents
End Sub
Sub Torol15()
'
' Makró7 Makró
'
'
Range("D198:O201,D205:O208").Select
Range("D205").Activate
Selection.ClearContents
End Sub
Sub TorolMindent()
'
' Makró8 Makró
'
'
Range("D2:O208").Select
Selection.ClearContents
End Sub
Új hozzászólás Aktív témák
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen