- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Gurulunk, WAZE?!
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- bitpork: Augusztus 2- szombat jelen állás szerint.
- zebra_hun: Hűthető e kulturáltan a Raptor Lake léghűtővel a kánikulában?
- eBay-es kütyük kis pénzért
- Geri Bátyó: B550 szűk keresztmetszet, de mi és miért?
- Yutani: Yutani Retró Hangkártyái: AdMOS AdWave 32
-
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
-
HREH
senior tag
Sziasztok!
Érvényesítéssel csináltam egy 2 elemből álló listát, Igen és Nem lehetőségekkel.
Lényeg az lenne, hogy ha a D2-es cellában "Igen" szerepel, akkor az A2-ben található értéket ossza fel 77%-23% arányban, és ezt rakja a megfelelő cellába, ha azonban "Nem" szerepel, akkor az A2 tartalmát másolja a B2-be, a C2-be pedig 0 kerüljön.
Itt egy képernyőkép, hogy lássátok is mire gondolok.
Illetve hogyan lehetne ezt lemásolni? Még 50-60 sorban kellene ugyanezt megcsinálni.Köszönöm előre is!
-
-
Marvinyo
aktív tag
Sziasztok!
A következő problémám van:
Mivel a különböző pénzügyi (budget) template-ek számomra nem ideálisak, gondoltam csinálok egy sajátot.A problémám a következő: A kiadásokat szeretném dinamikusan kezelni, főcsoport/csoport alapján. Értve pl. a következő helyzetet:
Van egy sheetem, amiben csak a kiadásokat írom, manuálisan (nevezzük 'Kiadas'-nak). Például: Főcsoport Autó, Csoport Benzin. Vagy mondjuk Autó/Biztosítás.
Van egy másik sheetem, ahol ezeket az értékeket automatikusan szeretném összesíteni főcsoport/csoport alapján (nevezzük 'KiadasOsszesites'-nek). Addig nincs probléma, amíg a főcsoportok és a csoportok előre definiáltak. De szeretném, ha ebbe az összesítő táblázatba előre nem definiált csoportok is lehessenek. Azaz, ha én a kiadások sheeten beírok egy (vagy több) tételt, akkor az összesítő sheeten ne kelljen felvenni a főcsoportot / csoportot, legyen ott automatikusan (vagy mondjuk egy gombnyomásra, VBA-val...).
No, ezt egy VBA scripttel meg tudom oldani, az egyetlen problémám, hogy az Androidos excel csak olvasásra hajlandó megnyitni vagy meg se nyitja. (Tudom VBA script nem tud androidon futni). Olvastam az office-jsről, hogy azt elvileg támogatja az Androidos Excel is, de nem igazán látom át hogyan működhet ez Androidon.
Kérdésem tehát a követekező:
Meg lehet-e ezt oldani "natív Excelben" anélkül, hogy felvenném manuálisan az új főcsoportot és/vagy csoportot?
Mivel gondolom nem, az office-js valóban fut Androidon csak azzal, hogy felteszem pl. az office365-ös tárhelyre?
Valami egyéb ötlet erre?(egyelőre a VBA-s megoldás felé hajlanék, maximum a generálást mindig gépen végezném, az Android csak arra kell, hogy ha épp van kiadás, akkor ott azonnal fel tudjam jegyezni, nem annyira gáz, ha nem tudja azonnal csoportosítani)
-
lenkei83
tag
Sziasztok!
UTF-8 kódolásban jártas valaki? A kód adott, kisebb csinosítás még lesz rajta de a baj az, hogy ha be akarom importálni a kapott VCF fájlt androidrba akkor az ékezetek elszállnak. Hogyan lehet beapplikálni a kódba UTF-8 kódolást?
Köszi & üdv
P.Private Sub Create_VCF()
'Open a File in Specific Path in Output or Append mode
Dim FileNum As Integer
Dim iRow As Double
iRow = 2
FileNum = FreeFile
OutFilePath = "D:\OutputVCF.VCF"
Open OutFilePath For Output As FileNum
'Loop through Excel Sheet each row and write it to VCF File
While VBA.Trim(Sheets("Munka1").Cells(iRow, 1)) <> ""
LName = VBA.Trim(Sheets("Munka1").Cells(iRow, 1))
Email = VBA.Trim(Sheets("Munka1").Cells(iRow, 3))
PhNum = VBA.Trim(Sheets("Munka1").Cells(iRow, 2))
Print #FileNum, "BEGIN:VCARD"
Print #FileNum, "VERSION:3.0"
Print #FileNum, "N:" & LName
Print #FileNum, "TEL;TYPE=CELL;TYPE=PREF:" & PhNum
Print #FileNum, "EMAIL:" & Email
Print #FileNum, "END:VCARD"
iRow = iRow + 1
Wend
'Close The File
Close #FileNum
MsgBox "Contacts Converted to Saved To: " & OutFilePath & " "
End Sub -
Cece04
tag
Sziasztok,
segítsetek kérlek.
Van egy táblám és létre szeretnék hozni egy szabályt,
ami szinezi az adott pozíciót,amennyiben rosszul van töltve.Csatolok egy egyszerű példát. A lényeg az lenne, hogy minden,
ami "Barcelona" utazás az azt az időpontot tartalmazza, ami az Akciónál az "Indulás",
tehát ha valaki eltérő időpontot ír be, mint ami az utazás mellett szerepel, akkor pirosra váltson a cella.
Köszi szépen!
-
butch3r
senior tag
sziasztok,
12 havi adat egymás melett szerepel.
ennek a végén, a ytd alatt egy egyszerű average képlet van.
Ezt úgy szeretném módosítani, hogy mindig nézzen meg egy másik ranget és csak addig számoljon átlagot amíg a 2018-as adatok is elérhetőek.
jelen esetben az lenne jó ha az average képlet csak B21: B21-ig tartson de amint bekerül a c36-os cellába is adat akkor már B21:c21, majd amikor a D36-ba kerül be adat akkor B21:d21 stb.
Ez megoldható valahogyan vagy marad a havi manuális állítás?
Nagyon köszi
-
#37578
Bati0501
őstag
dellfanboy
#37569
Bati0501
őstag
válasz
dellfanboy
#37569
üzenetére
Igen, próbáltam ezt is, csak sajnos az az átlag, ami nekem kell már ki van számolva, és az a cella, ahova ki lett számolva, az egy olyan oszlopban van, ahol még van két másik átlag is, így nem tudtam kiszedni a nekem kellőt.
(Ezért se jó ez a táblázat, amit adtak nekem.) -
EmberXY
veterán
válasz
Delila_1
#37575
üzenetére
Szia!
Köszönöm szépen, ez tényleg működik, pdf-be konvertálva is rendben van.
Viszont az érdekelne, hogy ez mitől állítódhatott el? Eddigi tapasztalataim alapján mindig addig tartott a dokumentum, ameddig tartalom volt benne, ilyesmit soha nem is szoktam állítani, maximum a tájolást, ahogy a táblázat megkívánja, de ennél még az sem kellett, sima állított elrendezésben készült...
-
Oldman2
nagyúr
válasz
Delila_1
#37573
üzenetére
Delila_1, Pakliman
Köszi mindkettőtöknek a tippeket!
Következő kérdésem azonnal adódik, hogyan lehet cellák (numerikus) értékeiből dátumot előállítani?
Hogy tényleg automatikus legyen az egész...=DÁTUM(ÉV($H$10);HÓNAP($H$11)+1;10)
H10=2018
H11=3esetén 1905.02.10-et kapok eredményül.
-
EmberXY
veterán
Sziasztok!
Egy kicsit láma a kérdésem, sőt az is lehet, hogy user error, de nem tudok rájönni a megoldásra...
Az a helyzet, hogy olyan jelenséggel találkoztam, hogy az Excel (2016-os) egy bizonyos dokumentumnál valamiért 2 üres oldalt beszúr a dokumentum végére. Alapvetően 2 oldalas a doksi, a nyomtatási nézetben sem lóg át semmi a 3. oldalra, mégis ott van 2 üres oldal a végén, pdf-be konvertálva is ugyanígy jelenik meg. Kárt ugyan nem okoz, de roppant kellemetlen, hogy ezen nem tudok túljutni.
Próbáltam üres sorokat törölni a végéről, de az sem oldotta meg a problémát.
Mit csinálok rosszul?
Köszönöm előre is a választ. -
Oldman2
nagyúr
Lehet hogy alap dolgot kérdezek, sajnos nem igazán tudom hogyan tudnék rákeresni az archívumban, előre is bocs, ha "vótmá"...
Szóval jobb híján van egy Házi költségvetés XLS-em, amiben könyvelem a már lezajlott és(!) a jövőbeni kiadásokat/bevételeket is.
Az egyenleg mind a mai napra, mind a jövőre nézve is számolódik.
Hogy a jelenlegi szűkös kereteinken belül tudjunk maradni, a jelenlegi egyenleg és a legközelebbi fix bevétel (fizetésnap) dátuma alapján számolódik egy "napi elkölthető" összeg.
A kérdésem az, hogy megoldható-e az, hogy ne kelljen havonta átírogatni ezt a képletet, azaz másolás esetén a képletben szereplő fix dátum a következő hónap 10.-ét mutassa?
=NAPOK("2018.04.10"; MA() )E képlet ma 20-at ad vissza, holnap 19-et...
Azaz a képletben szereplő jelenleg "fix dátum" a MA() utáni hónap 10. napját adja (dátumként).
-
#37569
dellfanboy
őstag
Bati0501
#37566
dellfanboy
őstag
válasz
Bati0501
#37566
üzenetére
ha a pivot tablaban rakattintasz az ertek oszlopra, es kivalasztod hogy atlag akkor masolgatni se kell
nekem angol az excel de ha kesz a pivot tabla akkor rakattintasz a tablara nekem jobb oldald pivot table settings- value field setting es kivalasztod hogy avg meg persze mast is lehet min,max -
csferke
senior tag
válasz
csoki46
#37557
üzenetére
Szia!
Ezt nagyjából sikerült megoldanom, viszont a gond, hogy kérdés nélkül felülírja a korábbi fájlt, ha ugyan azt az értéket írom be a C1-be.Sz.tem ne a C1 legyen a pdf neve.
Pl. AA-ban C1+dátum (vagy C1+dátum&time) és ez legyen a pdf neve. Így mindig egyedi lesz az elnevezés. -
poffsoft
veterán
válasz
poffsoft
#37556
üzenetére
Nos, eddig jutottam.
Az utolsó sor kijelölése már nem sikerül, így a selection miatt rossz területen változik a stílus.
Valaki?
Public Sub masol()
Dim WSheets As Integer, WS1 As Worksheet, WS2 As Worksheet
Dim b As Range
Dim usor As Long, sor As Long, oszlop As Integer
Dim myPath As String
Dim folderPath As String
Dim MyText As String
Dim MyRange As Object
Dim myWRange As Object
Set Wordapp = CreateObject("word.Application")
For WSheets = 1 To 1 'Worksheets.Count
Set WS1 = Sheets(WSheets)
folderPath = Application.ActiveWorkbook.Path
usor = Range("A" & Rows.Count).End(xlUp).Row + 1
With Wordapp
.documents.Open folderPath & "\temp.docx"
a = .documents.Count
.documents(a).SaveAs Filename:=folderPath & "\" & WS1.Name & ".docx" ', FileFormat:=wdFormatDocumentDefault
.Visible = True
'ITT KELLENE AZ UTOLSÓ SORT KIJELÖLNI
MyText = WS1.Range("A1")
.documents(a).Range.InsertAfter (MyText)
.Selection.Style = .documents(a).Styles("List_M")
.documents(a).Range.InsertparagraphAfter
'ITT KELLENE AZ UTOLSÓ SORT KIJELÖLNI
MyText = "C. Témacsoportok az üzem-specifikus kérdésekhez"
.documents(a).Range.InsertAfter (MyText)
.Selection.Style = .documents(a).Styles("List_0")
.documents(a).Range.InsertparagraphAfter
'ITT KELLENE AZ UTOLSÓ SORT KIJELÖLNI
For oszlop = 3 To 31
For sor = 6 To 8
MyText = WS1.Cells(sor, oszlop)
If MyText <> "" Then
.documents(a).Range.InsertAfter (MyText)
.Selection.Style = .documents(a).Styles("List_" & sor - 5)
.documents(a).Range.InsertparagraphAfter
'ITT KELLENE AZ UTOLSÓ SORT KIJELÖLNI
End If
Next sor
For sor = 10 To usor
If WS1.Cells(sor, oszlop) <> "" Then
.documents(a).Range.InsertAfter (WS1.Cells(sor, 1))
.Selection.Style = .documents(a).Styles("List_norm")
.documents(a).Range.InsertparagraphAfter
'ITT KELLENE AZ UTOLSÓ SORT KIJELÖLNI
End If
Next sor
Next oszlop
MyRange.Selection.Collapse Direction:=wdCollapseend
.documents(a).Range.InsertparagraphAfter
End With
Wordapp.documents(a).Close
Next WSheets
Wordapp.Quit
End Sub -
#37566
Bati0501
őstag
dellfanboy
#37562
Bati0501
őstag
válasz
dellfanboy
#37562
üzenetére
Köszi szépen!
Az átlagokat sajna még így is kézzel kellett másolgatnom, de a pivot táblával sikerült a szállodaneveket megoldani, így fele annyi meló volt csak, és nem is tartott olyan sokáig.
Köszi.
-
Karol0109
csendes újonc
válasz
Fferi50
#37564
üzenetére
Szia!
Ertem.
A lekerdezesben szerepel a kiallitas datuma es mivel az kulonbozik, ezert jon le ket sorban. Lenyegeben egy szemelyhez tartozhat tobb azonos foku es tipusu nyelvvizsga, ha azt megszerezte mondjuk allamilag elismert nyv kozpontban vagy nemzetkozileg elismert nyv kozpontban.
A feladat szempontjabol nekunk a kedvezobb datumokat kell figyelembe venni, tehat, ha van olyan datumu, ami a 731 napnal kevesebb, akkor azt.
Tekintve, hogy a feladat szempontjabol nekunk nem erdekes a nyelvvizsga kozpont, igy az nem szerepel a tablazatban.Elnezest ez a resze nem lett kifejtve.
Koszonom szepen.
-
Fferi50
Topikgazda
válasz
Karol0109
#37563
üzenetére
Szia!
Nem az a bajom, hogy nem tudom értelmezni a feladatot, hanem az, hogy a mintád használhatatlan, mert ugyanazon azonosítóhoz tartoznak azonos(nak tűnő) tételek. Akkor most melyik A és B vizsgát párosítsam, ha mindkettőből van azonos névhez azonos fokozattal szakmai 2-2 db, mint a mintádban?
Üdv.
-
Karol0109
csendes újonc
-
Bati0501
őstag
Sziasztok!
Magyarul nyelvű 2010-es Excelt használok.
Egy utazási irodának készítem el a múlt szezonbeli szállodaértékelések kiértékelését.
Megkaptam egy táblázat formát, amiben az eddigi évek alatt gyűjtötték össze 1-1 szállodára az értékeléseket/átlagokat. Én is ez alapján készítettem el az alapot, amiből majd lehet számolni, csak az a baj, hogy nem valami jó ez a táblázat, a további számításokhoz nem megfelelő.Ezért azt szeretném megcsinálni, hogy készítek egy egyszerű táblázatot, egyik oszlopban lennének a szállodák nevei, és mellettük lenne adott szálloda vendégek által adott "főátlaga". Külön kérdőív van azoknak, akik a nyaralásukra busszal, repülővel vagy egyénileg mentek. Mindegyik kérdőíven 5 olyan kérdés van, ami most releváns. Utazási módonként és persze szállodánként leátlagolom egyenként az 5 kérdést, majd ezeket az átlagokat beírom az összesítő táblázatba. Ezután kiszámolom utazási módonként az egyes kérdések átlagát, majd így erre az egészre is számolok egy átlagot, és kijön a "főátlag" arra az adott szállodára. Remélem sikerült valamennyire érthető módon leírnom.
Én ennek a sok átlagolásnak annyira nagyon nem látom az értelmét, persze látom benne a logikát, de a gyakorlati értelmezhetősége/használhatósága szerintem nem túl jó, mert pl. nincs így semmilyen súlyozás, és van olyan szálloda, ahova 400-an mentek és így jött ki egy 8,2-es átlag, míg vannak olyan szállodák is, ahova 1 ember ment vagy csak 4-5 és így jön ki egy bizonyos átlag... szóval nem túl összehasonlíthatóak, de ha az iroda eddig így csinálta, akkor én megcsinálom így, de gondolkozok, hogy hogyan lehetne javítani a dolgot.Csak az a baj, hogy több száz szálloda van, így nem szeretném kézzel egyenként másolgatni a szálloda neveket és főátlagokat - bár lehet, hogy annyi idő alatt, míg ezt a hsz-t megírom ezzel a másolgatás módszerrel már majdnem kész lennének.
Szóval abban szeretném kérni a segítségeteket, hogy arra van-e valamilyen függvény, hogy ebből a sok szállodából kimásoljak mindegyikből egyet és a hozzá tartozó főátlagot?
/Az összesítő táblázatban 5 cellánként vannak egymás alatt a szállodák nevei és jó pár oszloppal odébb a főátlagok (ezek is 5 cellánként), csak a főátlag sorában és oszlopában is vannak átlagok, sajnos nincs külön oszlopa...
A szállodák megtalálhatók a kérdőíves lapon is, nem csak az 'átlagos' lapon./ -
Karol0109
csendes újonc
Sziasztok! Az alábbi feladatban szeretném a segítségeteket kérni:
Van egy lista, amiben szerepelnek a személyekhez tartozó nyelvvizsgák adatai: nyelv, típus, fok, kiállítás dátuma, illetve szakmai vagy sem. A személyek egyedi azonosítóval vannak ellátva.
Ebből a listából meg kell állapítani, hogy összesen hány nyelvvizsga van, viszont az egy személyhez tartozó A és B típusú nyelvvizsgákat, ahol a nyelv, fok, szakmai oszlop értéke ugyanaz ÉS a kiállítás dátumok között kevesebb, mint 731 nap telt el, azt 1 db C típusú nyelvvizsgának kell tekinteni.Eszerint kell megállapítani, hogy hány C (ami a feltételnek megfelel vagy csak alapból C), A, B típusú nyelvvizsga van.
Excel:
https://drive.google.com/file/d/1BOxjjqnt8Ud4gRKm2phXhx7dj2ykIqLE/view?usp=sharingElőre is nagyon szépen köszönök minden segítséget.
-
lappy
őstag
válasz
csoki46
#37557
üzenetére
Sub SaveNumberedFile()
Static count As Integer
Dim filestr As String
filestr = "C:\Users\Me\Documents\Code\TestWkbk"
ThisWorkbook.Activate 'Activate whichever workbook you need
If count = 0 Then
ActiveWorkbook.SaveAs (filestr & ".xls")
ElseIf count > 0 And Dir(filestr & "v" & count - 1 & ".xls") = "" Then
ActiveWorkbook.SaveAs (filestr & "v" & count & ".xls")
End If
count = count + 1
End Subannyi a baj vele hogy csak akkor számolja a változót ha meg van nyitva, bezárás esetén újra indul.
Célszerű valahova lementeni a füzeten belül ezt az értéket és minden megnyitásánál beolvasni. -
csoki46
senior tag
Sziasztok,
Elsősorban szeretném leszögezni, hogy nem értek a makró programozáshoz, de most rá kényszerültem, hogy valamit összeberheljek.
Annyi lenne a feladat, hogy egy excel fájlt mentes el pdf formátumban aminek a C1 cellában lévő érték legyen a neve. Ezt nagyjából sikerült megoldanom, viszont a gond, hogy kérdés nélkül felülírja a korábbi fájlt, ha ugyan azt az értéket írom be a C1-be.
Tudnátok segíteni? -
poffsoft
veterán
Sziasztok,
egy olyan makró kellene nekem, ami :
Megnyitja a temp.docx fájlt,
Az A1 cellaérték névvel menti másként (ha létezik a név, felülírja),
A B1 cella tartalmát "Stílus1" szövegstílussal bemásolja a fájlba,
A C1 cella tartalmát "Stílus2" szövegstílussal bemásolja a fájlba,
Bezárja az új fájlt.Egy bonyolultabb táblázat feldolgozásához kellene ezzel elindulnom.
Köszi!
-
tgumis
tag
válasz
Delila_1
#37549
üzenetére
Nagyon zsír
Már csak az a probléma (és természetesen ezt sem sikerül megfejtenem) hogy az összesítés munkalapon az A oszlopban nem sorszámozás történik hanem a b oszlop lemásolása és beillesztése
pedig ezzel kísérleteztem:Application.CutCopyMode = False 'kijelölés megszüntetése
'talán ez a sorszámozás
Range("S2:V2").Copy Destination:=Range("S" & Asor & ":S" & Bsor - 1)
For i = Asor To Bsor - 1
Range("A" & i) = Range("A" & i - 1) + 1
Next i
'talán itt a sorszámozás vége
de nem jártam iskerrel
Persze a jelszavazás jó helyre helyezés után nagyon jól müxik -
Delila_1
veterán
válasz
tgumis
#37547
üzenetére
A védelmet az értékadások alá tedd!
'értékadások
Set WSBev = Sheets("bevitel")
Set WSOsz = Sheets("ÖSSZESÍTÉS")
Bsor = WSOsz.Range("B" & Rows.Count).End(xlUp).Row + 1
usor = WSBev.Range("D2").End(xlDown).Row
'lapok védelmének feloldása a makró számára
WSBev.Protect Password:="pw", UserInterfaceOnly:=True
WSOsz.Protect Password:="pw", UserInterfaceOnly:=True -
tgumis
tag
válasz
Delila_1
#37546
üzenetére
Nos én nagyon béna vagyok
a munkafüzet minden lapját levédtem
jelszónak pw adtam meg és ugyanaz a hiba jön
Ne haragudj az értetlenségem miatt de már nincs ötletem.Sub Szur_Masol_Torol___()
Dim usor As Long, WSBev As Worksheet, WSOsz As Worksheet
Dim Bsor As Long, Csor As Long, valasz
valasz = MsgBox("Áttölthetem az adatokat?", vbYesNo + vbQuestion, "Választás")
If valasz = vbNo Then Exit Sub
'lapok védelmének feloldása a makró számára
WSBev.Protect Password:="pw", UserInterfaceOnly:=True
WSOsz.Protect Password:="pw", UserInterfaceOnly:=True
'értékadások
Set WSBev = Sheets("bevitel")
Set WSOsz = Sheets("ÖSSZESÍTÉS")
Bsor = WSOsz.Range("B" & Rows.Count).End(xlUp).Row + 1
usor = WSBev.Range("D2").End(xlDown).Row
'szűrés OK-ra
WSBev.ListObjects("bevitel").Range.AutoFilter Field:=17, Criteria1:="=OK"
'másolás és érték beillesztés
WSBev.Range("D2:T" & usor).Copy
WSOsz.Range("C" & Bsor).PasteSpecial xlPasteValues
'képlet, majd érték beillesztés a B oszlopba
Csor = WSOsz.Range("C" & Rows.Count).End(xlUp).Row
WSOsz.Range("B" & Bsor & ":B" & Csor) = "=B" & Bsor - 1 & "+1"
WSOsz.Columns(2).Copy
WSOsz.Range("B1").PasteSpecial xlPasteValues
'T2:W2 képlete az új sorokba az Összesítés lapon
WSOsz.Range("T2:W2").Copy
WSOsz.Range("T" & Bsor & ":W" & Csor).PasteSpecial xlPasteFormulas
Application.CutCopyMode = False 'kijelölés megszüntetése
With WSOsz.Range("B1").CurrentRegion 'keretezés
.BorderAround LineStyle:=xlContinuous, Weight:=xlThin
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideHorizontal).Weight = xlThin
End With
WSBev.ListObjects("bevitel").Range.AutoFilter Field:=17 'OK-ra szűrés megszüntetése
WSBev.Range("D2:E200,G2:G200,H2:I200,B1:B6").ClearContents 'törlés
End Sub -
-
Delila_1
veterán
válasz
tgumis
#37542
üzenetére
A hiba azért lépett fel – amire korábban felhívtam a figyelmedet –, mert a makró végén a bevitel lap jelszavát módosítottuk pw-ről LiliLufi140127-re. Ha továbbra is meg akarod hagyni a pw-t, akkor az utolsó utasítást egyszerűen töröld ki a makróból.
Ezt kell kihagynod.
WSBev.Protect Password:="LiliLufi140127", UserInterfaceOnly:=True, _
AllowFiltering:=True, AllowFormattingColumns:=TrueÚgy tűnik, hiába írtam le már többször, hogy a
WSBev.Protect Password:="pw", UserInterfaceOnly:=True
WSOsz.Protect Password:="pw", UserInterfaceOnly:=Truesorok a 2 lapot a makró számára írhatóvá teszik, nem kell külön a makró elején felszabadítani, a végén pedig védetté tenni a lapokat.
-
tgumis
tag
válasz
Delila_1
#37540
üzenetére
Szia
Köszi logitechh és Delila_1
A logitechh verziója müxik viszont Delilia a tiédnél valamiért már az elején hibát dob:
Mikor okoz észrevehető lassulást a logitechh által készített verzió?
Mert - félre ne értsd logitechh - inkább a Delila_ verzióját preferálnám ha nagyon lassít. Már csak attól a hiba üzenettől kellene megszabadulni vhogy.
Amúgy közveb kisérletezgettem a msg boxal és sikerült nekem is kitalálni egyfajta megoldást. Persze gondolom ennél jóval egyszerűbb a Delila megoldása( de ő profi míg én lelkes amatőr lennék)
Íme:Sub message_box_szur_masol_beilleszt_()
Dim Answer As String
Dim MyNote As String
'itt adod meg a kérdést
'Place your text here
MyNote = "Rögzíted az adatokat?"
'itt adod meg a msg box címét
Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "Rögzítés")
If Answer = vbNo Then
'Code for No button Press
MsgBox "Az adatok nem lesznek áttöltve az ÖSSZESÍTÉS munkalapra!"
Else
'Code for Yes button Press
MsgBox "Az adatok áttöltéser kerülnek az ÖSSZESÍTÉS munkalapra viszont nem kerülnek törlésre a BEVITEL munkalapról!" & _
vbCrLf & "A folyamat nem visszavonható!!!!!!" '&vbCrLf & ez a sortörést jelzi
' bevitel munkalapon kijelöl másol összesítés munkalapon szűrés alapra álítása
' mindkét munkalapon jelszavas védelem feloldás másolás munkalapon a másolás utána jelszavas védelem beállítása
'
' kezdet
'
' bevitel munkalap védettség feloldás
Sheets("bevitel").Unprotect Password:="pw1234"
' összesítés munkalap védettség feloldás
Sheets("összesítés").Unprotect Password:="pw1234"
' összesítés munkalapon az 2.sorban a szűrés kikapcsolása majd bekapcsolása
' azért így van megoldva mert ha le van szűrve akkor minden sort megjelenít
' ugyanis nem tudni előre milyen szűrés volt alkalmazva az összesítés munkalapon
Sheets("összesítés").Select
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter
' szűrés a bevitel munkalapon a 17. oszlopban
Sheets("bevitel").Select
Sheets("bevitel").Range("D2").Activate
Sheets("bevitel").ListObjects("bevitel").Range.AutoFilter Field:=17, Criteria1:="=OK", Operator:=xlAnd
usor = Range("D2").End(xlDown).Row
' bevitel munkalap védetté tétele
Sheets("bevitel").Protect Password:="pw1234", UserInterfaceOnly:=True, AllowFiltering:=True, AllowFormattingColumns:=True
' másolás
Range("D2:T" & usor).Select
Selection.Copy
'összesítés munkalap kijelölése
Sheets("összesítés").Select
Dim Asor As Long
Dim Bsor As Long
Dim i As Integer
' A oszloputolsó adat megkeresése majd a következő sor B oszlop elemét jelelöli ki
Asor = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("B" & Asor).PasteSpecial xlPasteValues
Bsor = Range("B" & Rows.Count).End(xlUp).Row + 1
' S3:V3 tartományban található képletek másolása és beillesztés a következő sorba
Range("S2:V2").Copy Destination:=Range("S" & Asor & ":S" & Bsor - 1)
For i = Asor To Bsor - 1
Range("A" & i) = Range("A" & i - 1) + 1
Next i
With Range("A1").CurrentRegion
.BorderAround LineStyle:=xlContinuous, Weight:=xlThin
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideHorizontal).Weight = xlThin
End With
Sheets("összesítés").Protect Password:="pw1234", UserInterfaceOnly:=True, AllowFiltering:=True, AllowFormattingColumns:=True
Sheets("bevitel").Select
Sheets("bevitel").ListObjects("bevitel").Range.AutoFilter Field:=17
End If
End SubEz a logitechh makrójára épül mert akkor még nem láttam Delila_1 megoldását.
-
Delila_1
veterán
válasz
logitechh
#37539
üzenetére
Sok helyen használod a Select utasítást, amik lassítják a program futását. Pl. a
Range("D2:T" & usor).Select
Selection.Copysorok helyett elég a
Sheets("bevitel").Range("D2:T" & usor).CopyHa itt nem értéket, hanem teljes tartományt kellene beilleszteni, ugyanebben a sorban megadhatod a célt is.
Sheets("bevitel").Range("D2:T" & usor).Copy Sheets("ÖSSZESÍTÉS").Range("C" & Bsor)Azt már írtam Tgumis-nak is, hogy a
Lapneve.Protect Password:="pw", UserInterfaceOnly:=Truesor a makró részére írhatóvá teszi a lapot, nem kell külön a makró elején feloldani, majd a végén újra levédeni.
Msgbox a folytatáshoz:
Sub Kerdes()
Dim valasz
valasz = MsgBox("Futtassam a Másik makrót?", vbYesNo + vbQuestion, "Futtatási kérdés")
If valasz = vbYes Then Masik_Makro ' itt hívjuk meg a feladat végrehajtó makróját
End SubSub Masik_Makro()
MsgBox "Ez itt a Másik makró"
End Sub -
Delila_1
veterán
válasz
tgumis
#37537
üzenetére
A makró elejére beírtam a kérdést, a vége felé meg ott van a képletek másolása.
Sub Szur_Masol_Torol()
Dim usor As Long, WSBev As Worksheet, WSOsz As Worksheet
Dim Bsor As Long, Csor As Long, valasz
valasz = MsgBox("Áttölthetem az adatokat?", vbYesNo + vbQuestion, "Választás")
If valasz = vbNo Then Exit Sub
'lapok védelmének feloldása a makró számára
WSBev.Protect Password:="pw", UserInterfaceOnly:=True
WSOsz.Protect Password:="pw", UserInterfaceOnly:=True
'értékadások
Set WSBev = Sheets("bevitel")
Set WSOsz = Sheets("ÖSSZESÍTÉS")
Bsor = WSOsz.Range("B" & Rows.Count).End(xlUp).Row + 1
usor = WSBev.Range("D2").End(xlDown).Row
'szűrés OK-ra
WSBev.ListObjects("bevitel").Range.AutoFilter Field:=17, Criteria1:="=OK"
'másolás és érték beillesztés
WSBev.Range("D2:T" & usor).Copy
WSOsz.Range("C" & Bsor).PasteSpecial xlPasteValues
'képlet, majd érték beillesztés a B oszlopba
Csor = WSOsz.Range("C" & Rows.Count).End(xlUp).Row
WSOsz.Range("B" & Bsor & ":B" & Csor) = "=B" & Bsor - 1 & "+1"
WSOsz.Columns(2).Copy
WSOsz.Range("B1").PasteSpecial xlPasteValues
'T2:W2 képlete az új sorokba az Összesítés lapon
WSOsz.Range("T2:W2").Copy
WSOsz.Range("T" & Bsor & ":W" & Csor).PasteSpecial xlPasteFormulas
Application.CutCopyMode = False 'kijelölés megszüntetése
With WSOsz.Range("B1").CurrentRegion 'keretezés
.BorderAround LineStyle:=xlContinuous, Weight:=xlThin
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideHorizontal).Weight = xlThin
End With
WSBev.ListObjects("bevitel").Range.AutoFilter Field:=17 'OK-ra szűrés megszüntetése
WSBev.Range("D2:E200,G2:G200,H2:I200,B1:B6").ClearContents 'törlés
'új jelszó a bevitel laphoz
WSBev.Protect Password:="LiliLufi140127", UserInterfaceOnly:=True, _
AllowFiltering:=True, AllowFormattingColumns:=True
End Sub -
logitechh
csendes tag
válasz
tgumis
#37538
üzenetére
Neked erre van szükséged
Nem olyan stílusos mint Delila_1 megoldása de funkciójában ez tökéletesen működikSub szur_masol_beilleszt_torol()
Sheets("bevitel").Unprotect Password:="pw"
Sheets("összesítés").Unprotect Password:="pw"
Sheets("összesítés").Select
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter
Sheets("bevitel").Select
Sheets("bevitel").Range("D2").Activate
Sheets("bevitel").ListObjects("bevitel").Range.AutoFilter Field:=17, Criteria1:="=OK", Operator:=xlAnd
usor = Range("D2").End(xlDown).Row
Range("D2:T" & usor).Select
Selection.Copy
Sheets("összesítés").Select
Dim Asor As Long
Dim Bsor As Long
Dim i As Integer
Asor = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("B" & Asor).PasteSpecial xlPasteValues
Bsor = Range("B" & Rows.Count).End(xlUp).Row + 1
Range("S2:V2").Copy Destination:=Range("S" & Asor & ":S" & Bsor - 1)
For i = Asor To Bsor - 1
Range("A" & i) = Range("A" & i - 1) + 1
Next i
With Range("A1").CurrentRegion
.BorderAround LineStyle:=xlContinuous, Weight:=xlThin
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideHorizontal).Weight = xlThin
End With
Sheets("összesítés").Protect Password:="pw", UserInterfaceOnly:=True, AllowFiltering:=True,
AllowFormattingColumns:=True
Sheets("bevitel").Select
Sheets("bevitel").ListObjects("bevitel").Range.AutoFilter Field:=17
Range("D2:E200,G2:G200,H2:I200").Select
Range("H2").Activate
Range("D2:E200,G2:G200,H2:I200,B1:B6").Select
Range("B1").Activate
Selection.ClearContents
Selection.ClearContents
Sheets("bevitel").Protect Password:="pw", UserInterfaceOnly:=True, AllowFiltering:=True,
AllowFormattingColumns:=True
End SubA message bax-al történő makró vezérlése viszont engem is érdekel. Szóval ha igen lefusson a makró ha nem akkor meg nem. Arra tud valaki olyan példát amiből ki lehet ezt venni és más makrókhoz felhasználni
-
tgumis
tag
Abban tudnátok segíteni hogy azt hogy kell megoldani, hogy egy üzenet jelenjen meg a makró indítása után ami rákérdez :
biztos átvigyem az adatokat?
igen
nem
és ha az igenre kattint akkor átmegy ha nem akkor leáll a makrómármint hová kell helyezni a makrómban
Sub atvitel_enged()
Dim iAnswer As Integer
iAnswer = MsgBox("Áttölthetem az adatokat", vbYesNo Or vbQuestion)
End Sub
-
tgumis
tag
Az összesítés munkalapról
És igen rosszul írtam mert 4 oszlopnyi.
Nem egy oszlopba szeretném hanem addig ameddig tart a beillesztések után a táblázat
Csak gondoltam ez a legcélszerűbb ha a 2. sorból veszi a képleteket:
tehát a összesítés munkalap T2 ből másolja a összesítésT3 ba U2 ből U3 ba és így tovább addig ameddig a beillesztés után adatot tartalmaz
T2=HA(O2="Kiadás";G2*-1;G2)
U2=C2&"_"&D2&"_"&F2&"_"&H2
V2=HAHIBA(INDEX(készleinformációk[Induló_készlet_készlet];HOL.VAN(U2;készleinformációk[Induló_készlet_KOD_ECSK_KLCS_EAZ];0));0)
W2=V2+SZUMHA($U$2:U2;U2;$T$2:T2) -
tgumis
tag
válasz
Delila_1
#37533
üzenetére
Köszi a gyors segítséget
viszont a T2:w2 ben lévő képletek másolását kihagytad azt hová kell beraknom?
Az eredeti makróban így van:Range("T2:W2").Copy Destination:=Range("T" & Bsor & ":T" & Csor - 1)
(legalább is azt hiszem ez az a rész ami megmondja a makrónak hogy másolja le azt a 3 oszlopnyi képletet) -
Delila_1
veterán
válasz
tgumis
#37532
üzenetére
A lenti sor a MAKRÓ részére feloldja a lap védettségét.
Sheets("Lapneve").Protect Password:="pw", UserInterfaceOnly:=TrueHa előtte nem volt levédve a lap, akkor a beírt jelszóval védetté teszi.
Minek ehhez 3 makró? Eggyel is meg lehet oldani. Arra kell ügyelned, hogy a jelszó a bevitel lapon a makró végén megváltozik (pw-ről LiliLufi140127-re), legközelebb indításkor az újat kell megadnod.
Sub Szur_Masol_Torol()
Dim usor As Long, WSBev As Worksheet, WSOsz As Worksheet
Dim Bsor As Long, Csor As Long
'értékadások
Set WSBev = Sheets("bevitel")
Set WSOsz = Sheets("ÖSSZESÍTÉS")
Bsor = WSOsz.Range("B" & Rows.Count).End(xlUp).Row + 1
WSBev.Protect Password:="pw", UserInterfaceOnly:=True
WSOsz.Protect Password:="pw", UserInterfaceOnly:=True
'szűrés OK-ra
WSBev.ListObjects("bevitel").Range.AutoFilter Field:=17, Criteria1:="=OK"
'másolás és érték beillesztés
usor = WSBev.Range("D2").End(xlDown).Row
WSBev.Range("D2:T" & usor).Copy
WSOsz.Range("C" & Bsor).PasteSpecial xlPasteValues
'képlet, majd érték beillesztés a B oszlopba
Csor = WSOsz.Range("C" & Rows.Count).End(xlUp).Row
WSOsz.Range("B" & Bsor & ":B" & Csor) = "=B" & Bsor - 1 & "+1"
WSOsz.Columns(2).Copy
WSOsz.Range("B1").PasteSpecial xlPasteValues
Application.CutCopyMode = False 'kijelölés megszüntetése
With WSOsz.Range("B1").CurrentRegion 'keretezés
.BorderAround LineStyle:=xlContinuous, Weight:=xlThin
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideHorizontal).Weight = xlThin
End With
WSBev.ListObjects("bevitel").Range.AutoFilter Field:=17 'OK-ra szűrés megszüntetése
WSBev.Range("D2:E200,G2:G200,H2:I200,B1:B6").ClearContents 'törlés
'új jelszó a bevizel laphoz
WSBev.Protect Password:="LiliLufi140127", UserInterfaceOnly:=True, _
AllowFiltering:=True, AllowFormattingColumns:=True
End Sub -
tgumis
tag
sziasztok
Ismét makró összefűzéssel kapcsolatos problémába ütköztem
adott két makró:
1.(ezzel másolok a bevitel munkalapról)Sub D2_T_szurt_taromany_masol()
'
' munkalap védettség feloldás
Sheets("bevitel").Unprotect Password:="pw"
' szűrés
Sheets("bevitel").Range("D2").Activate
Sheets("bevitel").ListObjects("bevitel").Range.AutoFilter Field:=17, Criteria1:="=OK", Operator:=xlAnd
usor = Range("D2").End(xlDown).Row
' munkalap védetté tétele
Sheets("bevitel").Protect Password:="pw", UserInterfaceOnly:=True, AllowFiltering:=True, AllowFormattingColumns:=True
' másolás
Range("D2:T" & usor).Select
Selection.Copy
End Sub2. ezzel illesztem be az előző makróval kimásolt tartományt de egy másik munkalapra aminek a neve összesítés ÖSSZESÍTÉS
Sub beilleszt()
Dim Bsor As Long
Dim Csor As Long
Dim i As Integer
Bsor = Range("B" & Rows.Count).End(xlUp).Row + 1
Range("C" & Bsor).PasteSpecial xlPasteValues
Csor = Range("C" & Rows.Count).End(xlUp).Row + 1
Range("T2:W2").Copy Destination:=Range("T" & Bsor & ":T" & Csor - 1)
For i = Bsor To Csor - 1
Range("B" & i) = Range("B" & i - 1) + 1
Next i
With Range("B1").CurrentRegion
.BorderAround LineStyle:=xlContinuous, Weight:=xlThin
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideHorizontal).Weight = xlThin
End With
End SubSzóval a bevitel munkalapon állva indítanám a makrót és neki automatikusan át kellene rakni az összesítés munkalapra az egészet. plusz ráadásnak még szeretném a végén mindegyik munkalapot visszakódolni és a bevitelnél a törlést alkalmazni egy tartományban amire már kész a makró:
Sub bevitel_torol()
' bevitel munkalapon törlés Makró
' munkalap védettség feloldás
Sheets("bevitel").Unprotect Password:="pw"
' szűrés kikapcsolása
Sheets("bevitel").ListObjects("bevitel").Range.AutoFilter Field:=17
' munkalap kijelölt celláiból érték törlése majd visszaállás az A2
Range("D2:E200,G2:G200,H2:I200").Select
Range("H2").Activate
Range("D2:E200,G2:G200,H2:I200,B1:B6").Select
Range("B1").Activate
Selection.ClearContents
Selection.ClearContents
' munkalap védetté tétele
Sheets("bevitel").Protect Password:="LiliLufi140127", UserInterfaceOnly:=True, AllowFiltering:=True, AllowFormattingColumns:=True
End Subösszegezve:
tartomány szűrése másolásra majd átugrás másik munkalapra ott beillesztés keretezés majd visszaugrás a bevitel munkalapra és ott törlés. Majd minden munkalapot lekódolok. ha lehet munkalaponként kódolást szeretnék nem egyben a munkafüzetet. -
#37530
Delila_1
veterán
dellfanboy
#37529
Delila_1
veterán
válasz
dellfanboy
#37529
üzenetére
Nem elég a formátumot átállítani, a cella értéket is újra le kell enterezni a szerkesztőlécen.
-
#37529
dellfanboy
őstag
Fferi50
#37528
dellfanboy
őstag
válasz
Fferi50
#37528
üzenetére
koszi
igen azt neztem hogy a szemem kaprazik-e vagy nem. de mind a ket ertek ua. ezek id-k raadasul meg a cella formatumot is number-ra raktam mind az ertek es a keresett tabla neveben is.
szoval amikor ctrl f-el keresem akkor u.a. az ertek es meg a formatum is stimmel (2tizedes, szam,) -
#37528
Fferi50
Topikgazda
dellfanboy
#37527
Fferi50
Topikgazda
válasz
dellfanboy
#37527
üzenetére
Szia!
Valószínűleg mégsem azonos a keresett érték a táblázatban levővel. Erről meggyőződhetsz, ha a táblázatból átmásolod az értéket a keresőhöz, vagy fordítva.
Az Fkeres 0 negyedik paraméter esetén pontos egyezőséget keres, míg a Ctrl+F -nek elég a részleges is.Üdv.
-
#37527
dellfanboy
őstag
dellfanboy
őstag
mi okozhatja az a hibat az fkeres vlookup alkalmazasa kapcsan hogy eredmenynek n/a-t kapok?
sima fv 1 erteket keresek 1 tablaban ami melle rendeli a tabla 3. oszlopat, nincs duplikacio semmi megis ha fv-t hasznalok az eredmeny n/a mig ha siman ctrl f-el rakeresek az ertekre a tablaban megtalalom 1 alkalommal..
value not available. megneztem a cellaformatumon mindenhol number... -
Kobe
veterán
válasz
Fferi50
#37525
üzenetére
megoldottam egyszerűbben, kiirattam a listbox értékeit egy ideiglenes táblába és onnan beolvasom/leürítem az ideiglenes táblát
Viszont imádom amikor az ember összerak egy komplett eszközt és a legutolsó mozzanatnál az egész elkezd ActiveX object control hibákat dobni, a relative komplex formom addig flottul működő gombjaitól egész egyszerűen meghal ay Excel, kifagy....
-
Fferi50
Topikgazda
Szia!
A következőt javaslom: a listbox listáját átalakítjuk szöveggé és ebben keressük az adott nevet.
Dim szuro as string ' ez természetesen csak egyszer kell, valahol máshol előtte is lehet.
szuro=Join(Application.Transpose(ListBox2.List), ";")
If szuro Like "*" & Range("B" & i) & "*" Or szuro Like "*" & Range("C" & i) & "*" Then
Rows(i).EntireRow.Delete Shift:=xlUpÜdv.
-
Kobe
veterán
válasz
Fferi50
#37523
üzenetére
Mert egy user neve a ket oszlop barmelyikeben elofordulhat (az oszlopok kulonbozo szerepkorokre utalnak, es ahol a ketto vmelyikeben talalat can, az a sor marad
Igazabol nem a 2 feltetel figyelese okoz gondot (mind a ket oszlopnal ugyanannak a listboxnak az ertekeit kellene nezni) hanem a range listboxra cserelese -
Kobe
veterán
sziasztok
van egy vezérlő űrlapom, amin a felhasználó kiválaszthatja, hogy milyen user nevekre és miylen státuszú tételekre szeretne egy riportot futtatni. Van pl 15 user, és 10 státusz, ő maga összeválogathatja, hogy mire akarja futtatni
Ezt úgy oldottam emg, hogy vannak LsitBox ok a formon, az egyikben megjelenik az összes választható, és a user átmozgatja a kiválasztott tételeket egy üres ListBox ba
Ezután futtatja a riportot. A nyers riportból pedig kitörlődik midnen olyan felhasználó és státusz sora ami nincs benne a választásban.
Eddig úgy oldottam ezt meg hogy egy háttér-worksheeten tároltam ezeket az értékeket, és onnan olvastam ki mi nem kell, és ami nem felelt meg, annak a sorát törölte:
Dim WF As WorsheetFunction
Set WF = Application.WorksheetFunction
'LR = Cells(Rows.Count, 2).End(xlUp).Row
For i = LR To 2 Step -1
If WF.CountIf(ThisWorkbook.Worksheets("Usernames").Range("A2:A20"), Range("B" & i)) + WF.CountIf(ThisWorkbook.Worksheets("Usernames").Range("A2:A20"), Range("C" & i)) = 0 Then
Rows(i).EntireRow.Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = Trueezt szeretném átírni úgy, hogy ne a worksheet Range-re kelljen hivatkozni, hanem a Username nevű Form ListBox2-es listboxában található értékekre:
If WF.CountIf(ThisWorkbook.Worksheets("Usernames").Range("A2:A20"), Range("B" & i)) + WF.CountIf(ThisWorkbook.Worksheets("Usernames").Range("A2:A20"), Range("C" & i)) = 0 Then
Rows(i).EntireRow.Delete Shift:=xlUptudna valaki segíteni ezzel?
-
tzimash
őstag
Sziasztok,
van egy string változóm, ami egy textboxból kap értéket, a textboxba az adatok vonalkódolvasóból kerülnek.
A vonalkódok mindig Y-nal kezdődnek, amelyet 12 számjegy követ. Pl.: Y010902581309
A probléma akkor kezdődik, ha a kedves felhasználó nem angol területi beállításokat alkalmaz, így az Y-ból könnyen Z lesz, a nullákból pedig ö.
Hogyan lehet megoldani, ha a stringben Z vagy ö betű van, az ki legyen cserélve Y-ra ill. 0-ra?
Replace jó erre? -
#37511
Fferi50
Topikgazda
szabonagyur
#37507
Fferi50
Topikgazda
válasz
szabonagyur
#37507
üzenetére
Szia!
Talán megpróbálhatnád a kombinált diagramot. Az alapadatok vonal, a szélső értékek pedig oszlop diagram formájában.
Üdv.
-
Fferi50
Topikgazda
válasz
csongi
#37506
üzenetére
Szia!
Mitől fehér és mitől kék? Vagyis mi okozza a cella színeváltozását? Ha feltételes formázás, akkor talán az értékhez kötve megvalósítható a munkalap Change eseményében.
Ha csak "úgy", a felhasználó színezi, akkor automatikusan nem fog menni, max. gombnyomásra.
De mindkét esetben makró kell hozzá.Üdv.
-
#37507
szabonagyur
félisten
szabonagyur
#37500
szabonagyur
félisten
válasz
szabonagyur
#37500
üzenetére
Erre tipp?
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Hirdetés
- Asustor NAS
- Intel Dual Core 2000 felhasználók barátságos offolós topikja
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Tőzsde és gazdaság
- Wise (ex-TransferWise)
- Samsung Galaxy S25 - végre van kicsi!
- Házimozi belépő szinten
- OTP Bank topic
- HiFi műszaki szemmel - sztereó hangrendszerek
- LEGO klub
- További aktív témák...
- Honor Pad X8 64GB, Wi-Fi, 1 Év Garanciával
- AKCIÓ! VALVE INDEX virtuális valóság szemüveg garanciával hibátlan működéssel
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5800X 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Külföldi csomagszállítás Packeta csomagpontokon keresztül!
- Hibás! Dísznek, Porfogónak, tesztkártyának vagy böngészni! Asus Rog Strix RX 470 4GB Videokártya.
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest