-
GAMEPOD.hu
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
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #8048 üzenetére
így már jó, thx
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #8050 üzenetére
oks, köszi, majd hétvégén kicsit töröm rajta a fejem.
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #8050 üzenetére
Hi!
Úgy tűnik sikerült megoldanom a visszaolvasást listbox-ba. Igaz nem egyedül jöttem rá, túrtam a netet rendesen.
Private Sub UserForm_Initialize()
Dim cells As Range
Dim Rng As Range
With ThisWorkbook.Sheets("listbox1")
Set Rng = .Range("a1", .Range("a1").End(xlDown))
End With
For Each cell In Rng.cells
Me.ListBox1.AddItem cell.Value
Next cell
End Sub -
félisten
válasz Fire/SOUL/CD #8057 üzenetére
Hali!
A SumColor függvényben ki kell cserélni ezt a sort
nResult = nResult + WorksheetFunction.Sum(rngCell)
erre
nResult = nResult + rngCell.Value
Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
lasarus1988
tag
válasz Fire/SOUL/CD #8053 üzenetére
Hello,
miután megvannak az adatok amiket kiolvastam, akkor meghívom a hisztogram rutint, hogy készítse el a gyakoriság táblázatot illetve a hozzá tartozó oszlop diagramot.
Application.Run "ATPVBAEN.XLAM!Histogram", ActiveSheet.Range("$A$2:$A$30") _
, ActiveSheet.Range("$B$1"), , False, False, False, FalseActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Munka2'!$A$1:$B$7")
ActiveChart.ChartType = xlColumnClustered
ActiveChart.Location Where:=xlLocationAsNewSheet
Sheets("Diagram1").Select
Sheets("Diagram1").Move After:=Sheets(4)
Sheets("Munka1").Select
Range("A1").SelectHa csak megnyitom az xls-t akkor hiba nélkül lefut a program, épp csak a gyakoriság táblázatot nem készíti el, de ha utána manuálisan újra lépésről lépésre megcsinálom, majd újra elindítom a programot, akkor már automatikusan megcsinálja ahogyan kéne.
Köszönöm a segítséget!
[ Szerkesztve ]
-
lasarus1988
tag
válasz Fire/SOUL/CD #8060 üzenetére
Sajnos pont az első sor a probléma a többi már csak diagram készítés. Egyébként beépített excel add-in az első sor (Analysis Toolpak, Analysis Toolpak - VBA).
A makrók ugyanúgy vannak beállítva ahogyan Nálad!
Próbáld ki a következőt:
Excel beállításai/Bővítmények/Excel bővítmények/Ugrás->Analysis Toolpak, Analysis Toolpak - VBA pipa és OK
Private Sub Workbook_Open()
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("A2").Select
ActiveCell.FormulaR1C1 = "2"
Range("A1:A2").Select
Selection.AutoFill Destination:=Range("A1:A20"), Type:=xlFillDefault
Range("A1:A20").Select
Range("A1").Select
Application.Run "ATPVBAEN.XLAM!Histogram", ActiveSheet.Range("$A$1:$A$20") _
, ActiveSheet.Range("$D$1"), , False, False, False, FalseEnd Sub
Ha ez megvan akkor rakj egy gombot a munkalapra és rendeld hozzá ugyanazt a fenti kódot. Ment, bezár, újra megnyit! Ha működik akkor a D és E oszlopban megjelennek a rekesz és gyakoriság értékek, hanem akkor nincs ott semmi.
Nyomd meg a gombot! Megint nem történik semmi és ezt sokáig el tudod játszani.
Manuálisan csináld meg a hisztogramot (Adatok fül/Adatelemzés/Hisztogram)
Bemeneti tartomány : A1:A20
Rekesz tartományt ne adj meg
Kimeneti tartomány: D1D és E oszlopban megjelennek a rekesz és gyakoriság értékek! Töröld ki, nyomd meg a gombot és működik! De addig nem csinálja automatikusan amíg egyszer végig nem csinálod manuálisan.
Bocsánat, ha nagyon szájba rágós lett, de három napja ezen töröm a fejem és nem jöttem rá a problémára.
Köszönöm, ha kipróbálod!
-
mr.nagy
tag
válasz Fire/SOUL/CD #8058 üzenetére
Szia!
Nekem nem akar működni és nem tudom hol rontom el!
Csináltam egy egyszerű demó táblázatot, hogy mit is szeretnék. Feltöltöttem ide:
[link]Megnéznéd miért nem működik?
Előre is köszönöm!HMNote10Pro
-
lasarus1988
tag
válasz Fire/SOUL/CD #8062 üzenetére
1. Köszönöm, hogy megnézted, megnyugodtam, hogy nem én vagyok a hülye!
2.-3. Fejben tartom!
Még egyszer köszönöm!
-
mr.nagy
tag
válasz Fire/SOUL/CD #8068 üzenetére
Szia!
Köszönöm szépen a választ, kipróbálom ezt a megoldást is!
Üdv,
mr.nagyHMNote10Pro
-
Abi8211
csendes tag
válasz Fire/SOUL/CD #8062 üzenetére
Szia, előre is köszönöm, most még 1 kicsit utána jártam, és elérhető az említett adatok, nem csak excel formátumban vannak meg, hanem le tudjuk tölteni dbf formátumban is. A probléma az, hogy ennél a 1 faladatnál különben sem kellett ilyenekkel foglalkoznom, így nem nagyon vagyok otthon a dologban.
üdv:Mindenkinek
-
veterán
válasz Fire/SOUL/CD #8078 üzenetére
Szia!
Tökéletes, köszönöm szépen!
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #8093 üzenetére
Képen a probléma
http://www.kephost.com/images3/hrz58dob1ujygj52st9h.jpg
A B oszlopból kellenének a számok (B6, B12 stb.). Viszont mindenképp makróval szeretném megoldani[ Szerkesztve ]
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #8098 üzenetére
Köszi, kipróbálom.
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #8102 üzenetére
köszi, elrakom egy txt-be, hátha egyszer még jól jön
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #8108 üzenetére
Az Outlook Express-t használom. Egyszerűen láthatatlanná váltak a címek (amiket nem a C meghajtón tárolok), de megvannak. Rájuk tudok keresni, és néhány kattintással ki tudom találni az ismerősök levélcímét. A bejövőknél az általam megadott nevet mutatja, nem az e-mail címet.
Ha behívom a Címjegyzéket, azt lódítja, hogy nincs egy darab sem.
Már csináltam egy rendszer-visszaállítást, az sem segített. Azt hiszem, marad a leradírozás, és újra telepítés.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
scott_free
senior tag
válasz Fire/SOUL/CD #8116 üzenetére
nem fogalmaztam világosan:
azt szeretném, ha a D1=A1 vagy B1, attól függően, hogy C1=A vagy B.
(tehát a C1 értéke helyettesítené/adná meg a cellahivatkozásban az A vagy B oszlopot).de mindegy, végül megoldottam máshogyan.
viszont egy újabb alapvető dolog, amire a súgóban nem találtam választ: hogyan tudom mozgatni az oszlopokat a táblázaton belül?
tehát mondjuk az F oszlopot szeretném áthúzni, betenni az A és B oszlop közé. (úgy, hogy persze automatikusan tolja el az oszlopokat utána) -
bnorci71
addikt
válasz Fire/SOUL/CD #8111 üzenetére
Köszi mindenkinek
tényleg ezt már használtam csak attól féltem a képletek összekeverednek.
Pulsar
na ez a megoldás már elkésett
elég sok a képlet a beszúrástól meg elcsúszna minden. Vagy nem?Delila_1
kipróbáltam
köszi"If in doubt, flat out!" "Straight roads are for fast cars, turns are for fast drivers"
-
bnorci71
addikt
válasz Fire/SOUL/CD #8111 üzenetére
"If in doubt, flat out!" "Straight roads are for fast cars, turns are for fast drivers"
-
m.zmrzlina
senior tag
válasz Fire/SOUL/CD #8157 üzenetére
De valamiért attól még nem kezd el számként viselkedni, hogy levágtam róla a felesleget. Ha lecserélem a "."-t ","-re és megszorzom az egészet egyel akkor már lehet vele számolni. addig nem.
Azokon a gépeken amelyek "."-t várnak tizedeselválasztónak ott #VALUE hibakódot ad
Nagyjából így néz ki a fv:
=HELYETTE(KÖZÉP('másik munkalap'!D22;SZÖVEG.KERES("(";'másik munkalap'!D22)+1;(SZÖVEG.KERES("%";'másik munkalap'!D22)-1)-(SZÖVEG.KERES("(";'másik munkalap'!D22))-1);".";",")*1[ Szerkesztve ]
-
m.zmrzlina
senior tag
válasz Fire/SOUL/CD #8159 üzenetére
Bocs közben átírtam a hsz-t. Az újban már látszik, hogy hogyan csinálom a darabolást
-
m.zmrzlina
senior tag
válasz Fire/SOUL/CD #8159 üzenetére
Nagyjából az a struktúra van amit te megadtál annyi különbséggel, hogy a zárójelben lévő értékek a 0-100 ig változnak és ami kívül van az sem mindig ugyanolyan hosszú.
De ezzel nincs is semmi gondom, az előbb idézett képlet rendesen megcsinálja a leválasztást csak akkor van gond ha hurcolászni kell a fájlt két gép között (márpedig kell)
Ha csinálok egy olyan mentést amiben kiveszem a képletből a =HELYETTE fv-t és megnyitom a "."-t váró gépen akkor az is megy tökéletesen.
A baj hogy nem akarok két fájlt és amennyire lehet nem akarom a felhasználóra bízni a módosítgatásokat mert ezeket a fájlokat nagyon különböző informatikai képességekkel rendelkező emberek fogják használni öszzesen vagy tizen-huszan (az egyik tud makrót is írni a másik azt sem tudja mi az a Ctrl-c Ctrl-v)
Ezért akarnám a felismerést automatikusan megcsinálni.
-
m.zmrzlina
senior tag
válasz Fire/SOUL/CD #8162 üzenetére
Értem én ezt valóban frappánsabb megoldás mint az enyém de ez sajnos nem oldja meg a tizedeselválasztó problémáját. Továbbra is #VALUE hibakódot ad a képlet olyan a gépen aminél "." az elválasztó ha benne hagyom a "." "," cserét.
Köszönöm
-
lackatwo
csendes tag
válasz Fire/SOUL/CD #8168 üzenetére
Koszi, megproszalom a ket meccs ugyis pocsekul all
bocs a nemekezetelesek miatt
-
lackatwo
csendes tag
válasz Fire/SOUL/CD #8168 üzenetére
Mindket ..Workbook.Path jol mukodik barmely meghajtorol inditom az excel fileomat, de a Dir(*.csv) ennek ellenere az eredeti C meghajtom konvtarabol olvas mindig (ahonl korabban szerkesztettem a makrozott xls-t).
bocs a nemekezetelesek miatt
-
biker
nagyúr
válasz Fire/SOUL/CD #8192 üzenetére
nem... munkalap
de a feladat ugyanaz.Elektromos autó töltő berendezések | Mesterséges növényvilágítás | Mai ajánlatunk: www.gerisoft.hu | www.e-autotoltokabel.hu | www.agrar-vilagitas.hu |
-
félisten
válasz Fire/SOUL/CD #8267 üzenetére
Hali!
Na még1x, szóval ha így néz ki a dolog és abból ilyet szeretnél készíteni, akkor ez a makró megfelel. A makró kód elején add meg, hogy melyik munkalap, melyik oszlopában vannak a linkek. Itt a példában a Munka1 lap A oszlopában vannak a linkek.
Fontos
Először legyen egy másolatod a kívánt munkafüzetről, mert ha mégsem azt csinálná a makró, amit szerettél volna, akkor nem lehet használni az undo parancsot...Private Sub CommandButton1_Click()
Dim SrcSheet As Object
Dim My_Range As Range
My_Sheet = "Munka1" 'Itt megadod, hogy melyik munkalapon van az oszlop
My_Column = "A" 'Itt megadod, hogy melyik oszlopban vannak a linkek
Set SrcSheet = ThisWorkbook.Sheets(My_Sheet)
Set My_Range = SrcSheet.Range(My_Column & "1:" & Range(My_Column & "1").End(xlDown).Address)
Application.ScreenUpdating = False
SrcSheet.Select
On Error Resume Next
For Each CurrCell In My_Range
CurrCell.Hyperlinks(1).TextToDisplay = CurrCell.Hyperlinks(1).Address
Next CurrCell
Set My_Range = Nothing
Set SrcSheet = Nothing
Application.ScreenUpdating = True
End SubFire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
opzozi
tag
válasz Fire/SOUL/CD #8267 üzenetére
Link névvel szerepel, ami egy hivatkozás, csak ugye ez mondjuk txt-be konvertálva nem látszik. Ezért szeretném ezt a Linket a valós hivatkozásra lecserélni.
Tehát
Link (http://...) erre a hivatkozásra mutat
és ezt kéne erre:
http://... (http://...)Xiaomi Poco X3 Pro
-
opzozi
tag
válasz Fire/SOUL/CD #8274 üzenetére
Ez az alap állapot:
Egy hivatkozás egy képre.És amire szeretném:
A "Link" helyett maga hivatkozás jelenjen meg. Tehát a "Link" szöveget szeretném cserélni az adott hivatkozásra.Lényegében ennyi.
Xiaomi Poco X3 Pro
-
opzozi
tag
válasz Fire/SOUL/CD #8281 üzenetére
Akkor úgy látszik, ma én nem vagyok formában.
Köszönöm szépen.Xiaomi Poco X3 Pro
-
opzozi
tag
válasz Fire/SOUL/CD #8284 üzenetére
"Tehát ha a link egy pl képre mutat, akkor a képet akarod beillszteni a cellába?"
Nem akarom beilleszteni a képet, elég csak a hiperhivatkozás szövegként."Ezek szerint meg az a cél, hogy a korábbi Link feliratú hiperhivatkozás megszűnjön létezni és helyette(ugyanabban a cellában) csak sima szövegként jelenjen meg a hiperhivatkozás címe?
(pl egy kép hiperhivatkozása van ott és csak a LINK felirat látszik, ezt kell lecserélni egy sima szöveggé, amire a hiperhivatkozás hivatkozott korábban pl http://www.valami.hu/kep1.jpg)"Pontosan.
Xiaomi Poco X3 Pro
-
opzozi
tag
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #8327 üzenetére
Anélkül is vidáman beírja az értékeket, szándékosan hagytam el.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #8329 üzenetére
Azért dolgozott azzal, mert az első (?) válaszomban azt írtam.
Szóval működik a text és a value nélkül is.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Charlie Gordon
aktív tag
válasz Fire/SOUL/CD #8343 üzenetére
Nem tesz eleget, hiszen almából vittek az 1, 5, 7, 15-ös szállítón, körtéből a 2,3,4,7, 21-es szálltón stb. Tehát a D oszlopokat kellene összehozni egy oszlopba, utána már csak lerendezni és szűrni kell de ezt már én is meg tudom csinálni.
-
Charlie Gordon
aktív tag
válasz Fire/SOUL/CD #8346 üzenetére
De ez pont elég, csak az összes szállítószám kell !
Előre is kösz -
Charlie Gordon
aktív tag
válasz Fire/SOUL/CD #8348 üzenetére
Nincs, mindegyiket figyelembe kell venni, a munkalapok nevei cikkszámok.
-
Charlie Gordon
aktív tag
válasz Fire/SOUL/CD #8350 üzenetére
Kösz, majdnem teljesen tökéletes. A D oszlop utolsó értékeit kihagyja. Lehet azért mert mindegyik munkalap első sora üres ?
-
félisten
válasz Fire/SOUL/CD #8352 üzenetére
Hali!
Private Sub CommandButton1_Click()
Dim My_Sheet As Worksheet
Dim My_Sheet_Name As String
Dim My_Range As Range
Dim My_Column As String
'Oszlop, amelyikben szállítólevélszámok vannak
'(Ugyanebben az oszlopban lesznek majd, az új munkalapon is)
My_Column = "D"
'Az első adat az oszlopban
My_Row = 2
'A létrehozandó, összesítő munkalap neve
My_Sheet_Name = "FSCD_Összesítés"
Application.DisplayAlerts = False
On Error Resume Next
Set My_Sheet = Sheets(My_Sheet_Name)
On Error GoTo 0
If Not My_Sheet Is Nothing Then
My_Sheet.Delete
End If
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = My_Sheet_Name
k = 0
For i = 1 To Worksheets.Count - 1
Worksheets(i).Select
Worksheets(i).Range(My_Column & My_Row).Select
Set My_Range = Worksheets(i).Range(My_Column & My_Row & ":" & My_Column & Worksheets(i).UsedRange.Rows(Worksheets(i).UsedRange.Rows.Count).Row)
My_Range.Select
For Each CurrCell In My_Range
Worksheets(My_Sheet_Name).Range(My_Column & 1 + k) = CurrCell.Value
k = k + 1
Next CurrCell
Set My_Range = Nothing
Next i
Worksheets(My_Sheet_Name).Select
Set My_Sheet = Nothing
Application.DisplayAlerts = True
End SubFire.
[ Módosította: Ndruu ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Charlie Gordon
aktív tag
válasz Fire/SOUL/CD #8353 üzenetére
Nagyon köszönöm !
-
m.zmrzlina
senior tag
válasz Fire/SOUL/CD #8357 üzenetére
Köszi, működik.
-
Oly
senior tag
válasz Fire/SOUL/CD #7897 üzenetére
Szia
Szerinted miért nem működik, ha a
.From = xy
sort is beszúrom?Üdv
Oly[ Szerkesztve ]
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
Darahian
tag
válasz Fire/SOUL/CD #8398 üzenetére
Köszi!
"Sose higgy el feltétlenül mindent, amit az interneten olvasol!" -Abraham Lincoln
-
m.zmrzlina
senior tag
válasz Fire/SOUL/CD #8404 üzenetére
Ez a sor a Case szerkezet egyik ága ezért nem evidens hogy a columnid_1-nek 0-tól különbözik az értéke. Simán lehet 0 ezért kell ezt az esetet kezelni.
Sajnos ez a módszer sem működik.
Range(1, columnid_1).SelectInteger adattípus jó a columnid_1 változónak?
Ebben a Case szerkezetben szeretném használni:
Select Case Params
Case Is = 1
If columnid_1 <> 0 Then Range(1, columnid_1).Select Else Range("I1").Select
Case Is = 2
If columnid_2 <> 0 Then Range(1, columnid_2).Select Else Range("I1").Select
Case Is = 3
If columnid_3 <> 0 Then Range(1, columnid_3).Select Else Range("I1").Select
Case Is = 4
If columnid_4 <> 0 Then Range(1, columnid_4).Select Else Range("I1").Select
Case Is = 5
If columnid_5 <> 0 Then Range(1, columnid_5).Select Else Range("I1").Select
Case Else
Range("I1").Select
End SelectÍgy adok értéket a változóknak:
Select Case Params
Case Is = 1
columnid_1 = ActiveCell.Column
Case Is = 2
columnid_2 = ActiveCell.Column
Case Is = 3
columnid_3 = ActiveCell.Column
Case Is = 4
columnid_4 = ActiveCell.Column
Case Is = 5
columnid_5 = ActiveCell.Column
Case Else
Range("I1").Select
End Select -
félisten
válasz Fire/SOUL/CD #8406 üzenetére
Bocsesz ezen átsiklottam: "Így szeretném használni: (az első sor columnid_1-edik oszlopába szeretnék állni, vagy ha nem akkor az I1-be)"
If columnid_1 <> 0 Then Cells(1, columnid_1).Select Else Range("I1").Select
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
m.zmrzlina
senior tag
válasz Fire/SOUL/CD #8406 üzenetére
"Ez a sor a Case szerkezet egyik ága ezért nem evidens hogy a columnid_1-nek 0-tól különbözik az értéke. Simán lehet 0 ezért kell ezt az esetet kezelni."
Ez a korábbi hsz-odból, meg ebből a kódból sem derül ki, mert a ActiveCell.Column sosem ad vissza nullát.
Gondolom a változók nullázásáról a kód más részén gondoskodsz.Illetve a változók csak akkor kapnak 0-tól különböző értéket, ha egy másik feltétel teljesül (Params változó bizonyos értékei esetén) Van amelyik a program futása során végig nulla marad.
A feladat az, hogy I1-ből indulva végigmegy az I soron és az ott lévő értékeket összehasonlítja egy változó értékével és ha az aktív cella értéke nagyobb mint a változó akkor az adott cella alatt Params-nyival (1-5) lévő cella hátterét beállítja adott színre. #8377hsz-m első kép
Úgy már működik a program, hogy minden eseményt az I1-ből indulva ellenőriz végig de ez rengeteg időt vesz igénybe. Ezért szeretném eltárolni az utolsó ellenőrzött cellát változóba, hogy ne mindig I1-ből induljon a keresés.
Az eltárolás megy is csak a visszaolvasás nem.
-
m.zmrzlina
senior tag
válasz Fire/SOUL/CD #8407 üzenetére
Range helyett Cells
Ez lett a megoldás.
Thx a lot.
-
Oly
senior tag
válasz Fire/SOUL/CD #8412 üzenetére
Így mit használjak?
Mostanában hegesztgetem a kis Formomat és néha, amikor módosítani akarom valamelyik textbox értéket, akkor feldobja ezt a hibaüzit:
Eddig egy kilép-belép után újra működött, de most nem múlik el el.
Miért csinálja ezt? Mi a nyígja?SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
Oly
senior tag
válasz Fire/SOUL/CD #8414 üzenetére
Nem makróval módosítom az értéket, hanem az űrlapon beírással.
amikor elhagyom a mezőt, akkor dobja a hibaüzit...SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
jobbacsabba
aktív tag
válasz Fire/SOUL/CD #8425 üzenetére
A program valóban pontot tesz vessző helyett. Nem lehet valahogy elkerülni ezt az automatikus átalakítást?
Új hozzászólás Aktív témák
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office