- Poco F5 - pokolian jó ajánlat
- Fotók, videók mobillal
- Megjelent a Poco F7, eurós ára is van már
- Telekom mobilszolgáltatások
- Vivo V40 5G - az első benyomás fontos
- Xiaomi 14T Pro - teljes a család?
- Yettel topik
- Brutál akkuval érkeztek az Ulefone X16 modellek
- Xiaomi 15 - kicsi telefon nagy energiával
- iPhone 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
-
poffsoft
veterán
válasz
bteebi
#29730
üzenetére
Option Explicit
Sub kivalaszt()
Dim ar As String, lastrow As Double, lr As Double, sor As Double
lastrow = Sheets("forras").UsedRange.Rows.Count
lr = Sheets("adat").UsedRange.Rows.Count
On Error Resume Next
For sor = 2 To lr
ar = Application.WorksheetFunction.VLookup(Sheets("adat").Cells(sor, 1), Sheets("forras").Range("A1:B" & lastrow), 2, False)
If Err.Number <> 0 Then ar = "'#HIÁNYZIK"
Sheets("adat").Cells(sor, 2) = ar
Next
End Subvalójában nem találja a keresett adatot a vlookup...
-
#29613
poffsoft
veterán
m.zmrzlina
#29612
poffsoft
veterán
válasz
m.zmrzlina
#29612
üzenetére
tudtommal nem.
esetleg helyette ez:[link] -
#29607
poffsoft
veterán
m.zmrzlina
#29604
poffsoft
veterán
válasz
m.zmrzlina
#29604
üzenetére
megpróbálom.
Köszi!
-
poffsoft
veterán
-
poffsoft
veterán
válasz
Belnir
#29469
üzenetére
Option Explicit
Public aktualis
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastrow As Long
Dim akt_lap As String: akt_lap = ActiveSheet.Name
Dim fso As Object
Dim logfile As Object
' If Target.Count <> 1 Then Exit Sub
' If aktualis = Target.Value Then Exit Sub
Application.ScreenUpdating = False
Set fso = CreateObject("Scripting.FileSystemObject")
Set logfile = fso.OpenTextFile("\eleresi_ut\log.txt", 8, True)
logfile.WriteLine ("VÁLTOZTAT" & " - " & Format(Now, "YYYY.MM.DD hh:mm:ss") & " - " & Environ$("username") & " - " & Application.UserName & " - " & Environ$("computername") & " - " & Target.Parent.Name & " - " & Target.Address & " - " & aktualis & " - " & Target(1, 1).Value & " -+")
logfile.Close
Set logfile = Nothing
Set fso = Nothing
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
aktualis = ActiveCell.Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
aktualis = ActiveCell.Value
End Sub -
poffsoft
veterán
válasz
Belnir
#29454
üzenetére
az if aktualis=
vizsgàlat miért kell?
ha a ws_change eventben vagy, tuti, hogy szerkesztettek, logold.
plusz ha valaki több cellát módosít, töröl egyszerre, arról sincs logod.
esetleg az
if target.count
helyett az értéket csak az 1. cellában nézd:
target(1,1).value
?
a writeline végére még beszúrnék egy lezáró "-" -t, hogy látsszon az üres érték is (ami a törlés). -
poffsoft
veterán
-
poffsoft
veterán
én sem értek hozzá.
Beleír, majd menti, megerősítő kérdés nélkül.
A kolléga problémája a sima ixre adott "Nem" mentjük válasz volt (meg nekem is).Lehetne játszani a dirty flagekkel, de ahhoz kellene, hogy ércsek hozzá, ami meg nem igaz.
De ha van elegánsabb, jobbszebb megoldásod, meghallgatunk
Amúgy szerintem -lajikusként- az exit eventben történő mentés után már nem tér vissza az afters
have eventbe, mert előtte megkapja a killt.De erről Delilát kérdezd inkább, ő tényleg ért hozzá.
üdv: latzi, üdv.
-
poffsoft
veterán
válasz
Belnir
#29358
üzenetére
majd belejössz!
Én amúgy a "Rejtett" lapot minden futtatáskor rejtetté is tenném, biztos ami tuti... Ha nem látják, nem szerkesztenek bele...
Az Application.ScreenUpdating = False után: (de ez nem biztos, hogy kell..)
Worksheets("Rejtett").Visible = xlSheetVisible
Az Application.ScreenUpdating = True elé:
Worksheets("Rejtett").Visible = xlSheetVeryHidden
Delila_1: tudom, olvastam
. Örülök, hogy használod -
poffsoft
veterán
válasz
PETEE78
#29240
üzenetére
majdnem jó
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
Dim i As Integer
i = 1
Do While i < 31
FromPath = "C:\TS AKTUÁLIS\2015.10." & right("0" & i ,2)
ToPath = "C:\TS AKTUÁLIS\OKTÓBER"
If Right(FromPath, 1) = "\" Then
FromPath = Left(FromPath, Len(FromPath) - 1)
End If
If Right(ToPath, 1) = "\" Then
ToPath = Left(ToPath, Len(ToPath) - 1)
End If
Set FSO = CreateObject("scripting.filesystemobject")
If FSO.FolderExists(FromPath) = True Then
FSO.CopyFolder Source:=FromPath, Destination:=ToPath
End If
i = i + 1
Loop
MsgBox "You can find the files and subfolders from " & FromPath & " in " & ToPath
End Sub -
#29219
poffsoft
veterán
germinator66
#29215
poffsoft
veterán
válasz
germinator66
#29215
üzenetére
akkor a tartomány és a képlet nincsen összhangban...
Delila képlete a 2-100. sorra működik, a H oszlopot figyeli minden sorban... -
poffsoft
veterán
-
poffsoft
veterán
válasz
Delila_1
#28820
üzenetére
nem jó, az volt az első próba.
osztályváltáskor kell színt váltania a színezésnek, és lehet olyan osztály, aminek 0 eleme van.
azt kellene minden cellánál megnézni, hogy hányadik olyan osztályban van, ami nem nulla, és ezt már lehene páros-páratlan figyeléssel színhez kötni. -
poffsoft
veterán
Eléggé zavaros.
Nem tudom, miért osztással próbálkozol, ha a feladat az osztályképzéssel indult, valószínű a formázásnál is az osztályokat kellene használni.feltételes formázással add meg ugyanígy:
fehér háttér:
=VAGY((A2>=2650);ÉS(A2<2639;A2>=2630);ÉS(A2<2619;A2>=2610);ÉS(A2<2599;A2>=2590);ÉS(A2<2579;A2>=2570);ÉS(A2<2559;A2>=2550);ÉS(A2<2539;A2>=2530);ÉS(A2<2519;A2>=2510))
kék háttér:
=VAGY(ÉS(A2<2649;A2>=2640);ÉS(A2<2629;A2>=2620);ÉS(A2<2609;A2>=2600);ÉS(A2<2589;A2>=2580);ÉS(A2<2569;A2>=2560);ÉS(A2<2549;A2>=2540);ÉS(A2<2529;A2>=2520);(A2<2509))nem nagyon értem, mi a feladat...
a leírásod szerint mégsem az osztályok szerint kell színezned (azért kék a következő is, mert a köztük lévő osztály gyakorisága 0 (nincs ilyen adat).
most akkor pontosan mi is a feladat?
segédoszlopok nélkül?
ha egy osztályköz üres, azt ne vegye figyelembe a feltételes formázás?
ez szép feladat, most nem is vállalnám be... -
poffsoft
veterán
ez feltételes formázás lesz, elvileg cellaérték alapján, de képlettel is megoldható.
minden osztálynak más színt kell adni?
mert a gyakoriság leírása szerint: az osztály felső, alsó határával (HF, HA ) kifejezve x-et:
HF1> x >=HA1
HF2=HA1> x >=HA2
vagyis:
1. osztály: ]HF1 - HA1]; [HF2 - HA2];ezt én annyi feltételes formázással tudom megadni, ahány osztályod van.
Kijelölöd az adattartományt, és egyesével hozzáadod ezeket a feltételeket a formázáshoz:
1.) =ÉS(A2<1000000;A2>=2300)
2.) =ÉS(A2<2300;A2>=2290)
3.) =ÉS(A2<2290;A2>=2280)
... -
#28755
poffsoft
veterán
the radish
#28753
poffsoft
veterán
válasz
the radish
#28753
üzenetére
miért lépne ki?
az if then lefuttatja a cserét, és megy tovább a makród.if worksheet("munka1").range("A1")=1 then
Dim Zelle As Range
For Each Zelle In Selection.Cells
Zelle.NumberFormat = "@"
Zelle.Value = Replace(Zelle.Value, ",", ".")
Next Zelle
ELSE
blabla2
blabla2
END IF?
vagy nem értelek. -
#28754
poffsoft
veterán
the radish
#28753
poffsoft
veterán
válasz
the radish
#28753
üzenetére
dupla
-
poffsoft
veterán
válasz
Melack
#28733
üzenetére
mi a képlet a conditional formattingnál?
ha az A1-ben kezdődik a validálásod, állj az a1 cellára,
magyarban a "formázandó cella kijelölése képlettel", a képlet pedig:
=$A1="close"
ehhez beállítod a formátumot.
az "Érvényesség" tartományba pedig =$1:$100megjegyzem, hogy teljes sorokat nem érdemes formázni, célszerűbb helyette az adattábla tartományát megadni.
-
poffsoft
veterán
válasz
Fferi50
#28712
üzenetére
lassan megtanulom azért a VBA-t így segítséggel.
Ma a Global volt a második nyerő deklaráció tőled, kb. 1 hónapnyi javítást meg is csináltam ma a kódomon
Az iteráció tiltást/visszaállítást is a workbook open / beforeclose rutinra bíztam, így nem panaszkodik a körkörös többé -
poffsoft
veterán
válasz
Fferi50
#28709
üzenetére
ilyesmit próbáltam, a thisworkbook.open eseményben deklaráltam public-ot, de azt a module1-ből már nem látta a sub.
a globalnak utánanézek, nem ismeremja, az egésszel azért vacakolok, mert magát a főrutint a selection.change esemény hívja meg (és annak is kell meghívnia), és eléggé belassul a munka...
-
poffsoft
veterán
válasz
Fferi50
#28707
üzenetére
modul szinten kellene állandó, de ugye public vagy const változó nem lehet tömb.
az a bajom, hogy egy futtatás során több százszor feltöltöm ezt a tömböt, a sub minden meghívásakor,
pedig elég lenne a modul "inicializálásakor".
azok a "ciklust vezérlő" változóim modul szintű public const -ok.
ciklus nélkül is feltölthetném, a range megoldás jó is lehetne, de akkor is csak a modul inicializálásakor.
tömb helyett azt nem lehet megoldani pl, hogy konstansként deklarálom a:
elem11
elem12
elem22
-t,
és ezeket indirekten generált nevükkel érem el?a= indirect.elérés("elem" & i & j)
módjára?a körkörös képlet kiértékelésekor már nem talál hibát, ezért merem állítani, hogy nem körkörös (meg szerintem sem az). mondjuk eltolás fv range kijelöléséhez használ cellaértéket a képlet, ami ha a cellaérték helyett 0-t helyettesít be, valóban körkörös.
Az iteráció kikapcsolását találtam én is, de pont a leírtad aggaszt engem is... -
poffsoft
veterán
sziasztok,
van egy makró, amiben tömböt használok.
Ezt a tömböt minden futtatásnál fel kell töltenem (amúgy konstansok lesznek a futás alatt)
Ezt hogyan lehetne valódi konstansokkal megoldani, hogy ne kelljen minden futáskor feltöltenem?
(a General szekcióban gondoltam, hogy a teljes modulra érvényes állandók legyenek)
Feltétel, hogy a tömbhöz hasonlóan indexekkel tudjak hivatkozni rájuk.
Azt tudom, hogy tömböt ott nem tudok deklarálni, de megoldásom nincsen...
Sub Keretek(ByVal Target As Range)
Dim i As Long
Dim lean() As Long
Dim omax As Long, omin As Long, omed As Long, oTh As Long
Dim negy As Long
negy = 4
omax = 6
omin = 1
omed = 2
oTh = 5
ReDim lean(1 To 2, 0 To omax + 1) As Long
For i = 0 To omax + 1
Select Case i
Case 0
lean(1, i) = xlDash 'szaggatott
lean(2, i) = xlHairline 'hajszál
Case 1 To omin
lean(1, i) = xlContinuous 'foly
lean(2, i) = xlThick 'vastag
Case omin + 1 To omed
lean(1, i) = xlContinuous 'foly
lean(2, i) = xlMedium 'közepes
Case omed + 1 To oTh
lean(1, i) = xlContinuous 'közepes
lean(2, i) = xlThin 'vékony
Case Else
lean(1, i) = xlNone 'folyamatos
lean(2, i) = xlThin 'vékony
End Select
Next i
'.....
End SubMásik gondom, hogy rendszeresen felugrik egy hibaablak, hogy "körkörös hivatkozások" vannak (ami amúgy nem igaz, de elhiszem az excelnek, hogy úgy gondolja), és ez munka közben elég zavaró.
Ezt hogyan lehetne letiltani ? Remélem, nem csak globálisan az összes hibaüzenet letiltásával, mert az nem lenne szerencsés megoldás...
-
#28661
poffsoft
veterán
szőröscica
#28660
poffsoft
veterán
válasz
szőröscica
#28660
üzenetére
szia,
ha jól értettem:Sub pasteall()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim PL, files As Variant
Dim i, j As Long
Dim k, l, m, n As Long
Dim wbname As String
Dim rng As Range
Dim rw As Range
Dim cell As Range
' select this workbook and clear all the input sheets
wbname = ThisWorkbook.Name
Workbooks(wbname).Activate
Sheets("Data Sheet").Activate
Range("D4:U1000000").ClearContents
'copy data
For i = 1 To Range("WorkbookCount").Value
workbookpath = Range("Workbook_Name_Header").Offset(i, 0)
PL = Range("Desk_Name_Header").Offset(i, 0)
files = Range("File_Name").Offset(i, 0)
Workbooks.Open (workbookpath)
Sheets("Data").Activate
Range("A65000").Select
Selection.End(xlUp).Select
l = Selection.Row
Range("A2:W" & l).Select
Selection.Copy
Workbooks(wbname).Activate
Sheets("Data Sheet").Activate
Range("A1035000").Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
'Uj resz
Set rng = Selection
For Each rw In rng.Rows
rw.Select
Set cell = Selection.Find(What:="q", After:=Selection(1, 1), LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not cell Is Nothing Then
Selection.EntireRow.Delete
Else
Set cell = Selection.Find(What:="d", After:=Selection(1, 1), LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not cell Is Nothing Then Selection.EntireRow.Delete
End If
Next
' Uj resz vege
Application.CutCopyMode = False
Workbooks(files).Activate
ActiveWorkbook.Close
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End SubNem teljesen dolgoztam fel, mit is csinál a makród, de ezek a címzések picit bonyolultnak tűnnek a range-k-hez...
-
#28658
poffsoft
veterán
m.zmrzlina
#28657
poffsoft
veterán
válasz
m.zmrzlina
#28657
üzenetére
Igen, találtam közben róla valamit.
RANGE-nel maradva a selection + cutcopymode lesz a megoldás.
Csak sajna ez más objecteket (diagram) lenyel...
persze most jobban belegondolva, lehet hogy a selection "visszaállítása" is elég lesz. -
#28655
poffsoft
veterán
m.zmrzlina
#28653
poffsoft
veterán
válasz
m.zmrzlina
#28653
üzenetére
És ha pl. éppen teljes sorok, vagy range van benne, esetleg kép?
egyáltalán hogyan érem el a clipboardot? -
poffsoft
veterán
válasz
karlkani
#28584
üzenetére
Sub Auto_Meret()
Dim CV, kom, ter As Range
Set ter = Range("D:D, I:I")
For Each CV In ter
Set kom = Range(CV.Address).Comment
If Not kom Is Nothing Then 'ha van megjegyzés
kom.Visible = True
kom.Shape.Select
Selection.AutoSize = True
kom.Visible = False
End If
Next
End Sub -
#28575
poffsoft
veterán
Claude Leon
#28573
poffsoft
veterán
válasz
Claude Leon
#28573
üzenetére
nincs előttem, de talán a nézet menüben van az a kapcsoló... vagy a képletek?
-
-
poffsoft
veterán
válasz
Golota
#28439
üzenetére
egy excel file egy munkafüzet, több munkalappal.
a munkalapoknak külön hozzáférési szintek?
létezik, vba, de higy mennyiben natív?
én személy szerint a sharepoint jogosultságkezelését használnám, minden felhasználói csoport saját dokutárban dolgozik, az admin pedig mindet látja, a master file-t meg a dokutárakból kell összelapátolni. -
poffsoft
veterán
válasz
hengelhof
#28434
üzenetére
nem vagyok aritmetika tudor, de csak te gondolod, hogy egész számok. ràadásul még dátumértékek is.
mindent lebegőpontosként számít, és ott fordulnak elő gixerek. sajna az excel nem tökéletes számológép.spe88: nálam működött, a te megoldásod komplikàltabbnak látszik.
de ha működik, ne bántsuk :-) -
poffsoft
veterán
nem pontosan értem a kérdést.
nem a vkeres() kellene neked?
=VKERES("*";A2:AA2;1;HAMIS)
A második sorban megkeresi az első nemüres cellát pl.
Meg azt sem értem, hogy a képlet honnan tudhatná, hogy most éppen angol, francia, kiszuahéli szöveget fog találni?
pontosítsd a kérdést, kérlek..
-
#28241
poffsoft
veterán
nyirisandor
#28232
poffsoft
veterán
válasz
nyirisandor
#28232
üzenetére
Nem , még csak most végeztem.
Delila megoldását is alkalmazva, a munka1-en makrós, munka2-n függvényes megoldás
[link] -
#28231
poffsoft
veterán
nyirisandor
#28230
poffsoft
veterán
válasz
nyirisandor
#28230
üzenetére
töltsd fel a data.hu-ra (vagy a google drive-odra, ha van), és a letöltő linket posztold ide.
Vagy küldd el emailben. -
#28215
poffsoft
veterán
nyirisandor
#28212
poffsoft
veterán
válasz
nyirisandor
#28212
üzenetére
Szia,
google tömbképletes megoldásokat kínál.
Ha lehet makróval is:
Dim row As Range
Dim elements() As String
Dim elementSize As Integer
Dim newElement As Boolean
Dim i As Integer
Dim distance As Integer
Dim result As String
elementSize = 0
newElement = True
For Each row In rng.Rows
If row.Value <> "" Then
newElement = True
For i = 1 To elementSize Step 1
If elements(i - 1) = row.Value Then
newElement = False
End If
Next i
If newElement Then
elementSize = elementSize + 1
ReDim Preserve elements(elementSize - 1)
elements(elementSize - 1) = row.Value
End If
End If
Next
distance = Range(Application.Caller.Address).row - rng.row
If distance < elementSize Then
result = elements(distance)
listUnique = result
Else
listUnique = ""
End If
End Functionha megvan a lista, már csak egy sima DARABTELI() amire szükséged van.
A példatáblát jobb lenne xls formátumban mellékelni
-
poffsoft
veterán
válasz
earthy
#28206
üzenetére
szia,
hahiba(képlet ha nemhibás; érték ha hibás a képlet eredménye)
indirekt: szöveggel megadott hivatkozás értéke
cím(sor, oszlop): hivatkozást ad a sor, oszlop cellára.
hol.van : megkeresi a tartomány első üres celláját
megjegyzem, a sor(B2) helyett én sor()-t használnék. -
-
#28181
poffsoft
veterán
ritterkrisz
#28180
poffsoft
veterán
válasz
ritterkrisz
#28180
üzenetére
simán használd az & -et:
D1-be:
="x y z -- " & "xx: " & A1 & ", yy: " & B1 & ", zz: " & C1 -
poffsoft
veterán
válasz
morgusz
#28171
üzenetére
upsz, kis hiba maradt,
az a selection.clear nem kell a vége felé!Sub proba()
Dim lista() As String
Dim i As Long
Dim usor As Long ' last used row in source sheet
Dim lrow As Long ' last row in this sheet
Dim scol As Long ' first column of actual formulas source
Dim ecol As Long ' last column of actual formulas source
lista = Split("Munka1,Munka2,Munka3,Munka4,Munka5,Munka6,Munka7,Munka8,Munka9", ",")
Worksheets(lista(0)).Activate
For i = 1 To UBound(lista)
usor = Worksheets(lista(i)).UsedRange.Rows.Count
scol = ((i - 1) * 4) + 1
ecol = ((i - 1) * 4) + 3
lrow = Range(Cells(3, scol), Cells(Rows.Count, ecol)).End(xlUp).Row
If lrow < 3 Then lrow = 3
ActiveSheet.Range(Cells(3, scol), Cells(lrow, ecol)).Clear
Range(Cells(2, scol), Cells(2, ecol)).Copy Destination:=Range(Cells(3, scol), Cells(usor, ecol))
Next i
End Sub -
poffsoft
veterán
válasz
morgusz
#28171
üzenetére
Sub proba()
Dim lista() As String
Dim i As Long
Dim usor As Long ' last used row in source sheet
Dim lrow As Long 'last row in this sheet
Dim scol As Long ' first column of actual formulas source
Dim ecol As Long ' last column of actual formulas source
lista = Split("Munka1,Munka2,Munka3,Munka4,Munka5,Munka6,Munka7,Munka8,Munka9", ",")
Worksheets(lista(0)).Activate
For i = 1 To UBound(lista)
usor = Worksheets(lista(i)).UsedRange.Rows.Count
scol = ((i - 1) * 4) + 1
ecol = ((i - 1) * 4) + 3
lrow = Range(Cells(3, scol), Cells(Rows.Count, ecol)).End(xlUp).Row
If lrow < 3 Then lrow = 3
ActiveSheet.Range(Cells(3, scol), Cells(lrow, ecol)).Clear
Selection.Clear
Range(Cells(2, scol), Cells(2, ecol)).Copy Destination:=Range(Cells(3, scol), Cells(usor, ecol))
Next i
End Suba lista=split( után az idézőjelek között vesszővel elválasztva kellenek a munkalapnevek.
Munka1 az összesítő lap neve, a többi pedig a források, ahogyan mondtad, Munka2-től Munka9-ig. -
#28169
poffsoft
veterán
dellfanboy
#28167
poffsoft
veterán
válasz
dellfanboy
#28167
üzenetére
jobbklikk a diagramon, "előrehozás", "hátraküldés"
-
#28165
poffsoft
veterán
dellfanboy
#28161
poffsoft
veterán
válasz
dellfanboy
#28161
üzenetére
Új hozzászólás Aktív témák
Hirdetés
- Sea of Thieves Premium Edition és Egyéb Játékkulcsok.
- 27%-OS ÁFÁS SZÁMLA I Jogtiszta Microsoft digitális és fizikai termékek I DIGITALKEYZ.COM
- Assassin's Creed Shadows Collector's Edition PC
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Apple iPhone 13 . 128GB , Kártyafüggetlen , 100% akku
- ÁLTALÁNOS IGAZGATÓHELYETTES tábla
- 137 - Lenovo Legion Pro 7 (16IRX9H) - Intel Core i9-14900HX, RTX 4080
- ÁRGARANCIA! Épített KomPhone Ryzen 5 9600X 32/64GB RTX 5070 12GB GAMER PC termékbeszámítással
- Xiaomi 11T Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest