- Android alkalmazások - szoftver kibeszélő topik
- CMF Buds Pro 2 - feltekerheted a hangerőt
- iPhone topik
- Samsung Galaxy Watch7 - kötelező kör
- Megjelent a Poco F7, eurós ára is van már
- Telekom mobilszolgáltatások
- One mobilszolgáltatások
- Vivo X200 Pro - a kétszázát!
- Mobil flották
- Okosóra és okoskiegészítő topik
-
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
-
#32523
Delila_1
veterán
customer114
#32522
Delila_1
veterán
válasz
customer114
#32522
üzenetére
-
#32521
Delila_1
veterán
customer114
#32518
Delila_1
veterán
válasz
customer114
#32518
üzenetére
=VAGY($B1="X";$B1="Y";$B1="Z") -
-
Delila_1
veterán
válasz
userguru
#32480
üzenetére
Lappy jól írta, nagyon hasonlít a feladat a Word körlevél funkciójához, csak ott nem lehet *.xlsb-be menteni az elkészült dokumentumokat.
Elkészíted a Sablon.xlsb fájlt. A makrót a tab.xls moduljába viszed be. A két fájl azonos mappában legyen.
A makróban a csillagos sorok közötti részt értelemszerűen a saját fájljaid szerint írd meg.
Címsort feltételezve a tab füzetben, a sab változó (aktuális sor) értékét 2-ről indítom.Sub Sablonok()
Dim sab As Long, utvonal As String
Dim WSInnen As Worksheet, WSIde As Worksheet
utvonal = ActiveWorkbook.Path & "\"
Set WSInnen = Workbooks("tab.xls").Sheets("Munka1")
sab = 2
Do While WSInnen.Cells(sab, 1) <> ""
'A Sablon.xlsb megnyitása
Workbooks.Open Filename:=utvonal & "Sablon.xlsb"
Set WSIde = Workbooks("Sablon.xlsb").Sheets("Munka1")
WSIde.Activate
'***********************************************************************
WSIde.Cells(2, 2) = WSInnen.Cells(sab, 1) 'B2-be a tab aktuális sor A-ja
WSIde.Cells(5, 4) = WSInnen.Cells(sab, 2) 'D5-be a tab aktuális sor B-je
WSIde.Cells(8, 2) = WSInnen.Cells(sab, 3) 'B8-ba a tab aktuális sor C-je
'...
'...
'***********************************************************************
WSIde.SaveAs Filename:=utvonal & "sab_" & sab - 1 & ".xlsb"
ActiveWindow.Close
sab = sab + 1
Loop
End Sub -
Delila_1
veterán
válasz
leroyclub
#32477
üzenetére
Ctrl+g-re bejön az Ugrás ablak. Ott kiválasztod az Irányított gombot, majd az Objektumokat.
A Delete gomb egyszerre törli az összeset.Azért csak 10 kivágás után tünik el 1-1 objektum, mert egymás hegyén-hátán vannak. A felsőd kitörlöd, marad alatta 9 másik. Ha megnézed, más a neve az alsónak, mint amit kitöröltél.
-
Delila_1
veterán
Függvénnyel nem, de egy rövid makróval igen.
Másold modulba a makrót. Állj a cellára, is indíthatod.
Ha sok ilyen színesítendő cellád van, akkor tehetsz a gyorselérési eszköztárra a makróhoz egy ikont.Sub Piros()
Dim elso As Integer, hossz As Integer
elso = InStr(ActiveCell, "(") + 1
hossz = Len(ActiveCell) - elso
ActiveCell.Characters(Start:=elso, Length:=hossz).Font.Color = RGB(255, 0, 0)
End SubNagyon sok színezendőhöz érdemes egy ciklust írni.
-
Delila_1
veterán
válasz
TofJoco
#32425
üzenetére
Ha jól gondolom, az A oszlopba olvastatod be az adatot.
Add meg a formátumot a B oszlophoz.A lapodhoz rendeld a makrót (Téma összefoglaló útmutatása szerint).
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then 'itt módosíthatod a bevitel oszlopszámát
Application.EnableEvents = False
Range(Target.Address).Offset(, 1) = Time
Application.EnableEvents = True
End If
End Sub -
#32424
Delila_1
veterán
thomas50.000
#32423
Delila_1
veterán
válasz
thomas50.000
#32423
üzenetére
Tedd azt az ikont a gyorselérési eszköztárra. Ikonon jobb klikkre gyorsmenüt kapsz, ahol egy kattintással átmásolhatod.
-
#32422
Delila_1
veterán
thomas50.000
#32421
Delila_1
veterán
válasz
thomas50.000
#32421
üzenetére
Készítesz egy sablon füzeted a saját formátumaiddal. Innen másolod a formátumot arra a lapra (tartományra), ahova letöltötted a webes adatokat.
-
#32420
Delila_1
veterán
thomas50.000
#32419
Delila_1
veterán
válasz
thomas50.000
#32419
üzenetére
Selection.PasteSpecial Paste:=xlValues
-
#32418
Delila_1
veterán
thomas50.000
#32417
Delila_1
veterán
válasz
thomas50.000
#32417
üzenetére
Az alkalmazása úgy történik, hogy kijelölöd a formázott területet, Ctrl+c-vel másolod, kijelölöd azt a területet, ahova a formátumot szeretnéd beilleszteni, és indítod a makrót.
Az utolsó lépés helyett jó a bill. kombináció, ha adtál a makrónak olyant.
-
#32416
Delila_1
veterán
thomas50.000
#32415
Delila_1
veterán
válasz
thomas50.000
#32415
üzenetére
Kijelölöd a céltartománynak nevezett területet, felveszed az ecsetet, és végighúzod azon a tartományon, amit az előbbivel egyező formátumban szeretnél látni.
Vagy
Sub Formatum()
Selection.PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False
End Sub -
#32402
Delila_1
veterán
excelproblem
#32401
Delila_1
veterán
válasz
excelproblem
#32401
üzenetére
A start és csúcs értékek közötti változáshoz képest nyilván nagyon kicsi a törés szakasz értékeinek a változása, ezért nem látszik a diagramon.
Ábrázold külön diagramon a csökkenés alsó harmadát vagy negyedét, akkor kinagyítva láthatod az értékeket.
-
#32391
Delila_1
veterán
excelproblem
#32390
Delila_1
veterán
válasz
excelproblem
#32390
üzenetére
-
#32389
Delila_1
veterán
excelproblem
#32388
Delila_1
veterán
válasz
excelproblem
#32388
üzenetére
Az A oszlop helyett a B-re hivatkozol.
-
Delila_1
veterán
válasz
bumlet
#32371
üzenetére
Ez így rengeteg.
Kiválaszthatnád a nevet és a hónapot 1-1 érvényesítésből.
A hónapnak megfelelő userform indulna a 12 közül. Ezen egy label címe a kiválasztott dolgozó neve lenne. Most nem látszik, hogy kinek a hónapját indítottad.Az adatfelvitelnél a sort a dolgozó neve adhatná, amit egy MATCH függvénnyel kikereshetsz, az oszlopot pedig a dátum. Az utóbbi az aktuális év, a form neve (december) számmá alakítva (pl. egy fkeressel), a nap pedig a kiválasztott combobox nevéből adódik.
-
Delila_1
veterán
válasz
b3n1t0
#32365
üzenetére
A makrót modulba kell tenned.
Sorra veszi az A oszlop dátumait. Ha van azoknak megfelelő lap a füzetben, akkor annak az első üres sorába másol. Ha nincs létrehozza a lapot.
Mivel lapnévben nem szerepelhet a törtjel, helyette alsó kötőjelet ír. Az A oszlopban maradhat a törtjeles dátum, nem kell módosítanod.
Sub Kulon_Lapra()
Dim sor As Long, lapnev As String, a, hova As Long
sor = 1
Do While Cells(sor, 1) <> ""
lapnev = Cells(sor, "A")
lapnev = Left(lapnev, 2) & "_" & Mid(lapnev, 4, 2) & "_" & Right(lapnev, 2)
On Error Resume Next
Set a = Sheets(lapnev)
If Err.Number <> 0 Then
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = lapnev
Sheets(1).Activate
End If
On Error GoTo 0
hova = Application.WorksheetFunction.CountA(Sheets(lapnev).Columns(1)) + 1
Rows(sor).Copy Sheets(lapnev).Cells(hova, 1)
sor = sor + 1
Loop
End Sub -
Delila_1
veterán
válasz
Sprite75
#32337
üzenetére
Minek külön feltételes formázás? Ha már ír valamit a makró, egyúttal a színt is módosíthatja.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C4:AY108]) Is Nothing Then
Cells(Target.Row, 52).Value = Time
Cells(Target.Row, 52).Interior.Color = vbRed
End If
End Sub -
Delila_1
veterán
válasz
butch3r
#32330
üzenetére
Konvertálhatod a diagramjaidat pl. gif-be, majd beilleszted azokat a bemutatódba a kedved szerinti helyre. A gif-ek szélessége és magassága megegyezik a diagramok méreteivel.
Sub Diagram_Konvertalas()
Dim szamlalo As Integer, x As Integer, diagram As Object
For x = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(x).Activate
Set diagram = Selection.Chart
diagram.Export Filename:=ThisWorkbook.Path & "\" & _
"Diagram " & szamlalo + 1 & ".gif", FilterName:="gif"
szamlalo = szamlalo + 1
Next
End Sub -
#32315
Delila_1
veterán
lizakattila
#32314
Delila_1
veterán
válasz
lizakattila
#32314
üzenetére
Nagyszerű!
-
#32313
Delila_1
veterán
lizakattila
#32310
Delila_1
veterán
válasz
lizakattila
#32310
üzenetére
A beolvasás is lehet egyszerűbb, a reg1 ComboBox Change eseményéhez rendelve.
Private Sub reg1_Change()
Dim sor, oszlop As Integer
With Sheets("Sheet2")
sor = Application.Match(reg1, .Columns(1), 0)
For oszlop = 2 To 11
Controls("reg" & oszlop) = .Cells(sor, oszlop)
Next
End With
End SubA gomb esetében marad az az 1 sor, amit írtam (+ elé a sor kikeresése a MATCH függvénnyel). Esetleg még a végére a form bezárása:
Unload Me -
#32311
Delila_1
veterán
lizakattila
#32310
Delila_1
veterán
válasz
lizakattila
#32310
üzenetére
Akkor a feltöltés Ok, csak a levonás kell.
Sheets("Sheet2").Cells(sor, 5) = Sheets("Sheet2").Cells(sor, 5) - reg5* 1Már ha a reg5 valóban az E oszlop megfelelője.
Azért a feltöltésnél alkalmazhatnád, amit a sor kikereséséről írtam előbb. Ugyanannak a sornak az n-edik tagját viszed a textboxokba, ezért elég lenne 1 keresés.
-
#32308
Delila_1
veterán
lizakattila
#32306
Delila_1
veterán
válasz
lizakattila
#32306
üzenetére
Figyelmesebben elolvastam a kérdést.
Ha jól értem, azt a sort keresed, amelyikben az On-Hand kivételével minden adat megegyezik a most bevittekkel, és a jelenlegi On-Hand értéket akarod levonni a megtalált sor E oszlopának az értékéből. Így gondolod?
-
#32307
Delila_1
veterán
lizakattila
#32306
Delila_1
veterán
válasz
lizakattila
#32306
üzenetére
Az Item-nek már eleve a textbox helyett comboboxot érdemes tenni, ahol a RowSource tulajdonságba beírod a tartományt, ahonnan az értékeket veszi, pl. Sheet2!A1:A200.
Elég egyszer kikeresni a sort, aminek az értékeihez hozzá akarod adni a UserFormon megadott adatokat.
Private Sub cmdClose_Click()
Dim sor
'Ellenőrzés
If reg1 = "" Or reg2 = "" Or reg3 = "" Or reg4 = "" Then
MsgBox "Hiányos kitöltés", vbExclamation
Exit Sub
End If
With Sheets("Sheet2")
sor = Application.Match(reg1, .Range("A:A"), 0)
.Cells(sor, 2) = .Cells(sor, 2) + reg2 * 1
.Cells(sor, 3) = .Cells(sor, 3) + reg3 * 1
.Cells(sor, 4) = .Cells(sor, 4) + reg4 * 1
End With
End SubA szorzás azért kell, hogy a textboxban szereplő szöveget (szöveg, azért text) számmá alakítsuk.
-
#32298
Delila_1
veterán
Bjørgersson
#32297
Delila_1
veterán
válasz
Bjørgersson
#32297
üzenetére
Tedd ki elérhető helyre, ha nincsenek benne nagyon titkos adatok.
-
#32296
Delila_1
veterán
Bjørgersson
#32295
Delila_1
veterán
válasz
Bjørgersson
#32295
üzenetére
Húzd a széléig, engedd fel az egér gombját. Ezt ismételd, míg jó nem lesz az elrendezés.
-
#32294
Delila_1
veterán
Bjørgersson
#32293
Delila_1
veterán
válasz
Bjørgersson
#32293
üzenetére
Jelöld ki a területet úgy, hogy az Y tengely feliratai ne legyenek benne.
Fogd meg a bal oldali középső kis négyzetet, és húzd balra. -
Delila_1
veterán
Írd be az első lap AA oszlopába a létrehozandó lapok elnevezését. Ha ez az oszlop foglalt, akkor egy másikba, a makróban meg írd át a
lapnev = Cells(sor, "AA")sorban az AA-t a kiválaszott oszlopod betűjelére.
Sub Nyolcvan_Lap() 'a Föld körül
Dim sor As Integer, lapnev As String
For sor = 1 To 80
lapnev = Cells(sor, "AA")
Sheets(1).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = lapnev
Next
End SubA makrót modulba kell másolni, lásd a Téma összefoglalót.
-
#32222
Delila_1
veterán
Bjørgersson
#32221
Delila_1
veterán
válasz
Bjørgersson
#32221
üzenetére
Nincs mit.
-
#32220
Delila_1
veterán
Bjørgersson
#32217
Delila_1
veterán
válasz
Bjørgersson
#32217
üzenetére
A szürke négyzetek alakzatok, a 2 szöveg pedig szövegdoboz.
-
Delila_1
veterán
válasz
bteebi
#32191
üzenetére
Kihagytam a másik füzet megnyitását, csak a saját minta füzetemben kerestettem. Majd beírod.
Sub Ugras()
Dim srch As String, ws As Worksheet, lel
srch = "KeresettSzoveg"
For Each ws In Worksheets
On Error Resume Next
lel = ws.Cells.Find(What:=srch, LookIn:=xlValues, LookAt:=xlPart).Address
If lel Then
Application.Goto reference:=Sheets(ws.Name).Range(lel)
Exit Sub
End If
Next ws
End Sub -
Delila_1
veterán
válasz
Mittu88
#32184
üzenetére
Mivel Feri csak estére ígérte a választ, megpróbálom helyettesíteni.
A Téma összefoglalóban elolvashatod a personal füzet létrehozásának a módját. Ebbe másold be a már működő makró(i)dat.
Itt meglátod, hogyan tehetsz ki ikont a makró(k) indításához a gyorselérési eszköztárra.
-
-
Delila_1
veterán
válasz
bteebi
#32169
üzenetére
Másik módszer, ha a C5-be akarsz érvényesítést bevinni a fájlnevekhez.
Az M oszlopba írtam be pár adatot, az M1-ben címmel. A tartományt táblázattá alakítottam, M2-től lefelé elneveztem a tartományt. A C5 forrásához ezt a nevet vittem be.
Sub ListaFeltoltes_1()
Dim FN As String, sor As Long
Range("M2:M" & Range("M" & Rows.Count).End(xlDown).Row).ClearContents
FN = Dir("D:\Proba\lista_" & datum & "*.pdf")
sor = 2
Do While FN <> ""
Range("M" & sor) = FN
sor = sor + 1
FN = Dir()
Loop
End SubFuttatás után a kiválasztott fájlok nevei lesznek a C5 érvényesítésében.
Azt is megteheted, hogy a fájlnevek betöltése után emelkedő sorrendbe rendezed az M oszlopot, majd a C5-ben az M oszlop alsó értékét jeleníted meg az érvényesítés helyett.
=INDEX(M:M;HOL.VAN("zzzz";M:M;1);1) -
Delila_1
veterán
válasz
bteebi
#32169
üzenetére
Létrehozol egy userformot, ami egy listboxot tartalmaz, meg egy gombot.
Modulba:
Sub ListaFeltoltes()
Dim FN As String
FN = Dir("D:\Proba\lista_" & datum & "*.pdf")
Do While FN <> ""
UserForm1.ListBox1.AddItem FN
FN = Dir()
Loop
UserForm1.Show
End SubEz a makró feltölti a feltételeknek megfelelő fájlok nevével a listboxot, és indítja a formot.
A gomb click eseményébe írhatod be, hogy mi legyen a listboxban kiválasztott 1 vagy több fájllal. Ha többet is ki akarsz választani, akkor a listbox MultiSelect tulajdonságát fmMultiSelectMulti-ra kell állítanod, az alapértelmezett fmMultiSelectSingle helyett.
-
Delila_1
veterán
válasz
Pikkolo^^
#32149
üzenetére
Nem látszanak a sor- és oszlopazonosítók a képen.
Modulba tedd a makrót.
Sub Kigyujtes()
Dim sor As Long, oszlop, ide As Long
sor = 3
Do While Cells(sor, "B") <> ""
oszlop = Application.Match(Cells(sor, "C"), Rows(2), 0)
If VarType(oszlop) = vbError Then
MsgBox "Nincs " & Format(Cells(sor, "C"), "yyyy.mm.dd") & " dátum a 2. sorban"
Else
ide = Cells(Rows.Count, oszlop).End(xlUp).Row + 1
Cells(ide, oszlop) = Cells(sor, "B")
End If
sor = sor + 1
Loop
End SubNézd meg a képen, hogy a keresendő dátumokat tartalmazó sor feljebb van, mint a C oszlop első dátuma, ez fontos.
-
Delila_1
veterán
válasz
Mittu88
#32137
üzenetére
Az az 1 sor, amit írtam, bármelyik lapról indítva a makrót, bármelyik másik lapra beteszi az oldaltörést.
Ha az aktív lapon akarsz oldaltörést létrehozni, az
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A22")sorral is megteheted.
Akár ciklust is szervezhetsz köré, ami x soronként szúr be oldaltörést.
Sub Oldaltores()
Dim x As Long
For x = 53 To 300 Step 53
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A" & x)
Next
End Sub -
#32124
Delila_1
veterán
Juditta_56
#32123
Delila_1
veterán
válasz
Juditta_56
#32123
üzenetére
Örülök. hogy sikerült beüzemelned.
-
Delila_1
veterán
-
-
#32091
Delila_1
veterán
Juditta_56
#32090
Delila_1
veterán
válasz
Juditta_56
#32090
üzenetére
Képlettel eléggé nehézkes, de egy rövid makró villámgyorsan beírja a neveket. A makrót modulba kell tenni, lásd a téma összefoglalót.
Sub Lapnevek()
Dim oszlop As Integer, uoszlop As Integer
uoszlop = Sheets(1).Cells(200, Columns.Count).End(xlToLeft).Column
For oszlop = uoszlop To 3 Step -1
If Cells(200, oszlop) <> "" Then Cells(201, oszlop) = Sheets(Cells(200, oszlop)).Name
Next
End Sub -
Delila_1
veterán
válasz
merkucyo
#32088
üzenetére
Az elsőben, ahova már beírtad a képleteket, másold be a makrót egy modulba.
A többi 9 fájlt másold át egy új mappába, legyen ez a "C:\aaa\"A WS.Range("B10:H100").Copy FN.Sheets("Munka1").Range("B10") sorban írd át a másolandó képletek helyét, ami itt a B10:H100 tartomány.
A sor első fele WS.Range("B10:H100").Copy adja a másolandó tartományt, a második rész, FN.Sheets("Munka1").Range("B10") pedig azt, hogy a megnyitott füzetben hova másoljon. Itt csak a terület bal felső cellájának a helyét kell megadni.A makró egyenként megnyitja a 9 fájlt, elvégzi a másolást, menti és bezárja a megnyitott füzetet.
Ha rendesen összejött, visszamásolhatod a 9 fájlt az eredeti helyükre.Sub Masolas()
Dim FN, WS As Worksheet
Const utvonal = "C:\aaa\"
Set WS = ActiveWorkbook.Sheets("Munka1")
Application.ScreenUpdating = False 'Képernyőfrissítés letiltása
ChDir utvonal 'Direktor váltás
FN = Dir(utvonal & "*.xlsx")
Do
If FN <> "." And FN <> ".." Then
Workbooks.Open Filename:=utvonal & FN 'megnyitja a fájlt
WS.Range("B10:H100").Copy FN.Sheets("Munka1").Range("B10") 'másolás az elsőből a megnyitottba
Workbooks(FN).Save 'megnyitott mentése
Workbooks(FN).Close 'megnyitott bezárása
End If
FN = Dir()
Loop Until FN = ""
Application.ScreenUpdating = True 'Képernyőfrissítés engedélyezése
End Sub -
Delila_1
veterán
válasz
alfa20
#32061
üzenetére
1 alkalommal elrejted az összes lapot úgy, hogy a lapfülön jobb klikk se mutassa azokat.
Sub Rejtes()
Dim lap As Integer
For lap = 2 To Sheets.Count
Sheets(lap).Visible = xlSheetVeryHidden
Next
End SubItt az első lap az, amit belépéskor mindenki láthat.
Belépéskor felfeded a felhasználó lapját (Sheets("Józs1").Visible = xlSheetVisible, a füzet bezárásakor ismét elrejted.
-
Delila_1
veterán
válasz
Mexildos
#32053
üzenetére
A TRIM függvény leveszi a szöveg elején és végén lévő szóközöket.
=TRIM(A1) (ha az A1-ben van a szöveg)
Ezt lemásolod végig a szövegeket tartalmazó cellák mellé, majd másolod a tartományt, és az eredeti oszlopra irányítottan, értékként beilleszted. A segédoszlopot törölheted.
-
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.
-
#31987
Delila_1
veterán
aprokaroka87
#31985
Delila_1
veterán
válasz
aprokaroka87
#31985
üzenetére
=INDEX(A2:B10;HOL.VAN(MIN(B2:B10);B2:B10;0);1) -
Delila_1
veterán
Készítesz egy kimutatást, ahol a sorcímkékhez a B oszlop a rendelés ID címsort-, az értékekhez a termelés ID-t adod meg. Ez van nálam a K:L tartományban.
A kimutatásból veszi az adatokat a G és H oszlop, amiknek a képlete látszik a megjegyzésekben. A SOR() függvény az aktuális sor számát adja, ezért vontam le 2-t belőle. Pl. a H3-ban a SOR()-2=1, tehát a NAGY függvény az első legnagyobb értéket adja vissza az L4:L16 tartományból.
Új hozzászólás Aktív témák
Hirdetés
- Steam, GOG, Epic Store, Humble Store, Xbox PC Game Pass, Origin Access, uPlay+, Apple Arcade felhasználók barátságos izgulós topikja
- Hálózati / IP kamera
- Vezetékes FEJhallgatók
- A Micron újszerű módszerrel javítja QLC-s SSD-jének sebességét
- Otthoni időjárás-állomás
- Dune Awakening - Máris túl az 1 millión
- Konzol Screenshot
- Mesterséges intelligencia topik
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- További aktív témák...
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Bomba ár! Fujitsu LifeBook U758 - i5-8GEN I 8GB I 256GB SSD I HDMI I 15,6" FHD I W11 I Garancia!
- BESZÁMÍTÁS! MSI B450M R5 5600 32GB DDR4 512GB SSD RTX 3060 12GB THERMALTAKE Core V21 Enermax 650W
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max
- Samsung Galaxy A12 64GB, Kártyafüggetlen, 1 Év Garanciával
- ÁRGARANCIA! Épített KomPhone Intel i9 14900KF 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged