-
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
-
-
lenkei83
tag
Sziasztok!
Van egy olyan megoldásom, hogy copy paste-nél csak az értéket másolja be az adott cellába. Ezt gondolom nem kell tovább magyarázni, így néz ki:
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal target As Range)
Dim regiertek
Dim change_data As String
If sh.CodeName = "Munka7" Or sh.CodeName = "Munka10" Or sh.CodeName = "Munka8" Then
Debug.Print sh.Name
Stop
Exit Sub
Else
regiertek = target.Value
Application.EnableEvents = False
Application.Undo
target.Cells.NumberFormat = "@"
If Application.CutCopyMode <> False Then
target.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Else
target.Value = regiertek
End If
End If
Application.EnableEvents = True
Exit Sub
End SubEbbe szeretnék beoperálni egy olyan megoldást, hogy a másolt értékből csak a numerikus karakterek legyenek beillesztve.
A nem numerikus karakterek eltávolítására is van megoldás:
Sub RemoveNotNum()
Dim rng_cl As Range
Dim Workrng_cl As Range
Dim xOut As String
Dim i As Integer
Dim xTemp As String
Dim xstr As String
'On Error Resume Next
Set Workrng_cl = Selection
For Each rng_cl In Workrng_cl
xOut = ""
For i = 1 To Len(rng_cl.Value)
xTemp = Mid(rng_cl.Value, i, 1)
If xTemp Like "[0-9]" Then
xstr = xTemp
Else
xstr = ""
End If
xOut = xOut & xstr
Next i
rng_cl.Value = xOut
Next
End SubViszont nekem a kettő kombinációjára lenne szükségem, konkrétan ha mondjuk dátumot másolok át egy másik munkafüzetből, akkor törölje ki a dátum elválasztókat és csak a számot hagyja bent a cellában.
Valakinek valami ötlet?
Köszi.
P. -
lenkei83
tag
válasz
Delila_1
#33043
üzenetére
Hu, ezt most fejben nem tudom összerakni.
Működik "OR"-ral, de nem értem. Eddig sosem volt gondom a ciklusokkal, de erre rácsodálkoztam.A ciklus egyszerre csak egy ws-t vizsgál és azt nézi, hogy az adott ws-nek mi a neve, ami ha nem egyenlő a megadottal akkor kihagyja, de nem ezt teszti.
OR-nak elvileg akkor lenne értelme, ha egyszerre több munkalap lenne kijelölve és azt vizsgálnám, hogy a kijelöltek közül ha az egyik neve <> munkax és a másik neve <> munkay akkor msgbox.Vagy valamit nem jól látok?
-
lenkei83
tag
Sziasztok!
Ha ezt lefuttatom, az If sorban lévő munkalapokat miért nem hagyja ki az msgboxnál?
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.CodeName <> "Munka7" Or ws.CodeName <> "Munka8" Or ws.CodeName <> "Munka10" Then
MsgBox ws.CodeName
End If
NextKöszi.
P. -
lenkei83
tag
-
-
-
lenkei83
tag
Sziasztok!
Megnyitott csv-ben szeretném megszámolni a sorokat, tehát a VBA open valami for input parancs nem jó.
És éppen ez a bajom. Nyitott fájlt hogyan lehet beadni a for input as parancshoz?A lenti kód működik, ha épp nincs megnyitva a fájl, ezt kellene orvosolni valahogyan.
üdv
P.Dim filenum As Integer
Dim count As Long
Dim tmp As String
xx = FreeFile
[B]Open ThisWorkbook.Path & "\" & "1665" & "_" & ido & ".imp" For Input As xx[/B]
Do While Not EOF(xx)
Line Input #xx, tmp$
count = count + 1
Loop
MsgBox count -
lenkei83
tag
válasz
Delila_1
#32994
üzenetére
Írtam, hogy munkalapra raktam be a comboboxot.
Oké oké oké. Ha fix named range van az egyértelmű. De itt pont ez a lényeg, hogy dinamikus volt. Vagyis a megadott tartományom belül ha új elem került be, akkor azt is hozta automatikusan + 1 üres sort. Nem véletlenül volt ez így. -
lenkei83
tag
Sziasztok!
Névkezelőben dinamikus tartományokat állítottam be, excelben jól működik. VBA-ban hogyan tudok rá hivatkozni? Konkrétan beraktam egy comboboxot egy munkalapra, és szeretném ha ebben jelennének meg a dinamikus tartományom elemei.
Ez a megoldás nem jó:
ComboBox1.List = Range("yy").Cells.ValueÜdv.:
P. -
lenkei83
tag
válasz
Mittu88
#32125
üzenetére
Kb annyi a lényege, hogy nincs oldaltörésed. Magyarul ha nyomtatsz egyet, akkor egyetlen egy oldalad lesz kinyomtatva vagyis az oldaltörésed ugyanaz mint az első oldalhoz kapcsolódó nyomtatási terület nagysága.
Van a linken minta kód is, teljesen jól mutatja hogy mi a gond.
Vélhetően Nálad így néz ki az oldaltörés, na ezt nem tudja értelmezni a kódod:
Ezt már tudja:
Üdv
P. -
lenkei83
tag
válasz
Juditta_56
#32120
üzenetére
Feltöltöd a tábládat?
-
lenkei83
tag
válasz
user112
#32011
üzenetére
Szia!
Olyan nincs hogy egy lap sem látszik, helyesebben elrejteni nem lehet mindet. Ilyet tudomásom szerint még a VBA sem tud.
A munkalapok láthatóságát viszont ki lehet kapcsolni, viszont az excel beállítás.
Beállítások/speciális/beállítások megjelenítése ehhez a munkafüzethet csoport / munkalapfülek megjelenítésébe pipa.
üdv
P. -
lenkei83
tag
válasz
aprokaroka87
#31985
üzenetére
Cseréld fel a 2 oszlopodat. "A" lesz a születési dátum, "B" pedig a név. Így már menni fog az fkeres is.
-
lenkei83
tag
válasz
Delila_1
#31765
üzenetére
Jaa oké. Ezt így értem. A kérdés arra irányult, hogy ha nincs password akkor a userinterface..True sem működik? A gondom az, hogy a kódban amit lentebb bemásoltam,ott van a userinterface True, és ennek ellenére sem frissül magától a fül.
Van egy ilyenem:
Private Sub Workbook_Open()
Dim ws As Worksheet
Application.EnableEvents = False
Application.ScreenUpdating = False
For Each ws In Worksheets
ws.unprotect
Next
Munka2.AutoFilterMode = False
Munka3.AutoFilterMode = False
Munka2.Range("A5:Y" & Munka2.Range("A5").End(xlDown).Row).AutoFilter
Munka3.Range("A1:D" & Munka2.Range("A1").End(xlDown).Row).AutoFilter
Range("year").Locked = False
Range("month").Locked = False
For Each ws In Worksheets
ws.protect UserInterfaceOnly:=True, AllowFormattingCells:=True, AllowFiltering:=True, DrawingObjects:=True, contents:=True ', AllowUsingPivotTables:=True
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
UserForm10.Show
End SubMajd egy ilyenem a frissítendő munkalapon, ahol egy sima pivot van:
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
ThisWorkbook.RefreshAll
Application.ScreenUpdating = True
End SubEbben az összefüggésben merü fel az a gond, hogy ha zárolva van a munkalap akkor nem frissül a pivot.
-
lenkei83
tag
Sziasztok!
Le van védve egy munkalap, amint pivot van.
ws.protect AllowFormattingCells:=True, AllowFiltering:=True, UserInterfaceOnly:=True, DrawingObjects:=TrueA pivot munkalaphoz ez van hozzárendelve:
Private Sub Worksheet_Activate()
ThisWorkbook.RefreshAll
End SubEz alapján mindig frissülnie kellene amikor rámegyek a munkalapra, viszont csak akkor frissül ha a munkalap nincs zárolva. Jelenlegi tudásom szerint a UserInterfaceOnly meg kellene hogy oldja ezt a problémát, de talán mégsem..?
Van valakinek rá ötlete?
üdv
P. -
lenkei83
tag
Sziasztok!
Workbook_open eseménybe be van ágyazva egy module-ban lévő kód ami egy egyszerű munkalap védelem. Viszont valamiért munkafüzet megnyitásnál átugrik a soron és nem fut le a kód.
Olvasgattam fórumokon, de nem találtam értelmes választ.Valakinek valami ötlet?
Üdv.:
P.Private Sub Workbook_Open()
protect
End SubSub protect()
Dim ws As Worksheet
Application.EnableEvents = False
Application.ScreenUpdating = False
Munka2.AutoFilterMode = False
Munka3.AutoFilterMode = False
Munka2.Range("A5:Y" & Munka2.Range("A5").End(xlDown).Row).AutoFilter
Munka3.Range("A1:D" & Munka2.Range("A1").End(xlDown).Row).AutoFilter
Range("year").Locked = False
Range("month").Locked = False
For Each ws In Worksheets
ws.protect AllowFormattingCells:=True, AllowFiltering:=True, UserInterfaceOnly:=True, DrawingObjects:=True, contents:=True, AllowUsingPivotTables:=True
Next
Munka1.EnablePivotTable = True
Munka1.protect contents:=True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub -
lenkei83
tag
Sziasztok!
Lehet valahogyan tesztelni a Workbook_Open eseményt? Valamiért ha megnyitom a táblát, rögtön elszáll az Excel. Nem a kód akad ki, hanem lefagy az Excel és hibakeresést indít.
Tudom melyik esemény a "hibás" és az az érdekes, hogy ha kiveszem a Workbook_Open-ből és normál módon futtatom vagy akár Workbook_SheetChange-el, működik rendesen.
Egyébként maga a kód ami futna, ribbon button enable/disable funkcióhoz kapcsolódik, szóval nem egy bonyolult valami.Sub EnableDisableRibbonButtons()
If Munka8.Range("B2") = "" Or Munka8.Range("J2") = "" Then
Call RefreshRibbon(Tag:="buttongroupx")
Else
Call RefreshRibbon(Tag:="*")
End If
End SubSzóval van valami debug mód Workbook_Open-hez?
Köszi & üdv.:
P. -
lenkei83
tag
Sziasztok!
Az miért lehet, hogy látszólag kikapcsolom a képernyőfrissítést és mégsem veszi fel a false értéket?
Így néz ki a kód:
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim cell As Range
Dim cell2 As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
Set ws = Munka8Ha a set ws-nél berakok egy breakpointot és megnézem az ?Application.ScreenUpdating értékét, akkor True-t dob ki.
Érti ezt valaki? Mert én nem.
Az esetleg lehet, hogy ha F8-al megyek végig a kódon, akkor nem lövi le?
Üdv
P. -
lenkei83
tag
Sziasztok!
workbooks.open-nel probálnék filet nyitni és importálni, a gond viszont az, hogy az importálandó .xls file valami régi formátumú. Excelben simán meg tudom nyitni (olvasásra), viszont ha VBA-ban próbálom ugyanezt, akkor hibára fut: "A megnyitni kívánt fájltípust az Adatvédelmi központ fájlblokkolási beállításai blokkolják."
Az okát tudom, excelben kell kivenni a pipát a blokkolt file típusoknál. A kérdés az, hogy a VBA le tudja e kezelni valahogy úgy, hogy ehhez ne kelljen hozzányúlnom?Találkozott már valaki ilyenne?
köszi
P. -
lenkei83
tag
Sziasztok!
Van egy ilyen formulám: =CÍM(HOL.VAN($E$10;INDIREKT("'"&C14&"'!"&"A:A");0);1;4;1;$C14) aminek a végeredménye egy másik munkalap adott cellája, konkrétan ez: 'MED-220'!A50
Na én erre a cellára szeretnék hivatkozni egy eltolás képletben a hivatkozás mezőben, viszont ha az előzőleg említett képletet berakom, nem fogadja el.
Van valakinek ötlete?Felraktam a táblát mintának
[link]Köszi
P. -
lenkei83
tag
Sziasztok!
Van egy 49.000 soros és 12 oszlopos táblázatom, amibe szumházni kellene adatokat egy másik fülről több kritérium alapján, tehát valami szumhatöbb típusú megoldás kellene.
Ha televágom szumhatöbb képlettel, akkor hetekig fog számolni, azt nem szeretném, tehát valami Application.SumIfs megoldás kellene, viszont for each ciklussal az is elég lassú.Erre kellene valami megoldás, ha van valakinek kedve / ideje, megköszönném ha ránézne.
Köszi
P. -
lenkei83
tag
válasz
sedyke
#29391
üzenetére
Szia!
A linken találod a filet. Működik, ha nem változtatsz az alaptáblán.
Amit pirossal jelöltem a 2015-ös fülön, azok nem szerepelnek az összesítő tábládban.Delila_1 ha van időd és energiád, ránézhetsz, hátha tudsz egyszeűbb, gyorsab, stb... megoldást. Engem is érdekelne.
üdv
P. -
lenkei83
tag
válasz
Fferi50
#29285
üzenetére
Szia!
Megoldottam kivétellel és hibakezeléssel, csak nem értem. Ha hiba akkor legyen már hiba és kezelje rendesen.
Ami viszont szembejött:
Adott munkalapon beraktam egy range-be a színezett cellákat, hogy ne egyesével csinálja a feltételes formázást:Set rnSelect = Union(rnSelect, cella)
Viszont ha ugyanilyen módon törölni akarom a formázást, akkor az egyesített cellákat szétszedi. Lehet ezt valahogy kezelni?Üdv.:
P. -
lenkei83
tag
Sziasztok!
Ha olyan worksheetet vizsgálok amin nincs cella (diagram sheet), akkor ez miért száll el nincs ilyen cella hibával?
If IsError(rnSelect.SpecialCells(xlCellTypeAllFormatConditions).Address) = FalseNem az lenne a normális, hogy ha már egyszer iserrorba rakom és hibára fut, akkor lekezeli rendesen? Lehet ez valami VBA hiányosság, vagy valamit nem jól csinálok?
üdv.:
P. -
lenkei83
tag
válasz
Fferi50
#29247
üzenetére
Hello!
Közben összeraktam egy kis puskázással... Nem teljesen értem a logikát, de működik.
És amiért nem értem: nem elég ennyi simán zárolni az összes cellát?
For Each ws In ThisWorkbook.Worksheets
ws.UsedRange.Cells.Locked = True
For Each cella In ws.UsedRange.Cells
If cella.Interior.Color = RGB(204, 236, 255) Then
cella.Interior.Color = RGB(255, 255, 0)
cella.MergeArea.Locked = False
Next cella
Next wsTesztelgettem pár dolgot és úgy látom, hogy a cella.MergeArea.Locked = False lekezeli az egyesített és a nem egyesített cellát egyaránt, interior colortól függően. Jól látom, hogy nem kell bele külön kezelés normál és egyesített cellákra, valamint a FindFormat sincs így szükség?
Vagy valamit benézek?üdv
P. -
lenkei83
tag
Sziasztok!
Rá tudna nézni valaki, hogy miért akad ki a szinescella.Locked = False sornál?
Köszi
P.Sub zarolas_()
Dim ws As Worksheet
Dim cella As Range
Dim psw As Variant
Dim szinescella As Range
Application.FindFormat.Clear
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.FindFormat.Interior.Color = RGB(255, 255, 0)
Application.ReplaceFormat.Interior.Color = RGB(255, 255, 0)
psw = ""
For Each ws In ThisWorkbook.Worksheets
ws.UsedRange.Cells.Locked = True
For Each cella In ws.UsedRange.Cells
Set szinescella = cella.Find(what:="", searchformat:=True)
szinescella.Locked = False
Next cella
Next ws
ws.Protect Password:=psw, userinterfaceonly:=True
MsgBox "Munkalapok zárolva"
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub -
-
-
lenkei83
tag
válasz
Delila_1
#29171
üzenetére
Kérdezek inkább konkrétabban:
Itt ez a kód, ami munkalapon belül tök jól működik: írj be véletlenszerűen 12-es számot celláka, "A1"-ben összedja. Mondjuk Munka1-en.
Ami a bajom, hogy ha a szum képletet nem activesheet-re szeretném, hanem Munka2-re (de az összeadandó értékeim maradnak Munka1-en), akkor hogyan tudom megadni minden range elé, a parent.name-et? Vagyis, hogy a szum képlet hivatkozzon Munka1-reKülönálló celláknál még egyszerűbb a helyzet, de mi van akkor, ha úgy jön ki a range, hogy 3 cella van egymás alatt, aztán egy cella valahol máshol, aztán megint 4 egymás mellett máshol stb...
Sub FindAll()
Dim fnd As String, FirstFound As String
Dim FoundCell As Range, rng As Range
Dim myRange As Range, LastCell As Range
fnd = "12"
Set myRange = ActiveSheet.UsedRange
Set LastCell = myRange.Cells(myRange.Cells.Count)
Set FoundCell = myRange.Find(what:=fnd, after:=LastCell)
If Not FoundCell Is Nothing Then
FirstFound = FoundCell.Address
Else
GoTo NothingFound
End If
Set rng = FoundCell
Do Until FoundCell Is Nothing
Set FoundCell = myRange.FindNext(after:=FoundCell)
Set rng = Union(rng, FoundCell)
If FoundCell.Address = FirstFound Then Exit Do
Loop
' rng.Select
Range("A1").Formula = "=sum(" & rng.Address & ")"
Exit Sub
NothingFound:
MsgBox "Nem található a keresett érték: " & fnd
End Sub -
lenkei83
tag
Sziasztok!
Gondolom, ezzel nem mutatok újat. Range("A1").Formula = "=sum(selection)"
Ez excelre lefordítva pl így nézhet ki: =SZUM($E$9;$D$7)De hogyan lehet azt megcsinálni, hogy ne szum legyen, hanem egyszerű összeadás, vagyis azt szeretném, hogy így nézzen ki:
=$E$9+$D$7üdv
P. -
lenkei83
tag
válasz
szatocs1981
#29151
üzenetére
Igen, ez a megoldás, köszi.
-
-
lenkei83
tag
válasz
twingos
#29098
üzenetére
Szia!
Két kérdésem is van:
Az egyik, hogy melyik oszlopban kell figyelembe venni, az utolsó aktív sort?
A másik, hogy milyen exceled van? Ha 2007 vagy frissebb, akkor én így használnám a képletet:
=HAHIBA(HOL.VAN(V2;AB:AB;0);"") --> A V:V-t lecseréltem V2-re, feltételezve, hogy az első sor fejlécet tartalmaz:Ha 2007 előttit használsz akkor pedig hasonló mint a tiéd: =HA(HIBÁS(HOL.VAN(V1;AB:AB;0));"";HOL.VAN(V1;AB:AB;0))
A kód pedig ennyi lenne 2007-es excelt (vagy későbbit) feltételezve
Sub InsertFormula()
Range("X2:X" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = "=iferror(match(V1,AB:AB,0),"""")"
End SubAmire figyelned kell: X2:X tehát az X oszlop második sorától indul a képlet, ha az első sorba is kell, akkor X1-re javítsd.
Valamint a Cells(Rows.Count, "A") az az oszlop, ahol az utolsó aktív sort kell figyelni, itt az "A"-t módosítsd ha szükséges.
üdv
-
lenkei83
tag
Sziasztok!
A következő problémával találkoztam. Excel 2010 - HUN, diagram, kettő féle adatot tartalmaz, normál szám, és számított százalék, tehát képletezett, nem fix érték.
Ami a gondom, ha ráengedek egy worksheet.protect-et az egész munkafüzetre, a százalékok normál számokká változnak. (Unprotect-nél nem változnak vissza )
Nem tudtam még rájönni az okára, de adatsor formázáson, meg formátum csatolás a forráshoz stb... ezeken már túl vagyok. Azt is próbáltam, hogy csak az adatokat tartalmazó lapot nem védem le, de ez sem vált be.
Ha kézzel ráfrissítek a képletekre, akkor visszaáll a diában normális formátumba.Van valakinek ötlete?
üdv
P.
-
lenkei83
tag
válasz
csadi0011
#28980
üzenetére
Jó reggelt!
Akkor képletelés helyett manuális megoldást tudok még javasolni:
Az excelnek van egy olyan funkciója, hogy ismétlődések eltávolítása
- Adatok/Adateszközök/Ismétlődések eltávolítása - menü alatt taláod.Működése elég egyszerű, kijelölöd a vizsgálandó tartományt, megnyomod a menüben az Ismétlődések eltávolítása gombot, itt látod a kijelölt tartomány oszlopát (választhatsz, hogy fejléccel vagy anélkül jelölted e ki), nyomsz egy OK-ot és kész.
De ez ugyanúgy kézi megoldás, mindig meg kell csinálni amikor változik az alaptáblád. Képlethez nem igazán találtam használható megoldást. (Ez nem azt jelenti, hogy nincs)
üdv
-
lenkei83
tag
válasz
csadi0011
#28978
üzenetére
Ha biztosan nem lesz több az 56 sorból, és lehet beszúrni 2 oszlopot a táblába, akkor a pivot is jó. 2 kattintással frissíthető a tartalma, és szerkesztgetned sem kell.
Ha növekszik az elemszám, akkor bizony kicsit bele kell ásni magadat a pivot rejtelmeibe. Youtube-on rengeteg videó van róla.Ha belinkeled a táblát megnézem, és hátha közben másnak is eszébe jut valami más megoldás.
-
lenkei83
tag
válasz
sedyke
#28954
üzenetére
Szia!
Akkor a szumhatöbb helyett ezt használd:
=SZUM(ELTOLÁS($A$16;HOL.VAN($A4;$A$17:$A$25;0);1;1;$D$1))
Az előző táblád struktúráját ha nem módosítottad, akkor a C4 cellába írd be ezt a képletet és húzd le az összes összegezendő kritériumhoz.Arra figyelj, hogy az összegezendő tartományt (ha szükséges) javítsd a képletben, mert a fenti csak A17:A25 közötti sorokat vizsgálja.
Valamint amit még észrevettem, hogy az első 3 hónap a tábla végén volt, ez remélem nem direkt volt így.
A módosított minta táblát itt találod:
[összegző]üdv
-
lenkei83
tag
válasz
poffsoft
#28946
üzenetére
worksheets().name = range("f2").text -el
F oszlopban vannak a munkalapok nevei, range("f2").text-et írok be, azzal is működik.Ami csavar a dologban, hogy a munkalapok egymás alatt vannak egy oszlopban és ezeket kellene valahogy bepakolni képletbe. Mármint hogy ne mindig az F2-t vegye fel értéknek hanem az F(adott_sort)
Most így néz ki: (tudom, nem nagy dolog VBA-ban egy képletet megírni, utólag belegondolva nem is értem miért nem ment
)Set ws = Sheets(salesK_sheet.Range("F2").Value)
oszlop.Formula = "=sumifs('" & ws.name & "'!B
, '" & ws.Name & "'!A:A, B2, '" & ws.Name & "'!V:V,E2)"A ws.name-et kellene valahogy változóba rakni adott sornak megfelelően.
Van erre valami ötlet?
-
lenkei83
tag
válasz
Delila_1
#28938
üzenetére
Dehogy kell!
Ez egy sima egysoros képlet lenne, független mindentől. Immediateban futtatható, csak valamit benézek a felépítésében és nem tudom felépíteni.Ha lefutott a 3 projekt, megköszönném ha rá tudnál nézni. (Holnap is jó)
ActiveCell.Formula = "=sumifs(Range("F2") & "!" & "B:B", Range("F2") & "!" & "V:V", Range("E2"))"
, '" & ws.Name & "'!A:A, B2, '" & ws.Name & "'!V:V,E2)"Új hozzászólás Aktív témák
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok : (12.20.)
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest