-
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!
O365, névkezelő, van egy ilyenem amit ezután érvényesítésben használok.
=ELTOLÁS(Törzsadatok!$D$2;0;0;DARAB2(Törzsadatok!$D$2:$D$60);1)
Ha a kombinálom a képletet a sorba.rendez függvénnyel, akkor az érvényesítés nem működik.
Lehet erre valami megoldás?Köszi & üdv.:
P. -
lenkei83
tag
Sziasztok!
A linken lévő táblában szeretném azt megoldani, hogy a "Sum" fülön lévő "J3: U?" tartomány megfelelő cellájában összegezzen az "Analitika" fülről úgy, hogy összesíti név és vállalat alapján a "C" oszlopban lévő, hónapok számát. A táblában ez most egy segédoszloppal van megoldva, ezt szeretném kiiktatni.
Ami fontos, hogy a összegezendő tartomány a teljes C oszlop legyen ("C: C") és a szöveg, valamint üres cellákat hagyja figyelmen kívül.
[link]Köszi előre is.
Üdv.:
P. -
lenkei83
tag
Sziasztok!
A csatolt táblába összesítő fülén (M2 cella) szummázni szeretném az '1' fülön lévő kamatok összegét évekre, pl 2023. Ez az L2 cellában kész is van, de vannak kollégák akik régebbi exceleket használnak és a frissítések hiánya miatt (hagyjuk a miérteket) az új funkciókat, képleteket nem kapták meg. Na miattuk szeretném összerakni szorzatösszeggel a számolást. Amire nem tudok rájönni az az, hogy az "1"-es fül "H" oszlopában üresként ("") kezelt cellákat hogyan tudnám figyelmen kívül hagyni szorzatösszeg / szummázáskor. Próbálkoztam a vizsgálni, hogy üres, vagy hibás e a cella, de elakadtam. Nyilván ha kitörlöm az üresnem látszó cellából a képletet akkor rendben van, de nem ez a megoldás.
Valaki nézzen rá legyen kedves.
Köszi & üdv.:
P. -
lenkei83
tag
Sziasztok!
Szumhatöbbnél azonos oszlopon kellene 2 feltételre szűrnöm, de nem jövök rá, hogy hogyan.
A feltétel nagyobb vagy egyenlő mint 400.000 és kisebb vagy egyenlő mint 500.000=SZUM(SZUMHATÖBB(Munka1!$AU:$AU;Munka1!$F:$F;O$10;Munka1!$I:$I;{">="&500000\"<="&400000}))
Segítsen valaki megreszelni.
Köszi
P. -
lenkei83
tag
Sziasztok!
Érvényesítésben lehet külön drop downt és custom feltételeket megadni képlettel. Küldön külön nincs gond, a kettőt szeretném kombinálni.
A custom képlet figyeli, hogy az érvényesítéssel rendelkező cellát csak abban az esetben lehetssen kitölteni, ha egy másik cella már tartalmaz értéket Ezt nyilván több módon is meg lehet oldani. Viszont én azt szertném, ha az érvényesítéssel rendelkező cellában egy listából lehetne választani abban az esetben, ha egy másik, hivatkozott cell tartalmaz értéket.
Látott már ilyet valaki?
VBA-ban rendben van, de jelen esetben kimondottam kérték, hogy VBA alkalmazása nélkül találjuk ki a megdolsát?Köszi
P. -
lenkei83
tag
Sziasztok!
Ugyan csak részben excel, körlevél varázsló word-ben. A számformátumokkal nem boldogulok. Mezókód váltás után ha beírom a formátumot, vagy nem történik semmi, vagy nem az aminek kellene.
Így néz ki a formázás:MERGEFIELD MRP_éves_alapösszeg \# #,##0.00és ez lesz belőe: 4000000, 0.00
Office 2016-on csináltam már ilyet korábban és emlékeim szerint működött. Van valakinek ötlete a problémár?Üdv
P. -
lenkei83
tag
Sziasztok!
Küzdök egy táblával, vagyis a képleteivel. Makró nélkül kellene megoldanom, de úgy nem tudom a megfejtést.
"D" oszlopban a napok "x"-el jelölve, ezeket kellene összeszámolni úgy, hogy amikor eléri az 5-öt, akkor a számozás újra induljon 1-től. Lényegében a munkanapokat kellene megszámolni, 5-ös egységekben az "I" oszlopban.
Manuál módban raktam be példát.
[onedrive link]Nézzen rá valaki légyszi.
Köszi
P. -
lenkei83
tag
Sziasztok!
Biztosan már fáradt vagyok... de nem jövök rá, hogyan tudom ezt meghívni Sub-ból.
Kérem, hogy nézzen rá valaki.Köszi
P.Function ControlsResizeColumns(LBox As MSForms.Control, Optional ResizeListbox As Boolean)
Application.ScreenUpdating = False
Dim ws As Worksheet
If sheetExists("ListboxColumnWidth", ThisWorkbook) = False Then
Set ws = ThisWorkbook.Worksheets.Add
ws.Name = "ListboxColumnwidth"
Else
Set ws = ThisWorkbook.Worksheets("ListboxColumnwidth")
ws.Cells.Clear
End If
'---Listbox/Combobox to range-----
Dim rng As Range
Set rng = ThisWorkbook.Sheets("ListboxColumnwidth").Range("A1")
Set rng = rng.Resize(UBound(LBox.List) + 1, LBox.ColumnCount)
rng = LBox.List
rng.Characters.Font.Name = formStaffList.listboxStaff.Font.Name
rng.Characters.Font.Size = formStaffList.listboxStaff.Font.Size
rng.Columns.AutoFit
'---Get ColumnWidths------
rng.Columns.AutoFit
Dim sWidth As String
Dim vR() As Variant
Dim n As Integer
Dim cell As Range
For Each cell In rng.Resize(1)
n = n + 1
ReDim Preserve vR(1 To n)
vR(n) = cell.EntireColumn.Width + 10 'if not some extra space it cuts a bit off the tail
Next cell
sWidth = Join(vR, ";")
Debug.Print sWidth
'---assign ColumnWidths----
With LBox
.ColumnWidths = sWidth
'.RowSource = "A1:A3"
.BorderStyle = fmBorderStyleSingle
End With
'----Optionaly Resize Listbox/Combobox--------
If ResizeListbox = True Then
Dim w As Long
For i = LBound(vR) To UBound(vR)
w = w + vR(i)
Next
DoEvents
LBox.Width = w + 10
End If
'remove worksheet
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Function
Function sheetExists(sheetToFind As String, Optional InWorkbook As Workbook) As Boolean
If InWorkbook Is Nothing Then Set InWorkbook = ThisWorkbook
On Error Resume Next
sheetExists = Not InWorkbook.Sheets(sheetToFind) Is Nothing
End Function -
-
lenkei83
tag
Sziasztok!
Elakadtam tömbképlet témában, segítsetek kérlek.
"A" fül egy alapadatok tábla, minden eleme kézi bevitel. "B!A1" értéke alapján szeretnék szűrni úgy, hogy a cellában kiválaszott értékhez tartozó, "A" munkalapon lévő oszlop alapján szűrje a "A" munkalap "A" oszlopát.
Hol.van és index kombinációval megy a dolog, de most SZŰRŐ-vel szeretném megoldani, viszont nem jövök rá, hogy a "B!A1"-ben kiválasztott érték alapján az oszlop eltolást hogyan tudom berakni a SZŰRŐ képletbe.Tábla itt: [link]
Köszi
P. -
lenkei83
tag
válasz
Fire/SOUL/CD
#47638
üzenetére
Nem a Power Query-hez.
A NAV adatbázishoz. 
Valószínűleg API-val lehet olvansi... -
lenkei83
tag
válasz
Fire/SOUL/CD
#47634
üzenetére
Szia!
Ne bonyolítsd.
Semmi SQL meg egyéb nem kell hozzá első körben, mint írtam, excelbe (lehet power query is) szeretném beolvasni. Egyelőre még linket sem találtam, ahol el lehet érni.
A VBA-n belüli lekérdezést és szűrést stb...megoldom, legyen az bármilyen adatbázisban. -
lenkei83
tag
válasz
Fire/SOUL/CD
#47631
üzenetére
Saját programhoz kellene, nem készül belőle adatszolgáltatás.
-
lenkei83
tag
Sziasztok!
Van valakienk ötlete, hogy a NAV adatbázisból, hogyan tudom lekérdezni az adóalanyok listáját? 2 megoldás is érdekelne:
1: teljes adózói adatbázis letöltése excelbe
2: kiválasztott adószám alapján az adott adózó adatainak letöltése.HTML-kóddal még csak-csak megy, de VBA-ban most ötletem sincs.
Köszi
P. -
lenkei83
tag
válasz
Fferi50
#47571
üzenetére
Szia Feri!
A youtube csatornájukon kerestem volna, de az nem működik. Köszi a tippet, az instán nem néztem, de ott volt a megoldás. Excel\VBA-ban van megírva.
Gyorsan felvertem VBA-ba, működik, a lenti linkről le lehet tölteni. Próbálom értelmezni...
[https://1drv.ms/x/s!Ans3TmRiC9RGhaMx1z_INz4zg7X91Q?e=lSc26r]Üdv.:
P. -
lenkei83
tag
Sziasztok!
Mi lehet a kód mögötte? [link]Public Function rgb_colorincell(Red As Integer, Green As Integer, Blue As Integer) As Long
ActiveCell.Interior.Color = rgb(Red, Green, Blue)
End FunctionItt csak annyi a baj, hogy ha lehúzom a képletet több cellára, akkor viszont nem működik. Minden egyes cellába kézzel kell betolni a képletet.
Köszi
P. -
-
lenkei83
tag
-
lenkei83
tag
válasz
RedHarlow
#38447
üzenetére
Szia!
Kijelölsz egy cellát a kimutatásban, jobb gomb és frissítés. Magától nem frissül (de makróval meg lehet oldani), azt viszont be lehet állítani, hogy a fájl megnyitásakor frissüljön: jobb gomb/kimutatás beállításai/adatok fül/Adatfrissítés fájl megnyitásakor pipa.
üdv
P. -
lenkei83
tag
Sziasztok!
A linkelt fájl B6 cellájában a sávokhoz tartozó értékre lenne szükségem. A mostani megoldás megközelítőleg adja az eredményt. 50% fölött a felső sávot adja, 50% alatt pedig az alsó sávot, ami így nem jó. Kicsit elfogytam, ha valakinek van kedve/ideje megköszönném ha ránézne.
Köszi
P. -
lenkei83
tag
Sziasztok!
UTF-8 kódolásban jártas valaki? A kód adott, kisebb csinosítás még lesz rajta de a baj az, hogy ha be akarom importálni a kapott VCF fájlt androidrba akkor az ékezetek elszállnak. Hogyan lehet beapplikálni a kódba UTF-8 kódolást?
Köszi & üdv
P.Private Sub Create_VCF()
'Open a File in Specific Path in Output or Append mode
Dim FileNum As Integer
Dim iRow As Double
iRow = 2
FileNum = FreeFile
OutFilePath = "D:\OutputVCF.VCF"
Open OutFilePath For Output As FileNum
'Loop through Excel Sheet each row and write it to VCF File
While VBA.Trim(Sheets("Munka1").Cells(iRow, 1)) <> ""
LName = VBA.Trim(Sheets("Munka1").Cells(iRow, 1))
Email = VBA.Trim(Sheets("Munka1").Cells(iRow, 3))
PhNum = VBA.Trim(Sheets("Munka1").Cells(iRow, 2))
Print #FileNum, "BEGIN:VCARD"
Print #FileNum, "VERSION:3.0"
Print #FileNum, "N:" & LName
Print #FileNum, "TEL;TYPE=CELL;TYPE=PREF:" & PhNum
Print #FileNum, "EMAIL:" & Email
Print #FileNum, "END:VCARD"
iRow = iRow + 1
Wend
'Close The File
Close #FileNum
MsgBox "Contacts Converted to Saved To: " & OutFilePath & " "
End Sub -
lenkei83
tag
válasz
kasza blanka
#36752
üzenetére
- Félre ment -
-
lenkei83
tag
Sziasztok!
Set Ioszlop = ws.Range("I2:I" & ws.Range("A1").SpecialCells(xlCellTypeLastCell).Row)
Ioszlop = "=sumifs('" & Range("F2") & "'!$C:$C," & "'" & Range("F2") & "'!$B:$B,$D2," & "'" & Range("F2") & "'!$P:$P,$B2)"Képlet szeretnék berakni a fent látható "Ioszlop" range-be. A szumhatöbbnél a Range("F2") ugye a szummázandó munkalap neve ami soronként meg van határozva az F oszlopban, na ezzel akadtam meg. Itt úgy kellene hivatkoznom, hogy az F2 változzon az adott sornak megfelelően, vagyis a harmadik sornál már F3-ból vegye az értéket, a negyediknél F4-ből stb... huuh kicsit bonyolult így leírni, de remélem érthető.
Mi erre a megoldás?
Üdv.:
P. -
lenkei83
tag
Sziasztok!
Comboboxba szeretnék applikálni egy szűrt listát, de nem akar összejönni:
Dim nevlista As Range
szűrés...
Set nevlista = valasztott_munkalap.Range("B2:B" & valasztott_munkalap.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible)
ComboBox_mvnev.List = nevlista.ValueRun-time error '381'-el száll el, could not set the List property.
Szűrés előtti sorbarendezéssel persze könnyen meg lehet oldani mert akkor egyszerre fel tudom venni a szűrt tartományt mivel egybefüggő lesz a tartományom, de nem akarom ennyire bonyolítani. Ha lehet a ciklusokat is kihagynám jelen esetben.
Van valakinek valami ötlete erre?
Köszi.
P. -
lenkei83
tag
Sziasztok!
"A" oszlopban van egy rakás megnevezésem, mindegyik többször szerepel. "B" oszlopban hozzájuk kapcsolódó más-más számadatok. Valahogy összesítenem kellene a számokat megnevezésenként, de makróval. Képletes, pivot táblás és egyéb lehetőségeket ismerem, ez nem játszik jelenleg. Ha más nincs, akkor makro+pivot lesz a vége.
Valakinek valami ötlet?
üdv.:
P. -
lenkei83
tag
válasz
Fferi50
#35656
üzenetére
Szia!
De van, közben rájöttem mi a gond, de a megoldást még nem találtam ki.
Combobox change-hez van hozzárendelve a színezés, viszont amikor kiválasztok a comboboxban egy másik értéket, az csak end sub után lesz aktív point. Vagyis amíg nem fut le teljesen a chang event, addig a diagram előző point értékeit veszi figyelembe és ez alapján színez. Viszont az előző dián lévő point az új combo választás szerint szerepelhet teljesen más helyen a diában és így teljesen bután néz ki a dia.Érthető ez így?
üdv:
P. -
lenkei83
tag
Sziasztok!
Powerpointban ez beszínezi az egész seriescollectiont:
ActivePresentation.Slides(1).Shapes(1).chart.SeriesCollection(1).Format.Fill.ForeColor.RGB = rgbBlueHogy lehet ebből olyat varázsolni, hogy a
SeriesCollection(1)egyetlen elemét színezze csak át?
Excelben megy, powerpointban nem tudok rájönni.köszi
P. -
lenkei83
tag
Ha berakok egy (diagramra) űrlap vezérlőből combo boxot és a callecsatolását beállítom egy munkalap adott pontjára ami ugye változik a legördülőből választott elem sorszámának megfelelően, akkor ezt miért nem érzékeli worksheet_change event-nek? Rá bírni valahogy? Mindenképpen kell egy change eventet varázsolnom valahogy ebből.
-
lenkei83
tag
Sziasztok!
Adott egy tartomány mondjuk A1:G1 tele számokkal, és azt szeretném tudni, hogy a D1-ben lévő érték hányadik a sorban. Vagyis ha növekvő vagy csökkenőbe rendezném a számokat akkor hanyadik helyen állna.
Tud valaki ilyen képelete? Az én agyam mára már felmondtam a szolgálatot.Köszi
P. -
lenkei83
tag
Sziasztok!
Van egy listboxom, amiben a rejtett munkalapok nevei vannak, melyek vagy csak simán
visible=false, vagyxlveryhiddentulajdonsággal rendelkeznek.Ami veryhidden, azokat az elemeket szeretném piros betűvel megjeleníteni. Tud valaki erre egyszerű megoldást?Köszi & üdv.:
P. -
lenkei83
tag
-
lenkei83
tag
válasz
Juditta_56
#35330
üzenetére
Hello!
Kérdőjelek helyére:
FileFormat:=51Üdv.:
P. -
lenkei83
tag
Sziasztok!
Lehet már csak fáradt vagyok, vagy péntek....
Dim selected_sheet_name As Variant
Dim selected_sheet As Worksheet
selected_sheet_name = Worksheets(ws_alapadat.Range(cell.Offset(0, -5).Address).Value).CodeName
Set selected_sheet = selected_sheet_nameA selected_sheet_name Munka6-ot hoz, ez oké. De a második sorban miért nem tudom ezt deklarálni mint munkalap? Object required
Köszi
P. -
lenkei83
tag
Sziasztok!
x64 alatt a VarPtr miért dob type mismatch hibát?
Public Function Hook() As Boolean
Dim TmpBytes(0 To 5) As Byte
Dim p As Long
Dim OriginProtect As Long
Hook = False
pFunc = GetProcAddress(GetModuleHandleA("user32.dll"), "DialogBoxParamA")
If VirtualProtect(ByVal pFunc, 6, PAGE_EXECUTE_READWRITE, OriginProtect) <> 0 Then
MoveMemory ByVal VarPtr(TmpBytes(0)), ByVal pFunc, 6Köszi
P. -
lenkei83
tag
válasz
Fferi50
#34421
üzenetére
Közben megtaláltam.
Ribbon meghívásnál száll el a CopyMemory sornál.
#If VBA7 Then
Function GetRibbon(ByVal lRibbonPointer As LongPtr) As Object
#Else
Function GetRibbon(ByVal lRibbonPointer As Long) As Object
#End If
Dim objRibbon As Object
CopyMemory objRibbon, lRibbonPointer, LenB(lRibbonPointer)
Set GetRibbon = objRibbon
Set objRibbon = Nothing
End Function -
lenkei83
tag
Sziasztok!
Van egy file-om, amiben a kód még 2010-es excel alatt íródott. Ha 2016-al nyitom meg, akkor csúnyán elszáll de nem a kód, hanem maga az excel. --> "Microsoft Excel működése leállt" blaa blaa
Meg lehet valahogy keresni, hogy mi a baja?A fájl itt leledzik: [link]
Köszi&üdv.:
P. -
lenkei83
tag
válasz
Fferi50
#33140
üzenetére
Azért
regiertek, mert az a sor ugyan meg van hogyregiertek = target.Value, de utána van egyapplication.undo, és ha ilyenkor hívom meg functionnal atarget.Value = RemoveNotNum(target.value)-t, akkor atarget.Valueéppen üres, vagyis üresre fogja hozni a cellámat.If sh.CodeName = "Munka7" Or sh.CodeName = "Munka13" Or sh.CodeName = "Munka10" Or sh.CodeName = "Munka8" Or sh.CodeName = "Munka5" Then
Application.EnableEvents = True
Exit Sub
Else
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
target.Value = RemoveNotNum(regiertek)
Else
target.Value = RemoveNotNum(regiertek)A meghívásnak így kellene kinézni? Konkrétan a bemásolt (vagyis az aktuálisan kijelölt) területre szeretném alkalmazni, akkor így kellene meghívni?
RemoveNotNum SelectionNem igazán akar működni worksheet_change-el
Else
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 regiertek
Else
RemoveNotNum regiertek
End Ifüdv
P. -
lenkei83
tag
válasz
Fferi50
#33130
üzenetére
Szia Feri!
Köszönöm, működik, annyit kellett változtatni, hogy
RemoveNotNum(target.value)helyettRemoveNotNum(regiertek)
Nem is értem mit nem értettem...Amire viszont most jöttem rá, hogy ha több értéket akarok egyszerre bemásolni akkor ez nem működik, mert a target range csak egy lehet. Van erre valami megoldás?
üdv
P. -
lenkei83
tag
válasz
asphalt
#33082
üzenetére
Szia!
Alap excelben én nem tudok olyan megoldásról, amivel a dollárjeleket be lehetne rakni a képletbe. Vannak részmegoldások amit egy sima cserével (CTRL+H) meg lehet csinálni, pl a relatív oszlopot lehet cserélni (pl.: "A"-ról "$A"-ra) és fordítva. De ugyanígy az összes (vagy kijelölt) cellákból ki lehet törölni a dollárjelet. Viszont ha mondjuk az oszlopod fix (legyen "B") és a sorod lefelé változik (1,2,3 stb..), akkor itt soronként kell cserét csinálni, mivel egyszerre az össze számot nem tudod keresett szövegként beadni a cseréhez.
Lehet hogy van rá mezei felhasználóknak is egyszerű megoldás, csak én nem találkoztam vele.
Viszont VBA-val egyszerűen meg lehet csinálni. A linken található fájlban figyeld a kijelölt területet (ami képletet tartalmaz) nyomkodd végig a gombokat, és figyeld a szerkesztőlécen, hogy mi történik a képlettel.
üdv
P. -
lenkei83
tag
válasz
asphalt
#33079
üzenetére
Lehet hogy nem értek valamit?
Ha így írod be:$B2*$C2akkor függőleges irányba tudod húzni a képletet és a sorok száma folyamatosan változni fog, az oszlopod fix marad. Ezt utána miért akarod rögzíteni?
Esetleg rakj fel egy táblát amiben látszik, hogy mit szeretnél pontosan.Üdv.:
P. -
lenkei83
tag
válasz
nesh20
#33074
üzenetére
Szia!
Elnézést, átsiklottam ezen a részen.
Kicsit átírtam a kódot.üdv
P.Sub Masolas()
Dim ws_from As Worksheet
Dim ws_from_lastcolumn As Long
Dim ws_from_range As Range
Dim ws_to As Worksheet
Dim ws_to_lastrow As Long
Dim ws_to_range As Range
Set ws_from = Worksheets("Munka1")
Set ws_to = Worksheets("Munka2")
ws_from_lastcolumn = ws_from.Cells(2, ws_from.Columns.Count).End(xlToLeft).Column
Set ws_from_range = ws_from.Range("A2:" & Chr(ws_from_lastcolumn + 64) & 2)
ws_to_lastrow = ws_to.Cells(ws_to.Rows.Count, "B").End(xlUp).Offset(1, 0).Row
Set ws_to_range = ws_to.Range("B" & ws_to_lastrow & ":" & Chr(ws_from_lastcolumn + 65) & ws_to_lastrow)
ws_to_range.Value = ws_from_range.Value
End Sub -
lenkei83
tag
válasz
nesh20
#33072
üzenetére
Szia!
Valami ilyesmire gondoltál?
Sub Masolas()
Dim ws_from As Worksheet
Dim ws_to As Worksheet
Dim ws_to_lastrow As Long
Set ws_from = Worksheets("Munka1")
Set ws_to = Worksheets("Munka2")
ws_to_lastrow = ws_to.Cells(ws_to.Rows.Count, "A").End(xlUp).Offset(1, 0).Row
ws_to.Rows(ws_to_lastrow).EntireRow.Value = ws_from.Rows(2).EntireRow.Value
End Sub
Új hozzászólás Aktív témák
- Kormányok / autós szimulátorok topikja
- Villanyszerelés
- Apple iPhone 15 - a bevált módszer
- Synology NAS
- Kertészet, mezőgazdaság topik
- BestBuy topik
- Sütés, főzés és konyhai praktikák
- Vezeték nélküli fülhallgatók
- Veszélyben vannak az adataid? Gond van a WD népszerű HDD-ivel
- Path of Exile (ARPG)
- További aktív témák...
- Samsung Galaxy A32 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 32/64GB RAM RTX 5060 Ti 8GB GAMER PC termékbeszámítással
- Magyarország piacvezető szoftver webáruháza
- Bomba ár! HP EliteBook 845 G10 - Ryzen 5 7540U I 16GB I 512SSD I 14,1" Touch I Cam I W11 I NBD Gari!
- GYÖNYÖRŰ iPhone 14 Pro 128GB Silver-1 ÉV GARANCIA - Kártyafüggetlen, MS3860
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest