- Mobil flották
- One mobilszolgáltatások
- Magisk
- Samsung Galaxy Watch5 Pro - kerek, de nem tekerek
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Samsung Galaxy XCover7 Pro - burokban született One UI
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Google Pixel topik
- Milyen GPS-t vegyek?
-
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
-
Fferi50
Topikgazda
válasz
istvankeresz #51972 üzenetére
Szia!
" a Chr(34) & "SZ" & Chr(34) eredménye "SZ", azaz amit én akartam"
Ami egyáltalán nem csoda, hiszen az idézőjel karakterkódja 34. Vagyis amit beidéztem tőled, annak a végeredménye ""SZ"" és így lesz a képletben "SZ"!, tehát a szövegbe ágyazott idézőjeleket duplázni szükséges, ha képletet viszel be VBA-ban a cellába.
Üdv. -
Fferi50
Topikgazda
válasz
istvankeresz #51966 üzenetére
Szia!
"ThisWorkbook.Sheets(Textbox11.Value)Range.("A18")=
"
Ez így az adott cellának értéket fog adni. Ha képletet szeretnél a cellába tenni, akkor aThisWorkbook.Sheets(Textbox11.Value)Range.("A18").Formula
-> ebben az esetben angol függvénynevek kellenek
vagyThisWorkbook.Sheets(Textbox11.Value)Range.("A18").FormulaLocal
-> ebben az esetben használható a magyar függvénynév - viszont nem hordozható a makró, más nyelven nem fog működni.
Ami a "SZ" -t illeti: A képletet szövegként kell megadni, a szövegben az idézőjelet meg kell duplázni, valahogy igy:ThisWorkbook.Sheets(Textbox11.Value)Range.("A18").FormulaLocal = "=(21+SZUM(F2:J2))-(SZUMHA(M2:M200;""SZ"";N2:N200))"
Üdv. -
karlkani
aktív tag
válasz
istvankeresz #51966 üzenetére
VBA-ban angolul kell használni a képleteket. A SZUMHA részt nem értem, mi az a M2 200 és N2 200?
"SZ" helyett ""SZ""-t használj.
-
Delila_1
veterán
válasz
istvankeresz #51931 üzenetére
Szívesen.
-
Delila_1
veterán
válasz
istvankeresz #51931 üzenetére
Az eredeti makródban meghatároztad az Ir változót, ami az utolsó (vagy az utolsót követő első üres) sor. Ezt használhatod fel a belső ciklusban.
For Each ws In ThisWorkbook.Worksheets
ActiveWorkbook.Sheets("Maradék szabadságok").Cells(Ir,2) = ThisWorkbook.Sheets(ws.Name).Range("A2")
Ir=Ir+1
Next ws
-
Delila_1
veterán
válasz
istvankeresz #51927 üzenetére
Módosítottam az előzőt, nézd meg!
-
Delila_1
veterán
válasz
istvankeresz #51927 üzenetére
Persze próba nélkül.
oszlop=2
For Each ws In ThisWorkbook.Worksheets
ActiveWorkbook.Sheets("Maradék szabadságok").Cells(9,oszlop) = ThisWorkbook.Sheets(ws.Name).Range("A2")
oszlop=oszlop+1
Next ws
-
Delila_1
veterán
válasz
istvankeresz #51925 üzenetére
Az Ir értékét a For Each cell cikluson belül kell növelned.
-
Delila_1
veterán
válasz
istvankeresz #50426 üzenetére
Érdemes rákeresni a cellaformázásokra, sok feladatot meg lehet oldani velük.
-
Delila_1
veterán
válasz
istvankeresz #50424 üzenetére
Akkor csak annyi a feladatod, hogy a cellaformátumot írd át.
0,0;; -
Delila_1
veterán
válasz
istvankeresz #50422 üzenetére
Azt elfelejtetted megadni, hogy mi legyen a vagy semmi, vagy akármi (SZ, ESZ, MSZ, stb) esetében.
-
Delila_1
veterán
válasz
istvankeresz #50420 üzenetére
-
Fferi50
Topikgazda
válasz
istvankeresz #50398 üzenetére
Szia!
Kiírta az mindegyiket, de mivel egyenként írattad, a következő mindig felülírta az előzőt. (Erről meggyőződhetsz, ha lépésenként hajtod végre a makrót.)
A Caption szövegét összefűzéssel kell megadnod, a négy/vagy több cellaértéket fűzd össze és a végén jelenitsd meg a Label.Caption szövegben.
Üdv. -
lappy
őstag
válasz
istvankeresz #50377 üzenetére
Vagy a két makró egyben
Sub mesage()
Dim xRg, xCell As Range
Dim xTxt, xStr As String
Dim xRow, xCol As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Rejtett elemek", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For xRow = 1 To xRg.Rows.Count
For xCol = 1 To xRg.Columns.Count
xStr = xStr & xRg.Cells(xRow, xCol).Value & vbTab
Next
xStr = xStr & vbCrLf
Next
MsgBox xStr, vbInformation, "Rejtett elemek"
End Sub -
lappy
őstag
válasz
istvankeresz #50377 üzenetére
Sub mesage()
Dim msg As String
msg = ""
For i = 1 To 3
For Each a In Array("A", "B", "C")
msg = msg & Cells(i, a).Value & vbTab
Next a
msg = msg & vbCrLf
Next i
MsgBox msg
End Sub -
Delila_1
veterán
válasz
istvankeresz #50377 üzenetére
Sub Adatok()
Dim ter As Range, CV As Range, szoveg As String
Set ter = Application.InputBox(prompt:="Kérem a tartományt", Type:=8)
For Each CV In ter
szoveg = szoveg & CV & vbLf
Next
MsgBox szoveg
End Sub -
TillaT
tag
válasz
istvankeresz #50374 üzenetére
Ha a cella értéke mellett más adatokra is szükséged lenne a celláról, akkor az alábbi kód is segíthet. Ez az aktív (aktívvá tett) cella adatait (cím, koordináták, érték, típus) adja vissza egy MsgBox-ban. A kódot hozzárendelheted egy billentyűkombinációhoz is és egy általad létrehozott gombhoz is.
Sub Cellrangequery()
Dim r As range
Set r = Selection
MsgBox "Range address: " & r.Address & vbNewLine & _
"Range value: " & r.Value & vbNewLine & _
"Range row: " & r.Row & vbNewLine & _
"Range column: " & r.Column & vbNewLine & _
"Range type: " & TypeName(r.Value)
End Sub
-
lappy
őstag
válasz
istvankeresz #50374 üzenetére
Sub Get_Cell_Value1()
Dim CellValue As String
CellValue = Range("A1").Value
MsgBox CellValue
End Sub -
Pakliman
tag
válasz
istvankeresz #50023 üzenetére
Szia!
Egy pl. a billentyű(k) tiltására/átengedésére:
Private Sub tbValami_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub -
istvankeresz
aktív tag
válasz
istvankeresz #50022 üzenetére
User error bocsánat.
IsNumeric(deg) maradt benne az IsNumeric(Textbox11.value) helyett.
Khm, mégsem jó....
A Dr. 1 -et engedi beírni
-
Fferi50
Topikgazda
válasz
istvankeresz #50017 üzenetére
Szívesen!
-
Fferi50
Topikgazda
válasz
istvankeresz #50013 üzenetére
Szia!
Inkább ezt próbáld ki, mert a másik nem igazán jó:Sub akarmi()
Dim answer As Integer, wsFound As Boolean
Dim wbSearch As Workbook, wsSearch As Worksheet
wsfound = True
On Error Resume Next
Set wsSearch = Sheets(Textbox11.Value)
If Err = 0 Then
'ha van már ilyen munkalap, akkor feltesszük a kérdést
answer = MsgBox("Ilyen nevű munkatárs már rögzítve! Biztos, hogy folytatod a rögzítést?", vbQuestion + vbYesNo + vbDefaultButton2, "Munkatárs rögzítése")
If answer = vbYes Then wsSearch.Copy after:=Sheets("Havi_TEMPLATE"): wsFound = True
Else
Err = 0
Sheets("Szemely_TEMPLATE").Copy after:=Sheets("Havi_TEMPLATE")
ActiveSheet.Name = Textbox11.Value
End If
On Error GoTo 0
If wsFound Then
With ActiveSheet
.Range("A2") = Textbox11.Value & " " & ComboBox7.Value
.Range("B2") = TextBox12.Value
.Range("C2") = TextBox13.Value
.Range("D2") = TextBox14.Value
End With
MsgBox "Munkatárs sikeresen rögzitve! Kérlek zárd be és nyisd meg újra a programot!"
End If
Textbox11.Value = ""
ComboBox7.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
'Sheets(xx).Activate az alapmunkalap aktíválása, ha szükséges.
End Sub
Egy kis magyarázat hozzá:
Nem kell végigpörgetni a munkalapokat, mivel a vba hibakezeléssel megállapítható, ha van már ilyen munkalap => a Set után ha nincs hiba, akkor van már. Amennyiben ugyanolyan nevű új személy van, akkor ezt a munkalapot másoljuk, aminek az lesz az eredménye, hogy az Excel automatikusan ad egy sorszámot a névhez! ezzel nekünk nem kell foglalkozni.
Ha nincs, akkor másoljuk a Templatet.
Mivel a másolt munkalap lesz az aktív, utána beírhatjuk a szükséges adatokat az új munkalapra.
Remélem sikerülni fog.
Üdv. -
Fferi50
Topikgazda
válasz
istvankeresz #50008 üzenetére
Szia!
Egy minta makrórész:Sub akarmi()
Dim answer As Integer, wsFound As Boolean
Dim wbSearch As Workbook, wsSearch As Worksheet
wsFound = True
For Each wsSearch In ActiveWorkbook.Sheets
If wsSearch.Name = TextBox11.Value Then
answer = MsgBox("Ilyen nevű munkatárs már rögzítve! Biztos, hogy folytatod a rögzítést?", vbQuestion + vbYesNo + vbDefaultButton2, "Munkatárs rögzítése")
wsFound = answer = vbYes
End If
Next
If wsFound Then
Sheets("Szemely_TEMPLATE").Copy After:=Sheets("Havi_TEMPLATE")
With ActiveSheet
.Name = TextBox11.Value & 2
.Range("A2") = TextBox11.Value & " " & ComboBox7.Value
.Range("B2") = TextBox12.Value
.Range("C2") = TextBox13.Value
.Range("D2") = TextBox14.Value
End With
MsgBox "Munkatárs sikeresen rögzitve! Kérlek zárd be és nyisd meg újra a programot!"
End If
TextBox11.Value = ""
ComboBox7.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
'Sheets(xx).Activate az alapmunkalap aktíválása, ha szükséges.
End Sub
A Combobox Additem tulajdonságát nézd meg a forrás frissítésre.
Üdv. -
Fferi50
Topikgazda
válasz
istvankeresz #50008 üzenetére
Szia!
Én az ugrálást egyáltalán nem támogatom.
A Combobox forrását (List tulajdonság) lehet frissíteni vba-ból is, nem kell azért bezárni a munkalapot.
Én bevezetnék egy változót, amivel jelölném a találatot.
A ciklus elején True-ra állítom. Ha van már olyan munkalap, akkor jön a kérdés, ha létre kell hozni az új munkalapot, akkor marad True, ha nem, akkor False-ra állítom. A vizsgálat után kilépek a ciklusból. A ciklus után ha True a jelölő, akkor létrehozzuk a munkalapot, ha False, akkor nem kell létrehozni.
Üdv. -
Fferi50
Topikgazda
válasz
istvankeresz #50004 üzenetére
Szia!
Miért kell bezárni a fájlt egy új munkalap hozzáadása után?
Üdv. -
andreas49
senior tag
válasz
istvankeresz #50004 üzenetére
Ezt valószínűleg nem nekem akartad címezni, hanem Ferinek
-
Fferi50
Topikgazda
válasz
istvankeresz #49974 üzenetére
Szia!
"az első igaz feltételhez kapcsolódó értéket másolja át és nem a második körben igaz feltételhez kapcsolódóét."
Természetesen, hiszen fixen megadtad, hogy mely cellákból másolja át az értékeket:"ThisWorkbook.Sheets(ws.Name).Range("A2") stb"
Helyesen szerintem:ThisWorkbook.Sheets(ws.Name).Range("A" & cell.Row").Value
Megjegyzés: én kiírnám a Value-t mindenhova, mert bár alapértelmezett, adódhat olyan eset, amikor nem egyértelmű, hogy cella értékére van szükség vagy magára a cellára.
Üdv. -
Fferi50
Topikgazda
válasz
istvankeresz #49957 üzenetére
Szia!
Vannak nem látható karakterek az adott oszlop egy cellájában. Megnézheted hol található, ha a munkalapon állva F5 majd irányított - utolsó cella.
A tényleges adattartalomtól lefelé ki kell törölni az összes sort/oszlopot, akkor áll helyre.
Ha folyamatos az adatok beírása az oszlopban - vagyis nincs üres cella az adatok között, akkor használható a Range("E1").End(xlDown).Row +1 is az első üres cella meghatározására. Figyelj arra, csak akkor használható a fenti forma ha az oszlop első 2 cellájában van érték, különben hibát fog jelezni, mert a munkalap utolsó során túl akar lépni.
Amíg nincs adat az első két cellában, akkor direktben meg kell adni az 1. ill. 2. sort.
Üdv. -
istvankeresz
aktív tag
válasz
istvankeresz #49956 üzenetére
Bocs a sok hozzászólásért. Egy restart megoldotta.
Szerk.:
Azaz mégsem. Második futtatásra az lr már 109-es sorral kezdte. Pedig a 4-es sorral kellett volna folytatnia az E oszlopban, mivel a Az E1-től E3-ig másolt be értéket. -
istvankeresz
aktív tag
válasz
istvankeresz #49955 üzenetére
Müködik, viszont az lr egy nagyon nagy értéket kap, így a 1010185 sornál kezdi a beírást. Ez mért lehet? Honnan vesz egy ekkora értéket?
Így néz ki most:
Dim cell As Range
Dim ws As Worksheet
Dim lr As Long
lr = Sheets(6).Range("E" & Rows.Count).End(xlUp).Row + 1
For Each ws In ThisWorkbook.Worksheets
For Each cell In Sheets(ws.Name).Range("K2:K6")
If cell.Value Like "2022.01*" Then
Sheets(6).Range("E" & lr) = cell.Value: lr = lr + 1
MsgBox (ws.Name & " " & cell.Value & " " & lr)
End If
' MsgBox (ws.Name & " " & cell.Value)
Next cell
Next ws
-
Fferi50
Topikgazda
válasz
istvankeresz #49946 üzenetére
Szia!
Ezt a sort a for ciklus elé érdemes betenni a kezdő sor számának meghatározására. A másolás viszont akkor így néz ki:Sheets(6).Range("E" & lr) = cell.Value :lr=lr+1 ' másol majd növeli a sor számát.
Üdv. -
Fferi50
Topikgazda
válasz
istvankeresz #49939 üzenetére
Szia!
Használhatod a Like operátort ebben az esetben:
Cells(1,1).Value Like "1234.56*" True értéket ad, ha a cella értéke a beírt karakter sorozattal kezdődik, ellenkező esetben False az érték.
Vigyázz, a számok összehasonlításánál is a Like operátor utáni résznek szövegnek kell lenni és nem tizedespont hanem a magyar szabályok szerint tizedesvessző kell bele!
Üdv. -
Fferi50
Topikgazda
válasz
istvankeresz #49933 üzenetére
Szia!
Az elveket mutatnám, amit hozzá kell adaptálnod a saját feladatodhoz:Set ujws=Workbooks("uj").Sheets(1)
For Each ws in Worksheets
For Each rng In ws.UsedRange.Columns("A").Cells
If rng.Value=x Then
ujws.Cells(Cells(ujws.Rows.Count,1).End(xlUp).Row+1,"A").Value=rng.Value
'ha nem lehet több érték akkor Exit For
End If
Next
Next
Az "uj" munkafüzetet létre kell hoznod előtte.
A feltételt az If-fel kezdődő sorban kell megadni, itt egy szimpla egyenlőséget tételeztem fel.
Az értéket mindig az A oszlop következő üres cellájába másolja.
Üdv. -
lappy
őstag
válasz
istvankeresz #49915 üzenetére
=HA(C31="SZ";I30-H31;HA(ÜRES(C31);" ";I30))
ha jól értem mit is akarsz ezt kell I31 be beírni majd lehúzni -
Fferi50
Topikgazda
válasz
istvankeresz #49906 üzenetére
Szia!
A Workbooks.Add sor felesleges. A Sheets(...).Copy magától létrehozza az új munkafüzetet.
Üdv. -
Fferi50
Topikgazda
válasz
istvankeresz #49903 üzenetére
Szia!
Melyik sornál?
Megmutatnád a makrót, ami ezt okozza?
Üdv. -
Fferi50
Topikgazda
válasz
istvankeresz #49901 üzenetére
Szia!
Akkor kipróbálod?
Üdv. -
Fferi50
Topikgazda
válasz
istvankeresz #49897 üzenetére
Szia!
Szerintem ennyi elég a másolás - új munkafüzet létrehozásához:Sheets("Nyilvantartolap_TEMPLATE").Copy
Ez egy új munkafüzetbe teszi át ezt az egy munkalapot. Utána ez a munkafüzet lesz aktív, tehát el kell döntened mi legyen a neve, hova mented stb.
Ebben az új munkafüzetben nem lesznek benne a makrók - kivéve, ha a másolt munkalapnak van kódlapja, mert azt viszont átviszi.
Az új munkafüzet bezárása után az eredeti munkafüzet marad aktív.
Ha azt szeretnéd, hogy csak az új munkafüzet maradjon nyitva, akkor ezt a sort kell még betenni a fenti sor után:Thisworkbook.Close False
Ebben az esetben csak az új munkafüzet marad nyitva.
Üdv. -
lappy
őstag
válasz
istvankeresz #49897 üzenetére
ebbe sok minden kell
-
Fferi50
Topikgazda
válasz
istvankeresz #49867 üzenetére
Szia!
Lelked rajta. De a textboxba beírt érték mindig szöveg lesz és ellenőrizni kell, hogy megfelelő-e dátumnak - formátumtól függetlenül. Ne ringasd magad álmokba, a felhasználók sajnos gyakran esnek abba a hibába, hogy saját szakállukra írnak be adatokat - mindegy, milyen utasítást látnak alatta vagy akár a felhasználói kézikönyvben. Ha hibátlan adatokkal szeretnél dolgozni, akkor bizony folyamatosan ellenőrizned kell az adatbevitelt. Erre több lehetőség is van, de szerintem valamelyiket mindenképp választanod kell. Egyébként megfelelő formátumú szövegből bármikor tudsz dátumot "varázsolni", a megfelelő formátum a fontos.
Üdv. -
Fferi50
Topikgazda
válasz
istvankeresz #49864 üzenetére
Szia!
Esetleg 3 Combobox (Év, hónap, nap), ahol meghatározhatod a kiválasztási lehetőségeket (pl. a középsőben a hónapok 1-12 vagy jan-dec, a napoknál pedig a hónaptól függően 28-29-30-31).
Üdv. -
andreas49
senior tag
válasz
istvankeresz #49864 üzenetére
Esetleg ez?
[link] -
Delila_1
veterán
válasz
istvankeresz #49862 üzenetére
Nézz el ide.
-
Delila_1
veterán
válasz
istvankeresz #49845 üzenetére
Szívesen.
-
Delila_1
veterán
válasz
istvankeresz #49843 üzenetére
Private Sub CommandButton1_Click()
Dim usor As Long
'Itt annak az oszlopnak a betűjelét add meg, amelyikben biztosan ki van töltve az utolsó sorig minden cella
usor = Sheets(ComboBox1.Value).Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets(ComboBox1.Value).Cells(usor, "A") = TextBox1.Value
Sheets(ComboBox1.Value).Cells(usor, "B") = ComboBox1.Value
End SubAz usor képletének jelentése:
A lapon az A oszlop utolsó celláján állva (Rows.Count) mintha Ctrl+fel nyilat nyomnál, ami az utolsó kitöltött sorra ugrik, ehhez adsz 1-et, hogy az első üres cella sorszámát kapd meg. -
Delila_1
veterán
válasz
istvankeresz #49841 üzenetére
Ha nem fontos a lapra lépni, egy cella módosítását 1 lépésben is elintézheted, pl. egy nyomógombhoz rendelve.
Private Sub CommandButton1_Click()
Sheets(ComboBox1.Value).Cells(3, 2) = "asdf"
End Sub -
Delila_1
veterán
válasz
istvankeresz #49839 üzenetére
A ComboBox change eseményébe kell tenned a lapra ugrást.
Private Sub ComboBox1_Change()
Sheets(ComboBox1.Value).Select
'Cells(5, 1) = "asdf"
End Sub -
Delila_1
veterán
válasz
istvankeresz #49314 üzenetére
A C2 cella képlete legyen
=HA(SZÁM(A2);B1-A2;B1)
-
lappy
őstag
válasz
istvankeresz #49314 üzenetére
ha üres az A akkor ne csináljon semmit különben a képleted
-
Fferi50
Topikgazda
válasz
istvankeresz #49301 üzenetére
Szia!
"Megpróbálom azt, hogy a segédoszlop celláiba a januári dátumokhoz 1-t, februári dátumokhoz 2-t párosítok és így tovább"
A HÓNAP függvény pontosan ezt adja meg neked.
Üdv. -
Delila_1
veterán
válasz
istvankeresz #49294 üzenetére
A fejlécbe tegyél autoszűrőt, ezzel bármikor szűrheted az adataidat tetszőleges hónap szerint.
-
Fferi50
Topikgazda
válasz
istvankeresz #49294 üzenetére
Szia!
Szerintem a dátumokat tároló munkalapokra kell egy segédoszlop, ami a hónapot tartalmazza. (pl =HÓNAP(A2))
A segédoszlop alapján az alkalmas keresőfüggvény (XKERES, avagy FKERES -INDEX páros) alapján meg tudod oldani a feladatot.
Üdv. -
Delila_1
veterán
válasz
istvankeresz #49279 üzenetére
Szívesen.
-
Delila_1
veterán
válasz
istvankeresz #49277 üzenetére
A formátum jó, a képlet
=MA()-HÓNAP(MA()-1)
-
Fferi50
Topikgazda
válasz
istvankeresz #49271 üzenetére
Szia!
Cellán állva - jobb egérgomb - cella formázás - szám - egyéni : "Miskolc, " éééé.hh.nn
Vagy: A cellában a képlet:="Miskolc, " & SZÖVEG(MA();"éééé.hh.nn")
Üdv. -
Mutt
senior tag
válasz
istvankeresz #49263 üzenetére
Szia,
Ha Office2019-ed vagy Microsoft365-öd van akkor inkább az XKERES függvényt tudod használni, amely az FKERES újabb változata. Előnye, hogy tartományt (több cellát a sorból) tud visszaadni, míg az FKERES csak tömbfüggvényel tud egyszerre több értéket visszaadni.
üdv
-
detroitrw
addikt
válasz
istvankeresz #49261 üzenetére
Pedig az fkeres jó lesz, ahogyan azt lappy ajánlotta:
Második lapfülön:
C3:=FKERES(B3;egyes lapfül!$B$3:$D$5;2;0)
D3:
=FKERES(B3;egyes lapfül!$B$3:$D$5;3;0)
-
lappy
őstag
válasz
istvankeresz #49259 üzenetére
fkeres függvény
az adattábla esetén külön oszlopban a szám, a gyümölcs, a szín
és a függvényben a számra keresel majd a 2. és a 3. oszlop az eredmény
Új hozzászólás Aktív témák
Hirdetés
- Felújított laptopok Számlával, garanciával! Ingyen Foxpost!
- Csapj le az új MSI MPG B550 GAMING PLUS-ra most! 0% THM-RE is!
- Dell Latitude 5300 5310, 5400, 5410, 5420, 5430, 7480, 7490
- Eredeti Windows 10 / 11 Pro aktiválókulcs AZONNALI SZÁLLÍTÁSSAL!
- Lenovo Thinkpad P1 gen1, gen2, P52s FHD, 4K oled touch
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Liszt Ferenc Zeneművészeti Egyetem
Város: Budapest