-
IT café
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!
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 -
Mutt
aktív tag
válasz Salex1 #48995 üzenetére
Szia,
Itt az én változatom a felosztásra:
Sub Atrendez()
Dim wsCel As Worksheet
Dim adatok, bont, aktualis()
Dim c As Long, i As Long
Dim oszlopok As Long, oszlopBont As Long
Dim sor As Long
Dim ertekek As String
'erre a munkalapra másoljuk az értékeket
Const cel = "Munka2"
'ezen nevú oszlopot kell sorokba bontani
Const bontani = "AH"
'a fenti oszlopnevet számmá alaktjuk
oszlopBont = Cells(1, bontani).Column
'beolvassuk a teljes adatsort
adatok = ActiveSheet.Range("A1").CurrentRegion
oszlopok = UBound(adatok, 2)
'cél munkalap beállítása
Set wsCel = Worksheets(cel)
'esetleg létező adatok törlése a cél munkalapról
wsCel.Cells.Clear
'erre szükség lehet a 11ezer sor kiírásakor
Application.ScreenUpdating = False
sor = 1
'végig megyünk a beolvasott adatokon
With wsCel
For c = 1 To UBound(adatok)
'egy átmeneti tömbbe (aktualis) beolvassuk az adatokat soronként
ReDim aktualis(1 To oszlopok)
For i = 1 To oszlopok
aktualis(i) = adatok(c, i)
Next i
'a bontani kívánt oszlopot feldolgozzuk, előtte levesszük a [ és ] jeleket
ertekek = Replace(Replace(aktualis(oszlopBont), "[", ""), "]", "")
bont = Split(ertekek, "','")
'ha üres volt a bontani kívánt érték akkor csak 1 sort kell írnunk
If UBound(bont) < 0 Then
.Cells(sor, 1).Resize(, oszlopok) = aktualis
sor = sor + 1
Else
'ha nem volt üres akkor visszont ismételni kell egymás után a dolgokat
For i = 0 To UBound(bont)
.Cells(sor, 1).Resize(, oszlopok) = aktualis
.Cells(sor, oszlopBont) = Replace(bont(i), "'", "")
sor = sor + 1
Next i
End If
Next c
End With
Application.ScreenUpdating = True
End Subüdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz andreas49 #49000 üzenetére
Szia,
Van hibaüzenet?
Ez egy UDF (saját függvény) vagyis be kell írni a munkafüzeten, ha neked olyan makró kell ami automatikusan kitölti helyetted a többi oszlopokat, akkor az már sub-routine.
Magyar Excel-ben SZÖVEGFELOSZTÁS a függvény neve, lehet hogy csak INSIDER-ben van még.üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
andreas49
senior tag
Jó a függvény is, ha nem olyan többlépcsős megoldás, mint a szövegdaraboló varázsló. Több ezer ilyen formátumot kellene átalakítanom. A legjobb az lenne, ha a munkafüzet minden munkalapján egyszere tudná elvégezni.
[ Szerkesztve ]
HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro
-
Fferi50
őstag
válasz lenkei83 #49002 üzenetére
Szia!
Az első paraméter kötelező, egy userform combo vagy listbox objektum a kód alapján. A második paraméter opcionális logikai.
Az első paraméternél meg kell adnod az objektum teljes nevét, pl. Userform1.Combobox1 (a nálad érvényes nevekkel).
A második paraméter elhagyható, illetve False esetén nem méretezi át az objektumot, True esetén átméretezi. False és True helyett természetesen bármely általad bevezetett logikai változót alkalmazhatsz amelyiknek megfelelő az értéke számodra.
Mivel nincs visszatérési értéke, így szerintem egyszerűen meghívható zárójelek nélkül, mint egy paraméterezett eljárás:ControlsResizeColumns Userform1.Combobox1,True
Üdv. -
Mutt
aktív tag
válasz andreas49 #49005 üzenetére
Szia,
Itt egy makrós változat, amely a KIJELÖLT oszlopon végzi el az átalakítást és mellé írja be a kapott értékeket. Mivel nem írtad hogy mi történjen ha a formátum nem követi az "abc (def) [ghi]" formátumot ezért ahogy nekem logikusnak tűnt írtam meg a kódot. A kommentek alapján próbáld meg módosítani.
Sub Szetszed()
Dim cella As Range
Dim adatsor As Range
Dim pos1 As Long, pos2 As Long, pos3 As Long
Dim text1 As String, text2 As String, text3 As String
'a kijelölt és adatokat tartalmazó tartományt használjuk csak
Set adatsor = Application.Intersect(Selection, ActiveSheet.UsedRange)
'végig megyünk a cellákon
For Each cella In adatsor
text1 = ""
text2 = ""
text3 = ""
'keressük a szövegben a zárójelet
pos1 = InStr(1, cella, "(")
'ha van zárójel akkor a csonkoljuk a szöveget a talált pozícióig
If pos1 > 0 Then
'ha van zárójel akkor a csonkoljuk a szöveget a talált pozícióig
text1 = Trim(Left(cella, pos1 - 1))
'keressük a szögletes árójelet
pos2 = InStr(pos1, cella, "[")
If pos2 > 0 Then
'ha van szögletes, akkor kivesszük a szöveget a zárójel utáni pozíciótól kezdve
text2 = Replace(Trim(Mid(cella, pos1 + 1, pos2 - pos1 - 1)), ")", "")
text3 = Replace(Trim(Mid(cella, pos2 + 1, Len(cella) - pos2)), "]", "")
Else
'nincs szögletes zárójel, de sima volt
pos2 = InStr(pos1, cella, ")")
text2 = Trim(Mid(cella, pos1 + 1, pos2 - pos1 - 1))
text3 = Trim(Mid(cella, pos2 + 1, Len(cella) - pos2))
End If
Else
'nem volt zárójel tartsuk meg az eredeti szöveget
text1 = cella
End If
'eredeti cella melletti oszlopokba írjuk az eredményt
cella.Offset(, 1) = text1
cella.Offset(, 2) = text2
cella.Offset(, 3) = text3
Next cella
End Subüdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
psg5
veterán
Sziasztok! A cellákban szókozokkel kerultek bevitelre számok melyeket ossze kellene adni de igy szokozokkel nem megy a szumma. Van amivel a sok szokozos számok kozul a szokozoket gyorsan ki tudom szedni?
F.K.T.
-
Delila_1
Topikgazda
Ha A1-ben van a szóközt tartalmazó számod, ezzel a képlettel az új oszlopban számot kapsz, amit majd értékként az eredeti helyére másolhatsz.
Egyszerre is számmá alakíthatod mindet, és még segédoszlop sem kell.
Beírsz egy üres cellába egy egyest, másolod Ctrl+c-vel, kijelölöd a szóközös tartományt, majd irányított beillesztés, ahol bejelölöd a szorzást.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
HREH
senior tag
Sziasztok, egy furcsasággal találkoztam ma, de hátha ti tudtok segíteni.
Adott pár csapatnév, ami mint látszik, nincs ABC-sorrendben.Ha kijelölöm a tartományt és "Sort A to Z" opcióval sorbarakom, akkor az alábbit kapom:
Azaz az Excel szerint az "O" betű előrébb van, mint a "B"?
De ha az OBU-t átrakom A9-be, akkor jól rendezi:Angol nyelvű 365, stabil és béta channel-en is kipróbltam, mindenhol ez az eredmény.
Nekem úgy tűnik, hogy az első sort nem veszi figyelembe rendezésnél.
Bármilyen ötlet?[ Szerkesztve ]
"Fun isn't something one considers when balancing the universe. But this... does put a smile on my face."
-
Fferi50
őstag
Szia!
A rendezésnél opcióként megjelölheted, hogy fejlécet tartalmaz-e. Ha ezt bejelölöd, akkor a tartomány első sorát fejlécnek tekinti és nem része a rendezésnek.
Ha üresen hagyod, akkor nincs fejléc és része a rendezésnek.
Táblázat rendezése csak fejléccel együtt megy.
Továbbá az A-Z Z-A ikonra kattintva megpróbálja kitalálni, hogy van-e fejléc, illetve a korábbi hasonló rendezés paramétereit veszi.
Üdv.[ Szerkesztve ]
-
VGYke
addikt
Sziasztok! Egy cella "értékét" pl. ELTOLÁS függvénnyel egy másik cellába "át lehet vinni". De mivel lehet "átvinni" az eredeti cellához csatolt hivatkozást?
Pl. A B2 cella értéke 10 és Beszúr-Csatolás-Cím: https://prohardver.hu/tema/excel/friss.html
C7-be írt képlet: =ELTOLÁS(A1;1;1), ami ugye a B2 cella értéke. De hogyan tudom a https://prohardver.hu/tema/excel/friss.html címet is "áthozni"?
Elnézést a kacifántos fogalmazásért.kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
lenkei83
tag
Sziasztok!
MNB árfolyamot szeretnék beolvastatni innen:
[link]
Régebben volt rá VBA megoldásom, de nem találom. Az Adatok Beolvasása/Más forrás/Web csak homokórázik.
Létezik erre VBA mentes megoldás?Köszi
P. -
VGYke
addikt
Nem jó, a feladat bonyolultabb. Egy hívjuk adatbázis munkalapról szeretném kiválogatni majd sorba rendezve egy másik munkalapon megjeleníteni a szükséges adatokat, makrók nélkül, csak képletekkel megoldva.
Már az is jó lenne, ha képlettel ki tudnám nyerni az adott cellába beszúrt hivatkozást.
lenkei83: nem jó az "Adatok beolvasása és átalakítása" (lekérdezés)?
Csak pár másodpercet játszottam vele, de nekem sikerült:
[ Szerkesztve ]
kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
VGYke
addikt
válasz lenkei83 #49020 üzenetére
Lekérdezésnél ezt a címet írd be: https://www.mnb.hu/arfolyam-letoltes?year=2022
kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
félisten
-
VGYke
addikt
válasz Fire/SOUL/CD #49023 üzenetére
Köszönöm szépen!
Sajnos a függvény nem egészen azt teszi, mint amit én szeretnék.
Összes!A$2 cellába beszúrt hivatkozás: https://ingatlan.com/salgotarjan-acelgyar/elado+lakas/tegla-epitesu-lakas/32587041
Ez a képlet:
Viszont ezt a hivatkozást adja vissza: https://onedrive.live.com/?id=8895ecab85694e80%210%2AL0xpdmVGb2xkZXJzL0Rva3VtZW50dW1vay9NZW50w6lzZWsvX19fU2FsZ8OzdGFyasOhbmkgaW5nYXRsYW4vNDQ&cid=8895ECAB85694E80kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
andreas49
senior tag
válasz lenkei83 #49020 üzenetére
Én ezt használom, sokféle lekérdezi lehetőséggel:
https://arfolyam.iridium.hu/downloadsHONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro
-
Salex1
senior tag
Tudnátok segíeni? Meg kellene számolnom, hogy az adott cellában hány tizedes jegyig vannak a számok.
16,34 > 2
3,3 > 1
találtam rá egy függvényt:
=IF(B5=INT(B5),0,LEN(B5)-FIND(".",B5,1))
Magyarosítottam:
=HA(A2=INT(A2);0;HOSSZ(A2)-KERES(",";A2;1))
Nem működik (#HIÁNYZIK).
Szétbontva olyan mintha a "," nem tetszene neki. -
félisten
Ilyen nem fordulhat elő, kivéve, ha az
Összes!A2
cellában a hiperlink URL címe és felirata eltér. Csak vidd a hiperlink fölé az egérkurzort és ellenőrizd.
Összes!A2 | Munka2!A1[ 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)
-
félisten
-
Mutt
aktív tag
válasz Salex1 #49027 üzenetére
Másik megoldás - matematikai oldalról 15 tizedesjegyig (többet úgysem tud kezelni):
=HOL.VAN(TRUE;INT((A1*10^{0;1;2;3;4;5;6;7;8;9;10;11;12;13;14;15}))/10^{0;1;2;3;4;5;6;7;8;9;10;11;12;13;14;15}=A1;0)-1A1-ben van a szám.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #49029 üzenetére
Egy harmadik megoldás
=HA(A1=INT(A1);0;KÖZÉP(A1;SZÖVEG.KERES(",";A1)+1;15))
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Salex1
senior tag
válasz Fire/SOUL/CD #49029 üzenetére
Köszönöm működik.
Mutt a tiédet is próbáltam, de az nem megy. Azt írja ki a cellába: ?NÉV
-
félisten
válasz Salex1 #49032 üzenetére
Mutt megoldása működik, csak egy kis bakit vétett (legjobbakkal is előfordul), a képletben véletlenül TRUE-t használt, át kell csak írnod IGAZ-ra.
[ 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)
-
escsé
tag
Sziasztok!
Vann-e olyan funkció, amellyel olyan nyomtatási oldaltörést tudok adni, ami üres sorokat vesz figyelembe? Tehát, ha nem fér ki az adott oldalra, akkor az előző üres sornál töri el a nyomtatást.
-
félisten
"Tehát, ha nem fér ki az adott oldalra, akkor az előző üres sornál töri el a nyomtatást."
Nem biztos, hogy jól értelmezem a kérdésed, de hátha segít a válasz...
Excel-ben 2 fajta oldaltörés van, Automatikus ill. kézi. Oldaltöréses nézetben az előbbit vastag kék szaggatott vonallal, utóbbit vastag kék folytonos vonallal jelöli az Excel.
(Normál nézetben is látszódnak, csak vékony fekete szaggatott/folyamatos vonallal jelöli, nehezebb látni)Ha egy oldalra nem fér el valami, akkor az automatikus oldaltörés lép érvénybe (amit nem lehet állítani, automatikusan igazodik a lapmérethez (A4-es lap pl.) ill. a margóbeállításokhoz stb) ergó automatikusan új oldalon folytatódik a nyomtatás.
Ebbe az automatikus folyamatba lehet beavatkozni a kézi töréspontok alkalmazásával, mert az mindig ott töri el az oldalt, ahova teszed, de automatikusan "vándorol" ha pl. az Excel táblázat bővül/csökken sorokkal, stb stb.Példaként itt létrehoztam 2 táblát, az elsőt jelképesen 0-val kitöltve, a másodikat meg 1-el kitöltve.
Alapállapot
2. tábla elé kézi oldaltörés
1. táblába sok sor beszúr, kézi oldaltörés vándorol
Szóval itt az 1. tábla (0-val kitöltve) több oldalra kerül folyamatosan, az automatikus oldaltörés gondoskodik erről, de 2. tábla (1-el kitöltve), mindig új oldalra fog kerülni.[ 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)
-
VGYke
addikt
válasz Fire/SOUL/CD #49028 üzenetére
kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
VGYke
addikt
válasz lenkei83 #49024 üzenetére
Egyébként amit te linkeltél az ez:
https://view.officeapps.live.com/op/view.aspx?src=https%3A%2F%2Fwww.mnb.hu%2Farfolyam-letoltes%3Fyear%3D2022&wdOrigin=BROWSELINK
(eltér ettől: https://www.mnb.hu/arfolyam-letoltes?year=2022)
Ha a fenti hosszú címet írjuk be a lekérdezendő címként, valóban görcsre fut...[ Szerkesztve ]
kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
félisten
Akkor csak arról van szó, hogy leklónozd a hiperhivatkozást? Ha igen, akkor
1. ELTOLÁS fx-re semmi szükség
2. Csak makróval lehet megoldani (tudom, írtad, hogy makró nélkül, de úgy nem megy)
# ALT+F11
# ThisWorkbook/jobb egér/Insert Module
# beilleszted az alábbi kódotFunction FireGetURLFromHyperlink(MySrcRange As Range) As String
FireGetURLFromHyperlink = MySrcRange.Hyperlinks(1).Address
End Function# így hivatkozol egy hiperlinket tartalmazó cellára
=HIPERHIVATKOZÁS(FireGetURLFromHyperlink(Összes!A2);Összes!A2)
[ 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)
-
Lasersailing
senior tag
Sziasztok,
Office 365 angol, userformon adatbekérés, majd adatok kimentése másik file-ba (szerk)
Írok egy programot, aminek segítségével adatokat lehet szkennerrel beolvasni. Egymás után három adat kerül beolvasásra (megrendelés száma, cikkszám, dbszám). Ezek beolvasása működik is jól. Ha mindhárom adat beolvasása megtörténik, akkor egy másik excel file-t megnyitok, kiírok adatokat, majd bezárok. Ez is működik. A gondom az, hogy az adat kiírás után szeretném, ha egyből tudna a felhasználó újra szkennelni, de jelenleg nem tud, mert a userform nem aktív az adatkiírás után. Ha rákattintok a userform-ra, akkor lehet egyből szkennelni tovább (azaz a megfelelő mező aktív a userformon belül), de nem a megfelelő ablak az aktív windows-on belül. Erre tudtok megoldási ötletet adni?
[ Szerkesztve ]
-
Mutt
aktív tag
válasz Lasersailing #49041 üzenetére
Kiírás után <userform>.Show esetleg?
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Fferi50
őstag
válasz Lasersailing #49043 üzenetére
Szia!
Hol található a kiíró-mentő programrész? A Userform kódlapján vagy általános modulban?
A fájlt muszáj mindig megnyitni és bezárni a kiírás miatt?
Nagyon nem szép módon a kiírás előtt Userform.Visible= False, utána Userform.Visible=True esetleg segít?
Üdv. -
lenkei83
tag
Sziasztok!
Van egy ilyenem:
=CELLA("address";INDIREKT("D"&SOR()))
és egy ilyenem:=CÍM(SOR();4;4)
amiknek a végeredmény sortól függően pl: $D$2 és D2. Ebből szeretnék tartományt:$D$2:D2
Gondolom, hogy az indirekt fog kellenei, de nem jövök rá, hogy hogyan.Köszi
P.[ Szerkesztve ]
-
VGYke
addikt
válasz Fire/SOUL/CD #49038 üzenetére
Köszönöm szépen. Sajnos kell az eltolás (vagy valami hasonló, FKERES, stb) függvény, mert a Keres munkalapra hozom át az Összes munkalap válogatott sorait.
Keres munkalapon beírom az utcanevet, és csak az ennek megfelelő sorok jelennek meg, ide szerettem volna nem csak a N0: oszlop tartalmát, hanem a hivatkozásait is áthozni...
Keres munkalap:
kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
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.[ Szerkesztve ]
-
félisten
Ha a legelején ezt így írtad volna le, akkor nem kellett volna köröket futni...
Én biztos nem foglalkoznék se képlettel, se makróval ez esetben, hanem az Összes lapon egy szűrőt dobnék a 2. sorra, az alapján bármely oszlop szerint lehet szűrni, szűrés után kijelölni a szűrt sorokat, aztán copy-paste-el meg beilleszteni a Keres lapra, ennyi(hivatkozások is jók lesznek).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)
Új hozzászólás Aktív témák
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz