-
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
-
Geryson
addikt
Sziasztok! Melyik diagramtípussal tudnám a Z-tengelyt is feliratozni? Tehát van egy adatom, amit a X tengelyen és van egy diagramom, amit a Z-tengelyen szeretnék. (az egyik darabszám tengely, a másik pénz tengely).
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
Vladek83
tag
Sziasztok!
Milyen makróval tudnám megoldani?
Van egy munkafüzetem, ami több lapból áll és csak egy adott lapot szeretnék menteni, egy megadott helyre ( képleteket nem, csak értékeket ) Gomb nyomására kérdezze meg, hogy menteni szeretném-e?
Előre is köszönöm! -
Mutt
aktív tag
Hello,
Amit érdemes lenne még módosítanod az, hogy ne a SelectionChange eseménykor fusson a makró, hanem az Change eseménykor.
A mostani megoldás akkor is lefut, ha a lapon nncs változás csak egyik cellából egy másikba mész.
A SelectionChange pl. akkor lehet hasznos, ha a cella módosítás előtti értékére van szükséged.Ha a másolandó tartományban nincs képlet, akkor a Cut metódus 1 lépésben megcsinálja neked ami kell.
pl. Range("L2:M2").Cut Destination:=Sheets("cel").Range("B2")
üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mauzes
őstag
-
Mutt
aktív tag
válasz alexnowan #16449 üzenetére
Hello,
...miért autómatikusan a bal szélső oszlopot látom csak a Row értékek között?
Utána olvasva ez és a többi felvetésed is szándékosan van így több adatforrás esetén.
A http://www.contextures.com/xlPivot08.html oldalon adnak pár megoldást, többnyire külsó adatforrásként elérve az adatsorokat megszűnik a korlátozás.üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
-
Csontikka
aktív tag
válasz Mauzes #16455 üzenetére
teljesen igazad van, ezért írtam a zárójeles részt
(nézd nem ismerlek, van aki az officeban penge de sose hallott még róla hogy van screenshot gomb is a billentyűzetén, pláne arról, hogy még bizonyos részeit is lehet a képernyőnek kivágni, nem is kell az egészet.) Ezek szerint nem tartozol közéjük szerencsére
Ez erre volt finom utalás, természetesen nem megoldás a problémára hanem annak elfedése.[ Szerkesztve ]
-
Mauzes
őstag
válasz poffsoft #16457 üzenetére
Érdekes, nekem totál fos és csúnya eredményt ad, ha egy nagyobb táblát csak úgy bemásolok, formázni meg rémálom. Na mindegy, csak egyszerűen nem értem, hogy amit a képernyőn látsz, az mégis miért tér el a valóstól. A Word és Ppt legalább ezzel nem küzdenek (még ha mással sajnos igen).
-
csferke
senior tag
Sziasztok!
Először szeretném megköszönni Mutt és Delila segítségét a legördülők makróban-i használatával kapcsolatban.
És mindjárt kérdeznék is.
Dim Prompt, Title, Default, MyValue
...
...
ActiveCell.Offset(0, 6).Select
Default = ActiveCell.Value
Prompt = "jed.cena / kom"
MyValue = InputBox(Prompt, Title, Default, xpos, ypos)
ActiveCell = MyValue -
csferke
senior tag
Elnézést az imént lejárt a szerkesztési időm ezért most kénytelen vagyok ismételni.
Sziasztok!
Először szeretném megköszönni Mutt és Delila segítségét a legördülő listák makróban-i használatával kapcsolatban.
És mindjárt kérdeznék is.
Dim Prompt, Title, Default, MyValue
...
...
ActiveCell.Offset(0, 6).Select
Default = ActiveCell.Value
Prompt = "jed.cena / kom"
MyValue = InputBox(Prompt, Title, Default, xpos, ypos)
ActiveCell = MyValueMeghatározom a változókat (Dim), a cella formátuma number xxx,xxx.xx (ezres vessző, tizedes pont). A kódban bevitt MyValue értéket viszont xxx.xxx,xx (ezres pont, tizedes vessző) formában teszi be és ezzel az értékkel nem tud számolni.
Ha csak direkt a cellába írok értéket akkor viszont megfelelően értelmezi a pontot/vesszőt.
A Dim sorban, feltételezem, string változók vannak definiálva. Több cellába is viszek értéket (szöveget, számot) ezzel a módszerrel. Ez addig jó is amíg szöveget vagy egész számot adok be.
A Dim-et lehet így is?
Dim Prompt
Dim Title
Dim Default
Dim MyValue
Dim MyValueSzám As ???
Ha igen, mit írjak a kérdőjelek helyett, hogy megfelelően tizedes szám legyen?köszi
-
Delila_1
Topikgazda
válasz csferke #16463 üzenetére
As Double (lebegőpontos érték), 8 bájt a területigénye.
Ez a
-1,787693 134 862 32 E308-tól
-4,940 656 458 412 47 E324-ig, és
4,940 656 458 412 47 E324-től
1,787693 134 862 32 E308-ig
tartományokat foglalja magába.Az As Double helyett így is írhatod: Dim MyValueSzám#
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
rtom
senior tag
A Selection Change eseményt azért találtam jónak, mert egy vonalkódolvasóval viszek be adatokat egy kijelölt mezőbe, aminek hatására a kurzor a következő mezőre ugrik, így nem fut le a makró, csak ha kurzormogató esemény van.
A Cut metódusos sorod tetszik, de sajnos viszi a formátumot is magával, azt hogyan lehetne elkerülni?
Ha már postolok, egy problémám: szumha függvénnyel olvasatok be adatokat egy külső excel táblából, az elérési útvonal persze korrekten meg van adva, ha az adatforrás meg van nyitva, akkor korrekten működik, de mihelyst bezárom, mindehova az #ÉRTÉK hibát dobja, ennek mi lehet az oka?
-
Mutt
aktív tag
válasz Vladek83 #16452 üzenetére
Hello,
...csak egy adott lapot szeretnék menteni, egy megadott helyre ( képleteket nem, csak értékeket ..
Csináltam egy általánosat, amelyet könnyen tudsz magadnak beállítani.
Sub Masolat()
Dim FileExt As String 'aktuális fájl kiterjesztése
Dim FileName As String 'aktuális fájl neve
Dim FileExtension
Const BackupLocation As String = "C:\Archive" 'ebbe a mappába mentjük
Const masolando As String = "Sheet1" 'ezen nevű munkalapot mentjük
If MsgBox("Szeretnél másolatot készíteni?", vbYesNo, "Másolat") = vbYes Then
'összes cella másolása
Sheets(masolando).Cells.Copy
'új munkafüzet létrehozása
Workbooks.Add
'értékek másolása
Selection.PasteSpecial Paste:=xlPasteValues
'felkészülés a mentésre
'megnézzük hogy létezik-e a célkönyvtár, ha nem akkor létrehozzuk
If Dir(BackupLocation, vbDirectory) = "" Then
MkDir BackupLocation
End If
'filekiterjesztés meghatározása
FileExtension = Split(ThisWorkbook.Name, ".")
FileExt = FileExtension(UBound(FileExtension))
'az aktuális fájlnévet használjuk mentendőhöz
FileName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - Len(FileExt) - 1)
'és még kiegészítjük a mai dátummal
FileName = FileName & "_" & Format(Date, "YYYYMMDD")
'mentés XLSX formátumban (a többi típus a súgóban vagy http://msdn.microsoft.com/en-us/library/office/ff198017.aspx)
ActiveWorkbook.SaveAs FileName:=BackupLocation & "\" & FileName, FileFormat:=xlOpenXMLWorkbook
'bezárjuk az új ablakot
ActiveWindow.Close
Call MsgBox("Fájl elmentve " & FileName & " névvel.", vbOKOnly, "Mentés")
End If
End Subüdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
-
csferke
senior tag
válasz Delila_1 #16464 üzenetére
Szia Delila!
Ezzel Double-val akadt egy kis gondom Az As Double helyett így is írhatod: Dim MyValueSzám#
A tizedes ","-t "."-ot jól értelmezi mivel mostmár számról van szó csak nem jó helyre rakja.Ha egész szám a bevitt (pl. 5800) akkor jól viszi be a cellába =>5,800.00
Ha nem egész szám a bevitt szám (pl. 1,23) akkor nem jó a bevitt érték =>123.00
Megoldás?Esetleg. Hogyan lehet megvizsgálni a MyValueSzám-ot, hogy egész szám-e vagy tartalmaz-e tizedesjelet vagy valahogy? Ebben az esetben:
If MyValueSzám egész then
ActiveCell = MyValueNum
else
ActiveCell = MyValueNum/100
endif[ Szerkesztve ]
-
poffsoft
addikt
válasz csferke #16470 üzenetére
esetleg az int() ?
Sub test()
If IsNumeric(ActiveCell) Then
If ActiveCell.Value - Int(ActiveCell.Value) <> 0 Then
MsgBox "no"
Else
MsgBox "yes"
End If
End If
End Sub"Ha nem egész szám a bevitt szám (pl. 1,23) akkor nem jó a bevitt érték =>123.00"
Valószínűleg az a gondod, hogy a VBA csak "angolul" tudja a formátumokat...[ Szerkesztve ]
[ Szerkesztve ]
-
Delila_1
Topikgazda
-
csferke
senior tag
válasz poffsoft #16474 üzenetére
Poffsoft és Delila!
Köszönöm fáradozásotokat .DE rájöttem valamire
Ez a mondat Valószínűleg az a gondod, hogy a VBA csak "angolul" tudja a formátumokat... ragadta meg a figyelmem.
Windows-ban átállítgattam a számok formázását "angolosra" a magyar-nál és a szerb-nél ( ezres"." tizedes"," ) és láss csodát. Mindenféle nyakatekert vizsgálatok nélkül jól működik a számbevitel VBA-ból is meg simán az Excel-ből is.Az ember mindig tanul/rájön valamire.
köszi
[ Szerkesztve ]
-
rtom
senior tag
Újabb észrevételem, aminek nem tudom okát: külső excel táblából fkeres-sel összeszedett adat megjelenik, míg ugyanezen adatból a szumha hibát ad ...
Próbáltam úgy kikerülni a problémát, hogy makróból megnyitom és akkor updatelem a linket, de így sem megy
A kódom:
Open "DataFile_elérési_útvonala_és_neve" For Random Access Read As #1
Windows("Kimutatásfile.xls").Activate
ActiveWorkbook.UpdateLink Name:="\DataFile_elérési_útvonala_és_neve", _
Type:=xlExcelLinks
Sheets("Munka1").Select
Range("T69:X72").Select
Selection.Copy
Range("B69").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Close #1[ Szerkesztve ]
-
Vladek83
tag
Szia Mutt!
Köszönöm!!
'az aktuális fájlnévet használjuk mentendőhöz
FileName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - Len(FileExt) - 1)Azt, hogy tudom megcsinálni, hogy a fájl nevet én adjam meg, mert egy nap többször lesz mentés?
Már próbálgattam, de nem akar össze jönni....Köszi előre is!
-
poffsoft
addikt
válasz Vladek83 #16479 üzenetére
Delila megoldását kell kombinálnod az irányított beillesztéssel(másolat létrehozása a lapról új munkafüzetben, majd a teljes lapod másolása, irányított beillesztése(értéket) ), ha jól értem a kérést.
A nevekre meg az előző pár hsz-ben is van példa.
[ Szerkesztve ]
[ Szerkesztve ]
-
Mutt
aktív tag
Hello,
...külső excel táblából fkeres-sel összeszedett adat megjelenik, míg ugyanezen adatból a szumha hibát ad...
SZUMHA mellett még ugyanígy érintettek a SZUMHATÖBB (SUMIFS), DARABTELI (COUNTIF), DARABHATÖBB (COUNTIFS), DARABÜRES (COUNTBLANK) és INDIREKT függvények is, vagyis bezárt fájlokon nem működnek. A Microsoft úgy gondolja, hogy ennek így kell lennie http://support.microsoft.com/kb/260415
Alternatív megoldások a lenti képlet helyett:
=SZUMHA([A.xlsx]Munka1!$A:$A;A2;[A.xlsx]Munka1!$B:$B)- szorzatösszeg használata
=SZORZATÖSSZEG(([A.xlsx]Munka1!$A:$A=A2)*1;[A.xlsx]Munka1!$B:$B)- CSE képletben a SZUM és HA használata
{=SZUM(HA([A.xlsx]Munka1!$A:$A=A2;[A.xlsx]Munka1!$B:$B))}üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz Vladek83 #16479 üzenetére
Hello,
Formázásokat átviszi, ha a kódban az értékek másolása elé mégberakod, hogy:
'formátumok másolása is
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceThemeAzonban ezzel nem biztos hogy tényleg mindent másol amire neked sükséged van, ezért inkább egy sima másolat készítését javasolnám. Ebben már a fájlneve kérdés is benne van.
Sub Masolat2()
Dim FileExt As String 'aktuális fájl kiterjesztése
Dim FileName As String 'aktuális fájl neve
Dim inputFileName As String 'felhasználó által megadott név
Dim FileExtension
Const BackupLocation As String = "C:\Temp" 'ebbe a mappába mentjük
Const masolando As String = "Sheet1" 'ezen nevű munkalapot mentjük
If MsgBox("Szeretnél másolatot készíteni?", vbYesNo, "Másolat") = vbYes Then
'kiterjesztés meghatározása
FileExtension = Split(ThisWorkbook.Name, ".")
FileExt = "." & FileExtension(UBound(FileExtension))
'az aktuális fájlnévet javasoljuk alapértelmezettnek
FileName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - Len(FileExt))
'és még kiegészítjük a mai dátummal
FileName = FileName & "_" & Format(Date, "YYYYMMDD")
'bekérjük a nevet
inputFileName = InputBox("Kérlek add meg a fájlnevét:", "Mentés másként", FileName)
'mentünk ha van név
If inputFileName <> "" Then
'megnézzük hogy létezik-e a célkönyvtár, ha nem akkor létrehozzuk
If Dir(BackupLocation, vbDirectory) = "" Then
MkDir BackupLocation
End If
'mentünk ha még nincs ilyen névvel fájl
If Dir(BackupLocation & "\" & inputFileName & FileExt) = "" Then
'mentünk
ActiveWorkbook.SaveCopyAs BackupLocation & "\" & inputFileName & FileExt
Call MsgBox("Fájl elmentve " & inputFileName & " névvel.", vbOKOnly, "Mentés")
Else
Call MsgBox(inputFileName & " már létezik!", vbExclamation, "Hiba")
End If
End If
End If
End Subüdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Excelbarat
tag
Egy kis fejtörő
Létezik olyan megoldás excelben, hogy ha egy diagramon rámutatok egy oszlopra (sok oszlop van és értelmetlen kiírni az értékeket, ráadásul sávként nem igazán funkcionálna jól így az a megoldás elvetve) akkor kiírja az értékét? természetesen ha másik oszlopra mutatok akkor a másikét Valamiféle makró ezt meg tudná oldani?
Bármilyen megoldásra vevő vagyok Vagy esetleg egy link ahol találok ilyesmit.[ Szerkesztve ]
-
rtom
senior tag
A szorzatösszeg működik, köszönöm
Másik kérdésem: egy mások által már megnyitott, a fileszerveren lévő táblából akarok pivot-ot frissíteni, de a makro hibát dob, gondolom amiatt, hogy másik felhasználónál van nyitva. Próbálkoztam így:
Open "\file_elérési_út_és_filenév" For Random Access Read As #1
ActiveSheet.PivotTables("Pivot1").PivotCache.Refresh
Close #1de sajnos sikertelenül
-
rtom
senior tag
Még1 kérdés: megoldható makro nélkül, hogy ha van 3 kimutatásom, az elsőn beállított szűrési feltételek automatikusan megjelenjenek a másik kettőn is? Hivatkozást nem vette.
-
Delila_1
Topikgazda
válasz Excelbarat #16483 üzenetére
Rámutatással nem tudom, de kiválasztással megy.
Sub ertek_kiiras()
Selection.ApplyDataLabels ShowValue:=True
End SubA makróhoz rendelj billentyűkombinációt (Makrók, vagy F8), kiválasztod az ertek_kiiras-t, Egyebek, betű megadása.
Kiválasztod az adatpontot, megadod a bill. kombinációt. Erre azért van szükség, mert ha egy gombhoz rendelnéd a makrót, a rákattintással megszűnne az adatpontod kiválasztottsága.
Az érték eltüntetéséhez a másik makró, amihez egy másik bill. kombinációt kell rendelned:
Sub ertek_torles()
Selection.ApplyDataLabels ShowValue:=False
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.
-
Excelbarat
tag
Ha esetleg 2010-es excelt használsz akkor nagyon könnyen
Beszúrsz az egyikhez egy szeletelőt majd utána beállítod a kapcsolatot a kettő között.
Így tudod megtenni ezeket:
A kimutatás beállítás fülén szerepel a Szeletelő beszúrása ott bepipálod hogy melyik(ek) legyenek. (akár az összeset) Szépen elrendez.
Utána amelyiket akarod hogy a többihez is tartozzon jobb gomb rá - Kimutatáskapcsolatok és kiválaszt melyik.
ebben a hozzászólásban egy videó is van linkelve.
Esetlegesen problémát okozhat (nem kis fejtörés után jöttem rá) hogy ha régebbi fájlt (ergo nem 2010-es és az ablakban az szerepel, hogy kompatibilis üzemmód) akkor először el kell mentened 2010es fájltípusban CSAK ekkor lesz aktív a szeletelő beszúrása. (mivel ez csak 2010es verziótól érhető el)Delila_1 köszönöm a válaszod a diagrammos megoldásra. Még ez is jobb minthogy az összes érték egymásba lógjon
[ Szerkesztve ]
-
rtom
senior tag
válasz Excelbarat #16488 üzenetére
Jó lenne, de úgy látom, hogy különböző adatbázisokból táplálkozó kimutatásoknál nem működik, legalábbis nálam a kapcsolatoknál csak a meglévőt dobja fel.
-
poffsoft
addikt
válasz Vladek83 #16491 üzenetére
Próbáld ezt a módosítást.
"Sheet1" a munkalap neve, amit menteni akarsz.....
'mentünk ha még nincs ilyen névvel fájl
If Dir(BackupLocation & "\" & inputFileName & FileExt) = "" Then
'mentünk
Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs BackupLocation & "\" & inputFileName & FileExt
Call MsgBox("Fájl elmentve " & inputFileName & " névvel.", vbOKOnly, "Mentés")
Else
...[ Szerkesztve ]
[ Szerkesztve ]
-
Excelbarat
tag
Hi
Egy kis makró segítség kellene!
Ha van 2 darab jelölöm (az egyik heti bontást eredményez a másik havit) amihez egy-egy makró hozzárendelve. Hogy tudom azt elérni hogyha az egyik aktív (tehát rámegyek az elsőre és bejelöli azt) akkor ha megint rámennek ne hívja meg a makrót mivel épp már lefutott. (Ilyenkor ugye hibát ír ki mert már lefutott)
pl. a havi bontásom így néz ki
Private Sub monthbutton_Click()
Call havibontás
End Sub -
Excelbarat
tag
válasz Excelbarat #16493 üzenetére
Bocs pont lejárt a szerkesztési idő de örömmel nyugtázom hogy a probléma megoldódott azzal hogy az űrlapvezérlőt lecseréltem ActiveX vezérlőre
-
peterszky
őstag
Sziasztok!
Lenne egy Excel + VB kérdésem. Adott egy táblázat: [link]
Amit szeretnék:
- az F oszlop értékein végigmenni
- ha e/E-s értéket találunk, akkor a zárójel közötti T-s érték (id oszlopra utal) érdekes
- ez alapján a T-s érték alapján sort megkeresni és abból a hossz / pozíciót elmenteni (pl: "H: [érték], P: [érték]" formában, ez mehetne akár egy másik worksheetre vagy egy szöveges fájlba is, mindegyTehát egy példa:
- elindul a keresés
- F5-nél találat -> e(T3)
- sor keresése az id oszlop szerint T3-ra
- mentés "P: 14, H: 35"
- tovébbNem tudom, hogy ez így ebben a formában megvalósítható-e?
[ Szerkesztve ]
What else you gonna do on a Saturday?
-
Delila_1
Topikgazda
válasz peterszky #16495 üzenetére
Ez a makró a Munka2 lap A oszlopába írja az adatokat.
Sub mm()
Dim sor%, usor%, WS As Worksheet
Set WS = Sheets("Munka2")
sor% = 3
usor% = WS.Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("Munka1").Select
Do While Cells(sor%, "A") <> ""
If UCase(Left(Cells(sor%, "E"), 3)) = "E (" Then
WS.Cells(usor%, "A") = "P: " & Cells(sor%, "C") & ", H: " & Cells(sor%, "D")
usor% = usor% + 1
End If
sor% = sor% + 1
Loop
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.
-
m.zmrzlina
senior tag
Egy fix szélességű de változó hosszúságú tömböt szeretnék létrehozni és azt feltölteni adattal. (kb tíz sor és néhányszor tíz oszlop).
Sub test()
Dim intVmax As Integer
Dim intS As Integer
Dim intO As Integer
Dim tomb1() As Variant
intVmax = 1
ReDim Preserve tomb1(1 To intVmax, 1 To 50)
For intS = 1 To 5
For intO = 1 To 50
tomb1(intS, intO) = intS * intO
Next
intVmax = intVmax + 1
ReDim Preserve tomb1(1 To intVmax, 1 To 50)
Next
End SubA problémám a tömb ReDim parancsánál van. Itt <Subscript out of range> hiba adódik. Nyilván keverem a sort és az oszlopot de nem tudom hogy hol.
Minden segítséget előre is köszi. -
m.zmrzlina
senior tag
válasz m.zmrzlina #16499 üzenetére
Még annyi hozzá, hogy jelenleg fordítva működik a makró. Van pártíz sor és 10 oszlop a tömbben. Az oszlopok számát tudom növelni szükség szerint, majd amikor feltöltöttem akkor
ranCelterulet.Value = Application.Transpose(varSpss_adatsor())
paranccsal iratom ki a szükséges formátumban.
Ez itt azt jelenti, hogy ne is próbálkozzak sorok hozzáadásával mert csak az oszlopok bővíthetőek?
Minél többet olvasok utána annál kevésbé értem.
Új hozzászólás Aktív témák
- Megjelent az iOS 17.4, minden idők egyik legfontosabb iPhone-frissítése
- gban: Ingyen kellene, de tegnapra
- Autós topik
- Óra topik
- Kihívás a középkategóriában: teszten a Radeon RX 7600 XT
- DIGI Mobil
- CASIO órák kedvelők topicja!
- Luck Dragon: Asszociációs játék. :)
- Vicces képek
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- További aktív témák...
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Canva Pro előfizetés - 1 éves
- World of Warcraft Shadowlands Collectors edition EU EN