- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Elektromos rásegítésű kerékpárok
- Imilenni: Egy kis depi, remélem elfér itt :) 2#
- sziku69: Szólánc.
- hcl: Kelj fel komám, ne aludjál
- Luck Dragon: Asszociációs játék. :)
- GoodSpeed: Samsung 980 PRO 1TB M.2 (MZ-V8P1T0BW) vs Samsung 990 PRO 2TB M.2 (MZ-V9P2T0BW)
- Magga: PLEX: multimédia az egész lakásban
- bambano: Bambanő háza tája
-
LOGOUT
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
-
ReSeTer
senior tag
Helló!
Fel lehet valahogy használni egy funkción belüli változót a főmakróban?
Function peldafunkcio (a as integer, b as integer) as integerpeldafunkcio=a+beztakaromfelhasznalni=a-bEnd FunctionSub fomakro()egyebvaltozo=valami+eztakaromfelhasznalniEnd SubEzt így nem lehet, mert üresen áll a "eztakaromfelhasznalni" váltózó miután visszatér a program a fomakro-ba.
-
-
Czmorek
aktív tag
Sziasztok!
Az alábbi kérdéssel fordulnék hozzátok:
Egy oszlop értékeit összeadom egy cellában =SZUM(B1:B33)
Most én hozzá szeretném adni egy másik oszlop adatait is pl. az F és G oszlopét is (sorok számai ugyanazok)Egy másik:
Hogyan lehetne beállítani egy cellánál, hogy amíg nem éri el a pozitív értéket a számok mennyisége, addig ne jelenítsen meg negatív számot, hanem 0 legyen ott addig amíg nem ér pozitívba?
Köszönöm! -
Fferi50
Topikgazda
válasz
eszgé100
#47881
üzenetére
Szia!
Apróságokat tennék hozzá, talán gyorsít valamit rajta:
1. Kérdés: ahol Save&Close =no ott nem kell bezárni a fájlt? Mert ebben az esetben sok-sok fájlod nyitva fog maradni.
Ha mégis be kell zárni, akkorIf CStr(saveandclose) = "yes" Then
Excel.Workbooks(fileName).Close SaveChanges:=True
Else: GoTo nextraw
End If
helyett javaslom:Excel.Workbooks(fileName).Close SaveChanges:= CStr(saveandclose) = "yes"
Ha nyitva kell hagyni, akkor is elég az IF-es sor a következőképpen:If CStr(saveandclose) = "yes" Then Excel.Workbooks(fileName).Close SaveChanges:=True
Nem kell hozzá ELSE és END IF.
2. Javaslat: én nagyon nem szeretem az ugrálást makrón belül, általában mindig meg lehet oldani e nélkül a feladatot. Nálad 2 cimke van: openworksheets és nextraw.
Egy új változó bevezetésével el lehet kerülni a cimkéhez ugrást.
Dim nyomtatni As Boolean
Ennek a változónak adunk értéket a Select Case utasításokon belül - ezt is egy picit egyszerűsítve:Select Case CStr(freq)
Case "4 weekly", "monthly"
nyomtatni = True
Case "2 monthly"
nyomtatni = Month(nextmonth) Mod 2 = 1
Case "3 monthly"
nyomtatni = Month(nextmonth) Mod 3 = 1
End Select
A két cimke helyére pedig:openworksheets: helyett:
If nyomtatni Then
.
.
nextraw: helyett
End If
Áttekinthetőbb és szerintem gyorsabb is lehet.
3. Kérdés:
Milyen szűrést szeretnél? Hol lenne helye a hibakezelésnek?Üdv.
-
ReSeTer
senior tag
Helló!
Lehet olyat csinálni VBA-ban, hogy csinálok egy sablon kódsort, és azt behívom máshol ott megadott értékekkel?
Sablonkod()
A=
B=
Sor=
Oszlop=
Muvelet=A+BCell(Sor,Oszlop).Text=Muvelet
End Sablonkod
És akkor ezt így használnám egy másik kódban:
Masikprogram()
Call Sablonkod(A=4,B=8,Sor=1,Oszlop=3)
End Masikprogram
Bocs, tudom, hogy ez így nem helyes, még tanulom a VBA-t, de remélem a lényeg átjön.
Lehet ilyet csinálni? Valami olyat találtam, hogy egy funkció visszaad egy változót, de nekem nem kell, hogy visszaadjon bármit is, inkább csináljon valamit, mint pl fent, hogy átír egy cellát. -
Fferi50
Topikgazda
Szia!
Biztos, hogy dátum az amit ott kapsz? Szerintem szöveg, csak dátumnak gondolod.
Nézd meg a cellaformátumot légy szíves és próbáld átállítani számra.
Ha szám lesz belőle, akkor dátum és csak formátumot kell változtatni.
Ha marad ilyen, akkor szöveg és függvényekkel tudod dátummá alakítani segédoszlopban, pl.
=Dátum(jobb(A1;4);közép(A1;4,2);bal(A1;2))
Üdv. -
cekkk
veterán
Sziasztok!
A DÁTUMTÓLIG fügyvényt szeretném használni, de nem találom az excelben.
Hogyan tudom megívni ezt a függvényt?
-
zoombiee
csendes tag
Sziasztok,
Bár nem excel, hanem google sheet kérdés, de remélem azért maradhat.Szeretnék olyan megoldást, mint amit néhány weboldalon láttam:
Jobb klikk másol és ctrl+c tiltva van az adatok ellophatósága végett.Ez megolható google felületen, vagy csak html kódban működhet?
Segítséget előre is köszönöm!
Üdv: Dani -
Delila_1
veterán
válasz
eszgé100
#47881
üzenetére
Gyorsíthatod a futást, ha nem állsz rá lépten-nyomon egyes cellákra. 5 ilyen feltételt láttam.
If CStr(dat) <> "" ThenSheets(ssheet).SelectRange(dat).SelectActiveCell.Formula = sDateEnd Ifhelyett írd ezt
If CStr(dat) <> "" Then Sheets(ssheet).Range(dat).Formula = sDate -
eszgé100
őstag
válasz
Fferi50
#44543
üzenetére
"Nem tudom hány xls-ed van, de nem hiszem, hogy mindegyiket külön-külön el kellene látni ugyanazon funkciókat végző makrókkal. Én egy alap Excelt használnék, amiben a makrók benne vannak és abból intézném az összes többinek a megnyitását és kezelését. Így csak egy fájlt kell karbantartani, nem pedig x db-ot.
De lehet, hogy rosszul látom.
Üdv."Üdv Fferi50,
Nem láttad rosszul a dolgokat, jelenleg így állok a dologgal:
Ez a kód lefut megnyitáskor:
Option Explicit
Private Const HKEY_CURRENT_USER As Long = &H80000001
Private Const HKCU = HKEY_CURRENT_USER
Private Const KEY_QUERY_VALUE = &H1&
Private Const ERROR_NO_MORE_ITEMS = 259&
Private Const ERROR_MORE_DATA = 234
Private Declare PtrSafe Function RegOpenKeyEx Lib "advapi32" _
Alias "RegOpenKeyExA" ( _
ByVal HKey As Long, _
ByVal lpSubKey As String, _
ByVal ulOptions As Long, _
ByVal samDesired As Long, _
phkResult As Long) As Long
Private Declare PtrSafe Function RegEnumValue Lib "advapi32.dll" _
Alias "RegEnumValueA" ( _
ByVal HKey As Long, _
ByVal dwIndex As Long, _
ByVal lpValueName As String, _
lpcbValueName As Long, _
ByVal lpReserved As Long, _
lpType As Long, _
lpData As Byte, _
lpcbData As Long) As Long
Private Declare PtrSafe Function RegCloseKey Lib "advapi32.dll" ( _
ByVal HKey As Long) As Long
Public Function GetPrinterFullNames() As String()
Dim Printers() As String ' array of names to be returned
Dim PNdx As Long ' index into Printers()
Dim HKey As Long ' registry key handle
Dim Res As Long ' result of API calls
Dim Ndx As Long ' index for RegEnumValue
Dim ValueName As String ' name of each value in the printer key
Dim ValueNameLen As Long ' length of ValueName
Dim DataType As Long ' registry value data type
Dim ValueValue() As Byte ' byte array of registry value value
Dim ValueValueS As String ' ValueValue converted to String
Dim CommaPos As Long ' position of comma character in ValueValue
Dim ColonPos As Long ' position of colon character in ValueValue
Dim M As Long ' string index
' registry key in HCKU listing printers
Const PRINTER_KEY = "Software\Microsoft\Windows NT\CurrentVersion\Devices"
PNdx = 0
Ndx = 0
' assume printer name is less than 256 characters
ValueName = String$(256, Chr(0))
ValueNameLen = 255
' assume the port name is less than 1000 characters
ReDim ValueValue(0 To 999)
' assume there are less than 1000 printers installed
ReDim Printers(1 To 1000)
' open the key whose values enumerate installed printers
Res = RegOpenKeyEx(HKCU, PRINTER_KEY, 0&, _
KEY_QUERY_VALUE, HKey)
' start enumeration loop of printers
Res = RegEnumValue(HKey, Ndx, ValueName, _
ValueNameLen, 0&, DataType, ValueValue(0), 1000)
' loop until all values have been enumerated
Do Until Res = ERROR_NO_MORE_ITEMS
M = InStr(1, ValueName, Chr(0))
If M > 1 Then
' clean up the ValueName
ValueName = Left(ValueName, M - 1)
End If
' find position of a comma and colon in the port name
CommaPos = InStr(1, ValueValue, ",")
ColonPos = InStr(1, ValueValue, ":")
' ValueValue byte array to ValueValueS string
On Error Resume Next
ValueValueS = Mid(ValueValue, CommaPos + 1, ColonPos - CommaPos)
On Error GoTo 0
' next slot in Printers
PNdx = PNdx + 1
Printers(PNdx) = ValueName & " on " & ValueValueS
' reset some variables
ValueName = String(255, Chr(0))
ValueNameLen = 255
ReDim ValueValue(0 To 999)
ValueValueS = vbNullString
' tell RegEnumValue to get the next registry value
Ndx = Ndx + 1
' get the next printer
Res = RegEnumValue(HKey, Ndx, ValueName, ValueNameLen, _
0&, DataType, ValueValue(0), 1000)
' test for error
If (Res <> 0) And (Res <> ERROR_MORE_DATA) Then
Exit Do
End If
Loop
' shrink Printers down to used size
ReDim Preserve Printers(1 To PNdx)
Res = RegCloseKey(HKey)
' Return the result array
GetPrinterFullNames = Printers
End Function
Sub Auto_Open()
Dim start As Date
Dim weekcom As Date
Dim today As Date
start = Sheets("MainAssembly").Range("F3").Value
today = Sheets("MainAssembly").Range("F7").Value
weekcom = start
Do While weekcom < today
weekcom = weekcom + 28
Loop
Sheets("MainAssembly").Range("F6").Value = weekcom
Dim Printers() As String
Dim N As Long
Dim S As String
Dim col As String
Dim bw As String
Printers = GetPrinterFullNames()
For N = LBound(Printers) To UBound(Printers)
S = Printers(N) 'S & Printers(N) & vbNewLine
If InStr(S, "Microsoft") <> 0 And InStr(S, "Print") <> 0 Then col = S
If InStr(S, "HP Photosmart Wireless B109n-z") <> 0 And InStr(S, "Print") = 0 Then bw = S
Next N
Sheets("MainAssembly").Range("F8").Value = col
Sheets("MainAssembly").Range("F9").Value = bw
MsgBox col, vbOKOnly, "Colour Printer"
MsgBox bw, vbOKOnly, "BW Printer"
End SubEz pedig elvégzi a piszkos munkát:
Sub EOM_Main_Assy_Workbooks()
'loop:
Dim sPath As String, ssheet As String, fileName As String
Dim lastrow As Long, counter As Long
Dim ws As Worksheet, tp As Worksheet, ma As Worksheet
'printers:
Dim bw As String, col As String
'from main worksheet:
Dim sDate As String
Dim sWeek As String
Dim sWkcom As String
Dim nextmonth As Date
'from Table:
Dim freq As String
Dim area As String
Dim loc As String
Dim dat As String
Dim week As String
Dim wkcom As String
Dim procloc As String
Dim procname As String
Dim machloc As String
Dim machname As String
Dim printer As String
Dim copies As Integer
Dim saveandclose As String
sDate = "=[FillerPrinter.xlsm]MainAssembly!$F$4"
sWeek = "=[FillerPrinter.xlsm]MainAssembly!$F$5"
sWkcom = "=[FillerPrinter.xlsm]MainAssembly!$F$6"
Set ma = Workbooks("FillerPrinter.xlsm").Worksheets("MainAssembly")
nextmonth = ma.Range("F4")
col = ma.Range("F9")
bw = ma.Range("F9")
Set ws = Workbooks("FillerPrinter.xlsm").Worksheets("OpenClose")
lastrow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
counter = 2
Do While counter <= lastrow
ws.Activate
freq = Range("A" & counter)
area = Range("B" & counter)
loc = Range("C" & counter)
sPath = Range("D" & counter)
ssheet = Range("E" & counter)
dat = Range("F" & counter)
week = Range("G" & counter)
wkcom = Range("H" & counter)
procloc = Range("I" & counter)
procname = Range("J" & counter)
machloc = Range("K" & counter)
machname = Range("L" & counter)
printer = Range("M" & counter)
copies = Range("N" & counter)
saveandclose = Range("O" & counter)
'freq check
Select Case CStr(freq)
Case "4 weekly"
GoTo openworksheets
Case "monthly"
GoTo openworksheets
Case "2 monthly"
Select Case Month(nextmonth)
Case 1, 3, 5, 7, 9, 11
GoTo openworksheets
Case Else
GoTo nextraw
End Select
Case "3 monthly"
Select Case Month(nextmonth)
Case 1, 4, 7, 10
GoTo openworksheets
Case Else
GoTo nextraw
End Select
Case Else
GoTo nextraw
End Select
'open sheets
openworksheets:
Workbooks.Open sPath
fileName = Right(sPath, Len(sPath) - InStrRev(sPath, "\"))
'update sheets if necessary
Set tp = Workbooks(fileName).Worksheets(CStr(ssheet))
If CStr(dat) <> "" Then
Sheets(ssheet).Select
Range(dat).Select
ActiveCell.Formula = sDate
End If
If CStr(week) <> "" Then
Sheets(ssheet).Select
Range(week).Select
ActiveCell.Formula = sWeek
End If
If CStr(wkcom) <> "" Then
Sheets(ssheet).Select
Range(wkcom).Select
ActiveCell.Formula = sWkcom
End If
If CStr(procloc) <> "" Then
Sheets(ssheet).Select
Range(procloc).Select
ActiveCell.Formula = procname
End If
If CStr(machloc) <> "" Then
Sheets(ssheet).Select
Range(machloc).Select
ActiveCell.Formula = machname
End If
'print sheets
Select Case CStr(printer)
Case "col"
Application.ActivePrinter = col
tp.PrintOut copies:=CStr(copies)
Case "bw"
Application.ActivePrinter = bw
tp.PrintOut copies:=CStr(copies)
Case Else
MsgBox "No printer selected"
End Select
'wait here a bit
Do While ActiveWindow.View = xlPrint
Loop
'time to save&close
If CStr(saveandclose) = "yes" Then
Excel.Workbooks(fileName).Close SaveChanges:=True
Else: GoTo nextraw
End If
nextraw:
counter = counter + 1
Loop
Worksheets("MainAssembly").Select
Range("A1").Select
MsgBox "Done!"
End SubEz nem az összes workbook, amivel foglalkoznom kell, de egyelőre tesztnek elegendőek ezek is. Jelenlegi formájában a kód 88 sheetet kevesebb, mint 2 perc alatt megnyitott, update-elt, nyomtatóra küldött, majd bezárt
Már csak szűrést és hibakezelést kellene beleszőnöm valahogy.
Az egész csoportnak köszönöm mégegyszer az eddigi segítséget -
eszgé100
őstag
válasz
Pakliman
#47879
üzenetére
Do While ActiveWindow.View = xlPrint
'Application.Wait (Now + TimeValue("00:00:01"))
LoopElőször Application.Wait-tel próbáltam, de még az is felesleges a boldogsághoz
Egyelőre csak itthon tudtam kipróbálni, majd hétfőn meglesem melóban is, hogy a valóságban is működik-e? -
Pakliman
tag
válasz
eszgé100
#47878
üzenetére
Szia!
Egy ilyen kódot találtam.
Nem tudom, műxik-e, nem próbáltam
Van benne egyJobsDesc(lThisJob).pDocumentsor a For .. Next ciklusban, talán a nyomtatandó file neve.(A saját programomban rákérdezek, hogy sikerült-e nyomtatás és csak azután megyek tovább. Bár nálam a nyomtatott dokumentum megléte és minősége a lényeg.)
Találtam mégy egyet, ami talán egy kicsit egyszerűbb(en átalakítható a Számodra).
-
eszgé100
őstag
válasz
Delila_1
#47877
üzenetére
Köszönöm, de nem pontosan ilyen formában kerestem a duplikációt.
Van egy vba ciklusom, fentről lefelé halad, ezért nem releváns, hogy a tartomány felső részében található-e a duplikáció, lényeg, hogy a maradékban ne legyen, erre tökéletes volt Pakliman formulája, szerencsére működik ez is automatikusan, ha táblává alakítom. egyébként örök hálám az ötletért, megmentettél egy kör guglizástól Valós felhasználása egyébként az lesz, hogy B oszlopban lesznek elérési útvonalak, többi oszlopban különböző paraméterek a ciklusnak, és az utolsó oszlopban lesznek tárolva a válaszok a Save&Close-ra. Ha az adott fájlt később még használja a ciklus, akkor nyitva hagyom (válasz no), ha nem akkor mentés és zárás (yes), példában pont fordítva kérdeztem, de az már csak részletkérdés.
Ezzel kapcsolatban meg is érkeztem ma esti fejtörőmhöz:
Ciklusomban egy bizonyos ponton elérkezek a nyomtatáshoz
Select Case CStr(printer)
Case "col"
Application.ActivePrinter = col
tp.PrintOut copies:=CStr(copies)
Case "bw"
Application.ActivePrinter = bw
tp.PrintOut copies:=CStr(copies)
Case Else
MsgBox "No printer selected"
End SelectMajd ezután megvizsgálom, hogy Save&Close "yes"-e?
If CStr(saveandclose) = "yes" Then
Excel.Workbooks(fileName).Close SaveChanges:=True
Else: GoTo nextraw
End If
Itt kezdődnek a bajok, a kettő közé kellene valami, ami megakasztja a cilkus további futását, amíg ez az ablak be nem záródik.
Ugyanis, ha várni kell a nyomtatóra valamiért, akkor az ciklus egyszerűen bezárja a fájlom még mielőtt el lett volna küldve a nyomtatóra.
Próbáltam ezt, wordben ok, de sajnos excelben nem működik:
While Application.backgroundPrintingStatus > 0
Application.Wait (Now + TimeValue("00:00:01"))
WendSimán Application.Wait-et sem akarok használni, mert akkor 1000 évig tartana, míg végez a ciklus, plusz azt sem tudom mennyi időt kellene pontosan meghatároznom.
-
eszgé100
őstag
Én is darabtelivel szórakozok:
B1 képlete: =IF(COUNTIF(A1:A$7,A1)>1,"yes","no")
A vastaggal kiemelt részt hogyan tudnám változtatni annak függvényében, hogy beviszek-e újabb adatot A8-ba?
Valami hasonlóra gondolok:
=IF(COUNTIF(A1:A&lastrow,A1)>1,"yes","no")Egyszer már véletlenül kigugliztam, de ma az istenért sem találom.
-
ny.erno
tag
válasz
Fferi50
#47870
üzenetére
Szia!
A folyamat lassabb lett, valamint ha hozzáadtam az A oszlopba folytatólagosan sorozatszámokat, akkor a második munkalapon alul ahol összesíti a darabszámot, az összegnél az tűnt fel, hogy az eredetileg a táblában szereplő összeg van. Próbáltam mindkét lapon frissíteni az adatokat és úgy lefuttatni, de ugyan az volt az eredmény. -
Fferi50
Topikgazda
válasz
ny.erno
#47869
üzenetére
Szia!
If Sheets.Count = 1 Then
Set sh2 = ActiveWorkbook.Sheets.Add(after:=sh1)
Else
Set sh2 = Sheets(2)
End If
Ez a rész akkor ad hozzá új munkalapot, ha csak egy lap van a munkafüzetben. Ha több, akkor a második munkalapot használja - amin elvileg az első futás után a pivot keletkezik.
Ugye első futás előtt követelmény, hogy csak 1 munkalap legyen a füzetben, így a futáskor létrehozott munkalap lesz a második.
Ismételt futás után már nem kell a pivotot létrehozni, az ott van a második munkalapon, csak aktualizálni kell.If .Value <> "" Then .CurrentRegion.ClearContents
If sh1.Range("D1").Value <> "" Then sh1.Range("D1").CurrentRegion.ClearContents
If sh1.Range("F1").Value <> "" Then sh1.Range("F1").CurrentRegion.ClearContents
Ez a 3 sor törli a második munkalap D1-es területét és az első munkalap D1 és F1 oszlopát.
Szerintem nem lenne szükség törlésre.
Mi miatt volt nálad a külön törlésekre szükség?
Üdv. -
ny.erno
tag
válasz
Fferi50
#47864
üzenetére
Szia!
Profi, MŰKÖDIK!!!
Tesztelgetem különböző listákkal, de szerintem rendben lesz. Nálam új értékekek hozzáadása után, futtatás előtt ki kell törölnöm a másik munkalapot, plusz az első munkalapon a kilistázott egyedi és ismétlődő értékeket. De ez a három kattintás semmiség, szóval mégegyszer köszönöm! 
-
Hintalow
senior tag
Köszönöm, próbálkozom, bár úgy tűnik ez fixen tesz be annyi karaktert pozíciókra, amennyi be van írva, és persze nekem változó hosszúságú számértékek vannak (százezres,milliós,tízmilliós) így nem mindig ugyanannyi karakterhosszal kell dolgozni, ha ez nem lenne elég
Fferi50: köszi, megnézem azt is
-
Hintalow
senior tag
Sziasztok,
Ha van egy oszlopban egy adag számom, hogy tudom megoldani, hogy pontokkal legyenek elválasztva hármas csoportonként? Mert ha számformátumba állítom, akkor a szeparátor betesz szóközöket közéjük, addig oké, de nekem nem szóköz kéne oda, hanem pont karakter.
Ráadásul amit a szeparátor csinál, az nem is igazi szóköz, mert a replace all parancsal sem tudom kicserélni őket, szerinte nincs ott semmilyen szóköz. (ebből ered a probléma is, amiért pontot akarnék, mivel körlevélbe kellenének a számok, és ahogy oda behúzza az adatokat, mivel nem igazi szóköz, már egybe teszi az összes számot) -
Fferi50
Topikgazda
válasz
ny.erno
#47863
üzenetére
Szia!
Én az egyik futásnál ellenőriztem, hogy megvan-e mind a kétszázezer szám (ismétlődések összeadva + az egyedi) pontosan megvolt.
A pivottáblás makró, feltételek:
Első futtatásnál:
Csak 1 munkalap legyen a munkafüzetben, amelyiknek az A oszlopában ott vannak a számok. A1 cella fejléc.
Ekkor a makró létrehoz egy nevet - forras - a névkezelőben, ami beállítja a pivot forrását
Ezután létrehoz egy új munkalapot, arra a pivottáblát.
Az új D1 cellájától kezdve átmásolja a pivot eredményét.
Szűri 1 -re (azaz egyediek) - átmásolja az első munkalap D oszlopába
Szűri >1-re (azaz ismétlődők) - átmásolja az első munkalap F oszlopába
Ez kb. fél perc 200000 tételnél.
Ha a továbbiakban a változások kezelésére is ezt szeretnéd használni, akkor nincs más teendő, mint az új sorozatszámokat hozzáírni/felülírni az első munkalap A oszlopában, majd jöhet a
második/sokadik futtatás
Fontos! Ebben az esetben is az első munkalapon kell állnod, amikor a makrót indítod.
Az előző futás eredménye felülíródik a D és F oszlopokban.
Íme a makró:Sub tablas()
Dim sh1 As Worksheet, sh2 As Worksheet, pvt As PivotTable, tblsource As String, pvtfname As String, nm As Name
Application.ScreenUpdating = False
Set sh1 = ActiveSheet: pvtfname = sh1.Range("A1").Value
If Names.Count > 0 Then
Set nm = Names("forras")
End If
If nm Is Nothing Then Set nm = ActiveWorkbook.Names.Add(Name:="forras", RefersTo:="=OFFSET(" & sh1.Name & "!$A$1,0,0,COUNTA(" & sh1.Name & "!$A$1:$A$300000),1)")
If Sheets.Count = 1 Then
Set sh2 = ActiveWorkbook.Sheets.Add(after:=sh1)
Else
Set sh2 = Sheets(2)
End If
tblsource = Replace(Evaluate(Names("forras").RefersTo).Address(ReferenceStyle:=xlR1C1, external:=True), "[" & sh2.Parent.Name & "]", "")
If sh2.PivotTables.Count = 0 Then
Set pvt = sh1.Parent.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=tblsource, Version:=6).CreatePivotTable(tabledestination:=Replace(sh2.Range("A1").Address(ReferenceStyle:=xlR1C1, external:=True), "[" & sh2.Parent.Name & "]", ""), TableName:="Srszamok", Defaultversion:=6)
pvt.AddDataField pvt.PivotFields(pvtfname), "Darabszám", xlCount
pvt.PivotFields(pvtfname).Orientation = xlRowField
Else
Set pvt = sh2.PivotTables(1)
pvt.RefreshTable
End If
With sh2.Range("D1")
If .Value <> "" Then .CurrentRegion.ClearContents
If sh1.Range("D1").Value <> "" Then sh1.Range("D1").CurrentRegion.ClearContents
If sh1.Range("F1").Value <> "" Then sh1.Range("F1").CurrentRegion.ClearContents
.Resize(rowsize:=pvt.TableRange1.Rows.Count, columnsize:=pvt.TableRange1.Columns.Count).Value = pvt.TableRange1.Value
With .CurrentRegion
.AutoFilter field:=2, Criteria1:="1"
.Columns(1).SpecialCells(xlCellTypeVisible).Copy Destination:=sh1.Range("D1")
.AutoFilter field:=2, Criteria1:=">1"
.Columns(1).SpecialCells(xlCellTypeVisible).Copy Destination:=sh1.Range("F1")
.AutoFilter field:=2
End With
End With
sh1.Range("D1").Value = "Egyedi": sh1.Range("F1").Value = "Ismétlődő"
sh1.Activate
ActiveWindow.ScrollRow = 1
Range("D1").Select
MsgBox "Készen vagyunk!"
Application.ScreenUpdating = True
End Sub
Üdv. -
ny.erno
tag
válasz
Fferi50
#47859
üzenetére
Szia!
Megnéztem, az egyedi értékeket 980 egyedi értékig gyűjti ki (~135k helyett), de késznek tekinti, nincs hibakód.
Egyébként plusz érdekesség, hogy a NotePad++-szal megszűrt listát (kódolás UTF-8) másolok be excelbe és azon a listán futtatom a makrót, akkor az alábbi hibát dobja befejezés előtt: Run-time error '13': Type mismatch
Ha ugyan ezt a Notapad++ listát jegyzettömbe másolom és onnan excelbe, akkor megint másik hibakód jön: Run-TIme Error '1004': Method 'StatusBar' of object '_Application' failed.
Ide tettem a fájlokat, amin próbálgatom a lehetőségeket.
Eredeti excel makró eredmény: 135.531 egyedi érték
NotePad++ eredmény: 135.521 egyedi érték
Scrapebox eredmény: 135.020 egyedi érték -
Fferi50
Topikgazda
válasz
ny.erno
#47856
üzenetére
Szia!
Közben találtam egy makró nélküli megoldást is, de ehhez pár műveletet el kell végezni :
1. Legyen az A oszlopnak fejléce - mondjuk Sorozatszám
2. Beszúrás - kimutatás - új lapra
Sorozatszám mező a Sorokhoz
Sorozatszám mező az Érték területre - mennyiség Sorozatszám
Elfogadható időn belül kész a kimutatás!
3. Az egész kimutatást a végösszeg sor nélkül kijelölni - beillesztés értéket egy új területre az új lapon.
4. Szűrő bekapcsolása az átmásolt adatokra
5. Szűrő - csak az 1 bekapcsolva - az egyedi értékek lesznek. Sorozatszám másolás - irányított beillesztés értéket - oda, ahol látni szeretnéd az egyedi sorozatszámokat
6. Szűrő - átállítás az 1 kivételével minden - az ismétlődő értékek maradnak. Sorozatszám másolás - irányított beillesztés - oda, ahol az ismétlődéseket szeretnéd látni.
Kétszázezer sorral kevesebb ideig tartott, mint ide leírni!
Persze usert ilyenre kérni nem lehet, tesztelem a hozzá kapcsolódó makrót, ha kész lesz felmásolom.
Üdv. -
Fferi50
Topikgazda
válasz
ny.erno
#47856
üzenetére
Szia!
Íme:Sub valogato()
Dim a, x As Long, y As Long, u As String, d, v As String
ActiveSheet.UsedRange.Columns("A").Copy Range("D1")
y = ActiveSheet.UsedRange.Rows.Count
Debug.Print "sort indul:" & Time
With Range("D1:D" & y)
.Sort key1:=Range("D1"), Header:=xlNo
Debug.Print "sort vége:" & Time
a = .Value
End With
u = ""
Debug.Print "Keresés indul: " & Time
d = ""
For x = 1 To y - 1
If a(x, 1) = a(x + 1, 1) Then
If d = "" Then
u = u & ";" & a(x, 1): d = a(x, 1)
Else
If a(x + 1, 1) <> d Then u = u & ";" & a(x, 1): d = a(x, 1)
End If
Else
If a(x, 1) <> d Then v = v & ";" & a(x, 1)
End If
DoEvents
If x Mod 1000 = 0 Then Application.StatusBar = "Készen van eddig " & x
Next
If a(x, 1) <> d Then v = v & ";" & a(x, 1)
Debug.Print "Keresés vége:" & Time
u = Mid(u, 2): v = Mid(v, 2)
a = Application.Transpose(Split(u, ";"))
Range("M1:M" & UBound(a)).Value = a
a = Application.Transpose(Split(v, ";"))
Range("F1:F" & UBound(a)).Value = a
Debug.Print "Visszaírás vége: " & Time
Application.StatusBar = False
MsgBox "Készen vagyunk"
End Sub
Az F oszlopba írja ki az ismétlődés nélküli értékeket.
Üdv. -
#47858
lappy
őstag
Darko_addict
#47857
lappy
őstag
válasz
Darko_addict
#47857
üzenetére
Ezt nézd meg
-
#47857
Darko_addict
őstag
Darko_addict
őstag
Sziasztok!
Egy látszólag egyszerű probléma megoldásához kerestem képletet.
Adott egy 30-31 értékes sor, ami utolsó 5 értékének az átlagát szeretném kiíratni.
Ezek a hónap napjait jelölik, minden nap új érték kerül felvitelre az aktuális nap alá, mely lehet 0, bármilyen más szám vagy maradhat üresen is.
Elsősorban szerettem volna kitalálni, hogyan lehet képletbe foglalni azt, ha mindig van érték. Az üressel vagy nullával bonyolításig el sem jutottam (egyelőre nem tudom, hogy a nullát bele akarom-e venni vagy tekintsen rá "üresként"), valamint ahhoz sem tudtam ezáltal hozzászagolni, hogy kezelje azt a helyzetet, mikor kevesebb, mint 5 érték van a sorban.Feltöltöttem a Teszt munkafüzetet ide: [Google Drive], és csatolok képernyőmentést is: [kép].
A probléma az, hogy ha a legelső, ha az utolsó cella értékeit módosítom, az hatással van az átlagra, ami az egésznek a lényegét dönti romba. Akkor találtam és implementáltam olyan egyenletet, ami egy sor üres cellára is értéket hozott. Olyat, ami ugyanezekre a számokra 40.000 feletti eredményt mutatott, de ezt módosítva sikerült elérni, hogy egész számokból képtelen törtek legyenek...Tudnátok adni iránymutatást? Google-ben kerestem megoldásokat, de némelyik túlontúl bonyolultnak tűnt.
Otthon: Windows 10, Professional Plus 2019
Munkahelyen: Windows 10, Office 2016 - mindkettő magyar nyelvűKöszönöm szépen!
-
Fferi50
Topikgazda
válasz
ny.erno
#47853
üzenetére
Szia!
Azért remélem, hogy az Excel által talált duplikáció az igazi.
Persze ne feledjük, hogy az 123 szöveg és a 123 szám az nem egyforma az Excelben, ebből lehet eltérés.
Gondolom, a sorozatszámaidban betű is van és akkor nem játszik az előző megjegyzésem.
Üdv.
Ps. Remélem, könnyebb lesz az életed vele. -
-
Fferi50
Topikgazda
válasz
ny.erno
#47843
üzenetére
Szia!
Akkor próbáljuk meg makróval:Sub valogato()
Dim a, x As Long, y As Long, u As String, d
ActiveSheet.UsedRange.Columns("A").Copy Range("D1")
y = ActiveSheet.UsedRange.Rows.Count
Debug.Print "sort indul:" & Time
With Range("D1:D" & y)
.Sort key1:=Range("D1"), Header:=xlNo
Debug.Print "sort vége:" & Time
a = .Value
End With
u = ""
Debug.Print "Keresés indul: " & Time
d = ""
For x = 1 To 200000 - 1
If a(x, 1) = a(x + 1, 1) Then
If d = "" Then
u = u & ";" & a(x, 1): d = a(x, 1)
Else
If a(x + 1, 1) <> d Then u = u & ";" & a(x, 1): d = a(x, 1)
End If
End If
DoEvents
If x Mod 1000 = 0 Then Application.StatusBar = "Készen van eddig " & x
Next
Debug.Print "Keresés vége:" & Time
u = Mid(u, 2)
a = Application.Transpose(Split(u, ";"))
Range("M1:M" & UBound(a)).Value = a
Debug.Print "Visszaírás vége: " & Time
Application.StatusBar = False
MsgBox "Készen vagyunk"
End Sub
A makró az aktív munkalap A oszlopát átmásolja a D oszlopba majd rendezi. Ezután válogatja ki az ismétlődő értékeket és beírja az M oszlopba.
Az előrehaladást a státusz soron lehet követni (ez csak akkor látszik, ha a munkalap nézetben vagy).
A VBA nézet Immediate lapjára kiírja az egyes műveletek végrehajtási idejét. Nekem ez 200000 sor esetén alig több, mint 1 perc volt.
Üdv. -
Geryson
addikt
Köszönöm, elnéztem, de szinte semmit nem értek belőle. Nem is értem kapásból, hogy miért kombinálja a SZUM és a SZUMHATÖBB függvényt. Az utolsó példa az enyém, de mi után behozza a TÖMB-öt is, amit életemben nem használtam, teljesen elveszek. Próbáltam játszani a {} zárójelekkel egy kicsit, de nincs megfelelő eredményem. Ez amúgy a magyar Excelben is {}? Ugye arra kapásból figyelnem kellett, hogy ő vesszőt használ pontosvessző helyett a más nyelv miatt, de ezt kiszúrtam
-
Geryson
addikt
Mi lenne a "profibb" megoldás arra, hogy a SZUMHATÖBB kritériumait egy rejtett fülön tárolnám, ahol tetszőlegesen bővíthető / változtatható lenne. Most jelenleg így néz ki a képletem:
=SZUMHATÖBB(Forrás!C:C;Forrás!A:A;B3;Forrás!B:B;"<>VAGAS 2. GEP";Forrás!B:B;"<>VAGAS 3. GEP";Forrás!B:B;"<>VAGAS 4. GEP";Forrás!B:B;"<>VAGAS 5. GEP";Forrás!B:B;"<>FUVARKOLTSEG";Forrás!B:B;"<>HULLADEK";Forrás!B:B;"<>ANYAGMOZGATAS";Forrás!B:B;"<>RAKLAP/ALATET";Forrás!B:B;"<>HASZNALATI DIJ";Forrás!B:B;"<>MEGMUNKALAS";Forrás!B:B;"<>INGATLAN";Forrás!B:B;"<>JEGYZŐKÖNYV";Forrás!B:B;"<>PERKOLTSEG";Forrás!B:B;"<>BERLETI DIJ AFA";Forrás!B:B;"<>DARABOLT ACÉL";Forrás!B:B;"<>U-ACEL*")*1000Ha változik valami, akkor egyesével kell most bevinnem. Hivatkozhatok valahogyan rá, mint tömb? Azt kipróbáltam, hogy mint szöveg hivatkozok rá (tehát egymás alá beírtam őket és a képletet átírtam:
=SZUMHATÖBB(Forrás!C:C;Forrás!A:A;B3;Forrás!B:B;"<>Kizárt!A1", de az nem működik. -
ny.erno
tag
válasz
Fferi50
#47842
üzenetére
Valóban lemaradt. Simán feltételes formázással, utána pedig cella rendezés szín szerint.
A második képleted próbálom éppen. 139e sorral tesztelek és megint fagyás közeli állapot van.
Jobb alsó sarok üzenete: "Számítás folvamatban (4 szál): 10% (4-5 perc). Az első képlet hasonlóan lassú ekkora adattáblánál. Minden feltételes formázási szabály ki van kapcsolva. -
Fferi50
Topikgazda
válasz
ny.erno
#47841
üzenetére
Szia!
Nem írtad, hogy milyen módszerrel vizsgálod a duplikációt, ami 30-40 percig tart.
Én csak Excel módszert tudok javasolni a 2016-os verzió alapján, feltételezve, hogy az A1 cellától kezdődnek az adataid.
1. a B1 cella képlete:=HA(DARABTELI($A$1:$A$200000;$A1)>1;$A1;"")
2. a B2 cella képlete:=HA(DARABTELI($A$1:$A$200000;$A2)>1;HA(DARABTELI($B$1:$B1;$A2)=1;"";$A2))
Ez a képlet húzható lefelé.
A B oszlopban így azok a számok maradnak, amelyek duplikálva vannak az A oszlopban, mégpedig az első előfordulásnak megfelelő sorban. Köztük "üres" cellák maradnak.
Ha utána a képleteket átalakítod értékké - másolás - irányított beillesztés értéket - akkor már tudsz a B oszloppal "rendezkedni".
Ha nem az első sorban kezdődnek az adataid, akkor annak megfelelően módosítsd a kezdő képlet celláit - figyelj a $ jelekre kérlek.
Üdv. -
Fferi50
Topikgazda
-
Geryson
addikt
-
ny.erno
tag
Sziasztok!
Excel vs Libre office.
Adott egy lista folyamatosan bővülő adatokkal. Az A oszlopban vannak az értékek kb. 200.000 sor (sorozatszámok). Amikor új értékek kerülnek az A oszlopba, akkor automatikusan futtatom a duplikáció keresést, és a B oszlopba rendezi azokat az értékeket, amik már szerepelnek benne. Van hogy a folyamat 30-40 perc, mert túl sok az adat és erre keresnék valami helyettesítő megoldást.
Libre Office gyorsan dolgozik sok adattal, de ott csak kiszínezés funkciót találtam, olyat nem, hogy a B oszlopba ki is listázza az ismétlődőket. Van opció Librében, hogy ne egyesével kelljen kimásolni az ismétlődőket a B oszlopba, hanem úgy oldja meg a duplikáció rendezést, hogy ami duplikált érték azt simán áthelyezi a B oszlopba?
Esetleg más programot tudtok javasolni ami alkalmas erre a célra? -
Geryson
addikt
Mint ahogy írtam, leegyszerűsítettem (az ide bemásoláshoz).
De valóban félrevezető, szóval akkor itt van a függvény:=HA(SZUMHATÖBB(Forrás!C:C;Forrás!A:A;B3;Forrás!B:B;"<>VAGAS 2. GEP")=0;0;SZUMHATÖBB(Forrás!C:C;Forrás!A:A;B3;Forrás!B:B;"<>VAGAS 2. GEP")*1000)A gondom a következő: üres eredmény esetén az egy 0-át, de így teli lesz a táblázatom nullával. Viszont ha üres stringet "" adok neki, akkor nem lesz valóban érték VISZONT az abból a cellából táplálkozó képlet nem fog működni, merthogy üres a cella. Nem tudom ez így mennyire érthető.
Hogyan lehetne azt mondani neki, hogy üres eredmény esetén legyen a cella értéke üres, viszont az eredménycellákból tovább számoló képlet
(pl.: =HA(C33="";"";N33*$V$6))mégis tudjon számolni? A fenti képlet ugyebár a C33-ban van benne. -
Fferi50
Topikgazda
Szia!
Próbáld megnézni, hogy makró melyik része okozza a lassulást.
Egyes részek előtt kiíratod Debug.Printtel az időt, a végén pedig szintén.
Ha még van lehetőség a régi konfigon megfuttatni, akkor ott is, ha nem, akkor is lehet látni, melyik programrésznél időzik el "indokolatlanul".
Üdv. -
bsh
addikt
válasz
Fferi50
#47822
üzenetére
@Kasya: 64bit. a fájlok nem nagyok (mármint az excel táblák).
@FFeri50: speciális darabjegyzéket generál cad-ből. egyedüli képletek amik vannak, ha egy tételhez tartozik pdf rajz, akkor a sima szöveges tételszám mezőbe belinkeli azt =HYPERLINK()-kel, de semmi több. minden más cella sima szöveg/szám. kis színezés, kommentek, ilyesmi. a képletszámítást, eventeket és a screenupdating-et kikapcsolja a makró futás alatt és az excel tábla rejtve van amíg el nem készül.
-
-
bsh
addikt
üdv,
hátha tudtok valami okosat mondani:
van egy alkalmazásban egy vba makróm, ami egy excel táblázatot hoz létre és abba írkál adatokat.
lecseréltem a céges gépemet. a régi egy i7 4771 volt, 32gb ddr3, win7 pro x64 és office 2013. az új i7 7700k, 32gb ddr4, win10 pro x64 és office 2016.
az új gépen sokkal lassabban fut ez a makró, kábé fele-harmada sebességgel.
ez mitől lehet? win10? vagy excel verzió? -
-
Slowman
aktív tag
válasz
Fferi50
#47813
üzenetére
Szia,
Lehet nem jól fogalmaztam
. Nagyobb mennyiségű adatot tartalmazó állományból kell kiszedni az alább említett feltételekből a mai és holnapi szállításokat egy dasboardszerű fülre (managementnek one pager), hogy ne kelljen bogarászni/szűrni a komlett listát.
Készítettem egy On Pager munkalapot több más paraméterrel. A forrásfileokat az érintett részlegek csak bemásolják abban a formában ahogy ők azt kezelik a megfelelő munkalapra, a One Pageren pedig a kért feltételeknek/formátumnak megfelelően megjeleníti az információt. Így sajnos szűréssel nem megoldható... -
-
Slowman
aktív tag
Sziasztok,
keresgéltem régebbi hsz-ek között, de nem nagyon találtam erre egyértelmű megoldást.
A probléma a szokásos FKERES ill. INDEX+HOL.VAN függvény csak az első találatot adja visszatérési értékként. Ebben szeretnék kérni segítséget, hogy a soron következő értéket is kiírja az excel.A keresési feltétel: dátum érték (termékek beérkezésének dátuma), A listában többször is szerepelhet az adott nap. Tehát van, hogy akár 10 termék is ua napra érkezik stb. Ki kell kiválogatni a listából az aktuális nap és aktuális nap +1 értékeket. Az utóbbival nincs is gond van egy cella amire lehet hivatkozni, mint mindenkori dátum. Természetesen előre kell, hogy kerüljön a mai napra esedékes szállítás pl. talál belőle 2 tételt a 3. pozícióba a holnapi szállítás határidővel esedékes összes termék.
p.s.
Ha konkrét adatokat kell látni a megoldáshoz, akkor valamennyire csupaszított táblázatot tudok küldeni Előre is köszönöm!
-
Kasya
nagyúr
Hmm, pedig próbáltam a ctrl-Z-t. Lehet bekavart valami, mert most már működik. Imádom az ilyen kéretlen frissítéseket. Köszi!
A menüszalag testreszabásával az a gondom, hogy korábban erre a menüpont ott volt a felső sávban egy kis alsó nyíl képében. Most ez eltűnt.Ok, meglett. A menüszalagot kellett előbb visszakapcsolni... -
#47810
Fferi50
Topikgazda
[CS]Blade2
#47807
Fferi50
Topikgazda
válasz
[CS]Blade2
#47807
üzenetére
Szia!
Makróval - eseménykezelővel - meg lehet oldani, hogy mindig az aktuális nézetnek megfelelően színezzen.
Viszont akkor makróbarátként - vagy binárisként - kell a fájlt menteni.
Üdv. -
Kasya
nagyúr
Noob kérdés:
Az Excel a múlt napokban frissült és a felső sávról eltűnt a visszavonás gomb. Alapvetően nem kell a gomb, ha van rá bill kombó is.
Tudnátok esetleg segíteni, hogy hogy lehetne visszavarázsolni a visszavonás gombot, vagy milyen shortcuttal ehlyettesíthető?
-
#47807
[CS]Blade2
addikt
[CS]Blade2
#47804
[CS]Blade2
addikt
válasz
[CS]Blade2
#47804
üzenetére
Ahogy próbálgatom, közben kiderült még egy probléma, hogy a megadott A4: K80 vagy akár K500 tartomány miatt, amikor a rögzítő lapon beviszek pár új sort, majd mentem a fájlt, és megnyitom, akkor kiírja, hogy adatok vannak a kimutatásnál, és felülírja-e. Ha csak A4: K20-at adok meg, akkor, nem színezi be, csak addig. Év végén 300 feletti sor van, ha minden hónap ki van bontva.
Olyan megoldás nincs, hogy az érvényességnél ne így adjam meg, hogy A4: K500 hanem mondjuk a kimutatást nem lehet megadni? -
VGYke
addikt
Azért 2, mert ha pl. 1, akkor nem működik helyesen a képletezésem, nevezetesen kimarad a 2021.05.03. dátum.
Ha 3 akkor meg hülyeség a végeredmény.28. után 31. jön…. Nem tudom melyik hónapra gondolsz, de még egyszer a célom:
Van egy nevezzük „Kézi Dátum” oszlopnak. Ebből kell előállítani egy „Képletezett Dátum” oszlopot, a követke módon:
A „Képletezett Dátum” oszlopban szerepeljen a hónap első napja és utolsó napja (függetlenül attól hogy az eredeti „Kézi Dátum” oszlopban ott van e, vagy nincs a hónap első és utolsó napja) és a hónap első napja és utolsó napja között szerepeljenek a „Kézi Dátum” oszlop dátumai.Delila_1 : nem ezeket a képleteket használtam? Szerintem igen….
Na nem azt állítom hogy a megoldás tökéletes, várnám a jobb, egyben egyszerűbb megoldást. És egy olyat, hogy "másolás" biztos legyen, értem ezalatt hogy akár hová beszúrok egy sort, működjön. A mellékelt megoldásom megbolondul ha az 1 sor fölé szúrok be egy sort. 1 alá a beszúrás működik, a feladat ekkor jó.
-
#47804
[CS]Blade2
addikt
Fire/SOUL/CD
#47803
[CS]Blade2
addikt
válasz
Fire/SOUL/CD
#47803
üzenetére
Nálam egyébként nem törődik bele, szóval, ha valakinek van valami ötlete, hogy mi a retekért csinálja ezt...
Ha B4 : K80 -at adok meg, akkor egy bezárás és újra megnyitás vagy egy-egy hónap be-ki csukás-nyitás után eltűnik az egész feltételes formázás.
Valamiért csak, és kizárólag az A oszlopon marad meg tartósan, ill. magától úgy átírja, hogy az A oszlop legyen benne, valamint azok a sorok, amik már túllógnak a Kimutatás-on. -
#47803
Fire/SOUL/CD
félisten
Delila_1
#47802
-
#47802
Delila_1
veterán
[CS]Blade2
#47801
Delila_1
veterán
válasz
[CS]Blade2
#47801
üzenetére
Nálam is kétszer ki kellett javítani a felt. formázás tartományát, végül beletörődött.
. Nagyobb mennyiségű adatot tartalmazó állományból kell kiszedni az alább említett feltételekből a mai és holnapi szállításokat egy dasboardszerű fülre (managementnek one pager), hogy ne kelljen bogarászni/szűrni a komlett listát.
Új hozzászólás Aktív témák
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Overwatch 2
- Nők, nőügyek (18+)
- Akciófigyelő: Megnyílt a Xiaomi hivatalos magyar webáruháza
- Linux kezdőknek
- Napelem
- Részletezte a Clearwater Forest felépítését az Intel
- Kerékpárosok, bringások ide!
- A Bugatti Veyron megleckéztetésére készül a Dreame első villanyautója
- Spórolós topik
- További aktív témák...
- Eladó Steam kulcsok kedvező áron!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Battlefield 6 - Digitális játékkulcs
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Apple MacBook Air 13 2017 A1466 512Gb SSD / i7 / 8GB RAM / 12 hó jótállás
- AKCIÓ! Apple iPad Pro 13 2024 M4 512GB Cellular tablet garanciával hibátlan működéssel
- Apple iPhone 14 Plus 256GB / AKKU 100% / 12 hónap jótállás
- 144 - Lenovo LOQ (15ARP9) - AMD Ryzen 7 7435HS, RTX 4060
- Csere-Beszámítás! Playstation 5 Lemezes kiadás!
Állásajánlatok
Cég: FOTC
Város: Budapest
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest