Hirdetés
- Real Racing 3 - Freemium csoda
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- urandom0: Száműztem az AI-t az életemből
- eBay-es kütyük kis pénzért
- Brogyi: CTEK akkumulátor töltő és másolatai
- Elektromos rásegítésű kerékpárok
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- hcl: Poco F2 Pro facepalm
-
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
-
Delila_1
veterán
Míg írtam, Mutt megadta a lényeget, hogy a B oszloptól számított -6 oszlop értelmetlen.
Gondolom, arra az értékre vagy kíváncsi, ami a B2:B64 tartományban a legkisebb szám, és ebben a sorban a tőle jobbra eső 6. oszlopban van.
Ezt a
=ELTOLÁS(INDEX(B:B;HOL.VAN(KICSI(B2:B64;1);B:B;0);1);0;6)
képlettel kaphatod meg. -
Mutt
senior tag
Hello,
Az eltolas elso parameterenek cellat kell megadni, a KICSI fuggveny szamot ad vissza es nem cellat. Az INDIREKT vagy INDEX fuggvennyel tudsz igazi hivatkozast eloallitani. A -6 -al nincs gond, addig ha lehet ennyit balra menni, vagyis legalabb a G oszlopbol kell indulni.
Udv
-
gyga
senior tag
=ELTOLÁS(KICSI(b2:b64;1);0;-6) miért nem működik?
-
rekid
addikt
Szia, közben tárgytalan. De köszönöm szépen.
Azonost én is megtaláltam, csak nem működik mert rengeteg az eltérés. Így bukott az az elképzelés hogy majd kézzel átírom az eltérést.
Plusz most nézem, hogy mégsem teljesen egyeznek a sorok. (Adott lekérdezés nem ugyan abban a sorrendben kérdezte le az adatokat. ) -
rekid
addikt
Hali!
Egy kis segítségre lenne szükségem.
Adott két munkalap ami sorraszámra és oszlopszámra ugyan az. Elvileg tartalomra is de mégsem, vannak cella tartalmak melyek eltérnek. Ezt kellene összefűznöm úgy hogy én döntöm el melyik cellatartalom a jó.
Magyarán a két munkalap ugyanazon sorait kellene összehasonlítani és az eltérőeket mondjuk listázni. -
munkalapok között szeretnék rangeket másolni, első próbálkozásra a copy_ destination:= parancs jött össze, de ez 1:1-ben másolja a range-t, formázással együtt.
a kérdésem az lenne a tapasztalt kollégákhoz, hogy mi a tartományok értékként/fv-ként történő másolásának legegyszerűbb, legparktiuksabb módja munkafüzetek és munkalapok között? köszönöm!
-
gyga
senior tag
delete
-
Mutt
senior tag
válasz
ngabor2
#19779
üzenetére
Hello,
Függvénnyel nem oldható meg.
Ha 2010-es Exceled van, akkor feltételes formázással meg tudod színnel jeleníteni, hogy mely adat ismétlődik a többi táblázatban. A DARABTELI függvény segít ebben. A jelölésre pedig tudsz szűrni és törölni.
A makróhoz kellene egy minta. A 1+3 táblázat egy lapon van? Automatikusan kell futnia?
üdv
-
Mutt
senior tag
válasz
Metathrone
#19778
üzenetére
Set tbl = Cells.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).select -
Mutt
senior tag
válasz
T.Lacci
#19775
üzenetére
Hello,
A makrót fel tudod gyorsítani a következőkkel:
1. képérnyőfrissítés kikapcsolása (ScreenUpdating)
2. események letiltása (EnableEvents)
3. objektumok létrehozása (Set parancs)
4. változók definiálása konkrét típussal (Variant mellőzése)
5. beépített függvények használata (pl. Sum egy saját összegzés helyett)
6. üres cellák ignorálásaEgy 100 ezer darabos halmazon futtattam a különböző variációkat az eredmények:

Könnyedén gyorsítható tehát az első 2 opcióval.
Sub Szorzas()
Dim tartomany As Range, cella As Range, szorzo As Double
Set tartomany = Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row)
Application.EnableEvents = False
Application.ScreenUpdating = False
For Each cella In tartomany
'Feltételek megdása
Select Case cella.Value
Case 1 To 10000
szorzo = 1.4
Case 10001 To 20000
szorzo = 1.3
Case 20001 To 30000
szorzo = 1.2
Case Else
szorzo = 0.9
End Select
'Szorzat beírása az E oszlopba
Cells(cella.Row, "E") = cella.Value * szorzo
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
End SubA függvényest pedig a 19740-es hozzászólásban találod.
üdv
-
ngabor2
nagyúr
van olyan függvény, ami sort töröl?
van egy szép nagy táblázat, amiben van 1+3 oszlop. ha az 1. oszlop tartalma szerepel a többi 3 valamelyikében, akkor azt a sort törölni kellene. létezik ilyen függvény?
gondoltam olyanra, hogy feltételvizsgálattal megnézni, hogy valamelyik oszlop tartalmazza-e az első értékét, ha igen, akkor egy segédcellába beírok egy értéket. utána kereséssel és törléssel megoldanám, de így már elég macerás. a (megmaradó) sorok sorrendje nem változhat.
-
Mutt
senior tag
válasz
Metathrone
#19776
üzenetére
Cells.CurrentRegion.Select
-
Metathrone
csendes tag
Sziasztok!
Autoszűrés után a kapott adatokat ki lehet valahogy jelölni makróval?
Köszi
-
T.Lacci
csendes tag
válasz
Delila_1
#19757
üzenetére
Bocs, hogy megint alkalmatlankodom, de szeretnék kérdezni tőled valamit. A múltkor segítettél nekem a szorzo makró elkészítésében, ami ugye teljesen jól működik, de.. De nagyon lassan dolgozik és ezzel kapcsolatban lenne kérdésem. Megfigyeltem (persze lehet, hogy nem jól) ,hogy azok a makrók ahol nekem kell kézzel kijelölnöm a műveleti területet, sokkal gyorsabban dolgoznak, mint azok, ahol előre beállított terület van. Tehát amikor a makróm úgy kezdődik, hogy: Dim TER As Range Set TER = Application.InputBox(PROMPT:="JELÖLD KI A TARTOMÁNYT", Type:=8), akkor azok lényegesen hamarabb végeznek, mint pl. amit a szorzo makróban leírtál. Kérdésem az volna, hogy jól látom ezt vagy semmi köze a gyorsaságnak ehhez?
-
fila
senior tag
válasz
Delila_1
#19720
üzenetére
Szia!
Meg lehet azt oldani, hogy akkor összesítse csak az adatokat, ha az érték ami a cellákba van egy értéknél nagyobb?
pl.
"B" értékhez tartozó adatok 5,6,7,8,9,10
"C" értékhez tartozó adatok 4,7,8,100,200,300
akkor összesítse a szövegnek megfelelő adatokat, ha az 8 nál több?jelen esetben 19 és 600 legyen az összeg amit kapok?
Köszi előre is.
-
Metathrone
csendes tag
válasz
Metathrone
#19765
üzenetére
Megoldottam
-
Mutt
senior tag
válasz
Metathrone
#19759
üzenetére
Hello,
Az ilyen feladat tipikusan a lap Change eseményével oldható meg.
Jobb klikk a lapon és "Kód megjelenítése" opcióval a laphoz rendelhetsz makrót. A lenti kódot másold be.Annyi pluszt tettem bele hogy ha üres a cella akkor mellőle kiveszi a dátumot.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
'csak a második, a B-oszlop esetén fusson
If Target.Column = 2 Then
'ha egyszerre több cella keül módosításra,
'akkor egyenként végigpörgetjük őket
For Each cell In Target
'ha nem üres akkor jobbra 1-el aktuális dátum, különben töröljük
If cell.Value <> "" Then
cell.Offset(, 1).Value = Date
Else
cell.Offset(, 1).Value = ""
End If
Next cell
End If
End Subüdv
-
válasz
Metathrone
#19761
üzenetére
na ez jó kérdés, szerintem a makrót mindenképp manuálisan kell elindítanod, egyszerűbb megoldani ezt egy HA fv-nyel a C oszlopban.
-
válasz
Metathrone
#19759
üzenetére
Sub datum()
Dim i as Integer '32ezer akárhány sorig
For i = 1 To 100
If Worksheets("Munka1").Cells(i, 2).Value <> "" Then
Worksheets("Munka1").Cells(i, 3).Value = Date
End If
Next i
End Suba Munka1 helyére a kívánt munkalap nevét írhatod, a 100-at meg annyira írod át, ahány sorig a ciklust futtatni szeretnéd.
-
Metathrone
csendes tag
Sziasztok!
Egy olyan makróra volna szükségem, ami csak az adott munkalapon hat, ha a B oszlop valamelyik cellájába beírok bármit, akkor a mellette lévő cella (C oszlop) értéke legyen az adott napi dátum.
Köszönöm előre is a segítséget.
-
Delila_1
veterán
-
Delila_1
veterán
-
-
Salex1
őstag
Lenne egy kérdésem:
Adott egy táblázat Munka (A-D) és hozzá üzemóra (1-...)
Egy cellában összesíteni kellene az adott pl "A"-hoz tartozó üzemórákat. A nehezítő tényező, hogy egymás mellett többször szerepelnek (több dolgozó) és mindez több (12, hónapok szerint) munkalapon ismétlődik.
A lényeg, kinyerni, hogy egy munkán összesen hány órát dolgoztak.
Valakinek esetleg lenne ötlete? -
Delila_1
veterán
válasz
pero19910606
#19748
üzenetére
Szívesen.

-
PindurAnna
Közösségépítő
válasz
ricshard444
#19742
üzenetére
Egyéni formátum @, és átáll szöveg formátumra.
-
Egy kis spec táblázatot készítek a következő tesztjeimhez, a gondom, hogy amikor beírom a DX verzióhoz, hogy "11.2" akkor november 2-re átdobja, ha átírom a cellát, hogy szám formátum legyen akkor meg valami 45000-t dob ki.
Mi a teendő mesterek?

-
Mutt
senior tag
válasz
T.Lacci
#19737
üzenetére
Hello,
Különben az miért van hogy nem teljesen pontosan számol? (1000 x 1,4 = 1,399999999)
A kapott makróban a szorzo változót Single típusról Double típusra állítsd át.
...a táblázatomnak szöveges fejléce van...
A For sor = 1 To usor részben az 1-est írd át 2-re (vagy arra a sorra ahonnan a számok kezdődnek).
Az eredeti feladat nem követel makrót, akár egy FKERES segítségével is megoldható.
pl. E1-be: =D1*FKERES(D1;{0\1,4;10001\1,3;20001\1,2;30001\1,1};2)Itt a kapcsos zárójelekben van a keresési tartomány, 0 és 10000 között 1,4-et talál meg, 10001 felett 1,3-at és így tovább,
Ha mégis makró kell, akkor itt van egy gyorsabb:
Sub Szorzas2()
Dim rng As Range
'kiválasztjuk a csak számokat tartalmazó cellákat a D-oszlopban
Set rng = Columns("D").SpecialCells(xlCellTypeConstants, xlNumbers)
'jobbra tőlük számoljuk az új értéket; fkeres hasonló mint fent de a vba miatt máshogy kell megadni
rng.Offset(, 1).FormulaR1C1 = "=RC[-1]*VLOOKUP(RC[-1],{0,1.4;10001,1.3;20001,1.2;30001,1.1},2)"
'értékeket bemásoljuk
Columns("E").Copy
Columns("E").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
End Subüdv
-
motinka
tag
sziasztok,
Ismét segítségre volna szükségem.
A problémám a következő, egy programból másolással szeretnék beilleszteni egy táblázatot, majdnem minden rendben beillesztődik, de egy ilyen formátum 08-12 ilyet ír be 12.aug. Ellenben a 16-20 formátumot ugyanígy írja be. Hiába állítom be azt a cellasort amibe másolnám szöveg formátumra csak ezt írja be. Ki tud valami okosságot erre?
Előre is köszönöm a segítséget -
T.Lacci
csendes tag
válasz
Delila_1
#19727
üzenetére
Köszönöm a segítségedet, teljesen tökéletes!!! 2 apró gondom van már csak. Az egyik az, hogy a táblázatomnak szöveges fejléce van ezért ha azt nem cserélem ki egy akármilyen számra, akkor nem működik a Makró. A másik csak annyi hogy az utolsó értékem az 50.000 feletti. Oda jelenleg azt írtam, hogy Case 50001 To 999999. Van erre valami más (mármint a 999999 helyett)? Köszi előre is!
-
morgusz
csendes tag
Sziasztok'!
Az alábbi makrót rögzítettem kézzel, és a CSV fájl-t pontosvesszővel tagoltként mentettem.
A makró futtatásakor viszont a tagolás csak vessző.
Mit kellene változtatni, hogy ; -vel tagolt legyen az eredmény?
.....................
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="G:\előkészítés+\dátum-csv.csv", FileFormat _
:=xlCSV, CreateBackup:=False
....................... -
Delila_1
veterán
A Set WS1 = Sheets("Munka1") sorban a Munka1 helyett írd be annak a lapodnak a nevét, ahol a darabszámok szerepelnek, a Munka2 helyére azt, ahova a többszörözést akarod beíratni.
Sub Tobbszoroz()
Dim sor As Long, usor As Long, ujsor As Long, eddig As Integer, a As Integer
Dim WS1 As Worksheet, WS2 As Worksheet
Set WS1 = Sheets("Munka1")
Set WS2 = Sheets("Munka2")
Application.ScreenUpdating = False
WS2.Range("A:B").ClearContents 'Előző adatok törlése a Munka2 lapon
WS1.Activate
Range("A1:B1").Copy WS2.Range("A1") 'Címsor a Munka2 lapra
usor = Range("A" & Rows.Count).End(xlUp).Row
ujsor = 2
For sor = 2 To usor
eddig = Cells(sor, "C")
For a = 1 To eddig
Range("A" & sor & ":B" & sor).Copy WS2.Range("A" & ujsor)
ujsor = ujsor + 1
Next
Next
Application.ScreenUpdating = True
End Sub -
xao
csendes tag
Üdv
Az előbb lehet, hogy nem sikerült túlzottan érthetően leírnom, ezért megpróbálom még egyszer

Adott egy lista cikkszámokkal, cikknevekkel, darabszámokkal, ami változó nyilvánvalóan napról napra.
Ebből szeretnék egy másik táblában olyan listát csinálni, ami úgy néz ki, hogy cikkszám, cikknév. Viszont annyiszor legyen egymás alatt többször az adott dolog, ahányszor az első táblában lévő darabszám.
Például:
Egyik tábla (ezek az adatok vannak meg nekem, napról napra változhatnak)
cikkszám, cikknév, db01 alma 2
02 körte 3
03 ribizli 5
04 málna 1
05 citrom 4A másik munkalapon pedig ez legyen belőle automatikusan:
01 alma
01 alma
02 körte
02 körte
02 körte
03 ribizli
03 ribizli
03 ribizli
03 ribizli
03 ribizli
04 málna
05 citrom
05 citrom
05 citrom
05 citrom
És így tovább...Szóval megoldható ez valahogy?
Köszönöm -
Delila_1
veterán
válasz
pero19910606
#19715
üzenetére
-
Delila_1
veterán
válasz
T.Lacci
#19707
üzenetére
Sub Szorzas()
Dim sor As Long, usor As Long, szorzo As Single
'Alsó sor meghatározása a D oszlopban)
usor = Range("D" & Rows.Count).End(xlUp).Row
'Ciklus az elsőtől az utolsó sorig
For sor = 1 To usor
'Feltételek megdása
Select Case Cells(sor, "D")
Case 1 To 10000
szorzo = 1.4
Case 10001 To 20000
szorzo = 1.3
Case 20001 To 30000
szorzo = 1.2
Case Else
szorzo = 0.9
End Select
'Szorzat beírása az E oszlopba
Cells(sor, "E") = Cells(sor, "D") * szorzo
'Ha kerekítve akarod megadni a szorzatot, a fenti helyett
'a lenti sort alkalmazd a szorzásra
'Cells(sor, "E") = Round(Cells(sor, "D") * szorzo, 0)
Next
End SubA Case sorokat folytathatod. A Case Else sorhoz azt az utasítást add, ami azokra az összegekre vonatkozik, amikhez a fölötte lévő feltételekben nem határoztál meg szorzót. Ki is hagyható.
Figyelj, hogy a szorzók tizedes ponttal, nem veszővel írandók a makróban! -
pero19910606
csendes tag
Sziasztok!
Egy beadandót kell csinálnom és egy olyan problémába ütköztem, hogy meg kellene adnom egy adott termékből hány darabot vásároltak.
4 üzemben is gyártanak egy- egy terméket, összesen tehát 4 adattáblám van.Azt kéne kiíratnom, hogy pl. a fogaskerekéből hány db-ot gyártottak.
Egyik táblába 10 db másikba 13...stb és ezt összegezve kéne megadnom úgy hogy ki is írja hogy:
"Fogaskerék 23 db"
Van esetleg valakinek ötlete erre? Nagy segítség lenne, mert ez az utolsó feladat

Köszönöm előre is!!
sziasztok! -
Sziasztok!
Tudtok ajánlani valami ingyenes online tanfolyamot, könyvet, bármit amivel gyorsan meg tudom tanulmi az excel használatát az alapoktól az elit szintig. Angol is jöhet sőt jobb is lenne.
Köszi előre is.
-
fila
senior tag
Sziasztok!
Van egy adathalmazom,
B oszlopban van 4-5 különböző szöveg vegyesen (pl. alma, körte, barack)
D, E, F oszlopban van egy csomó hozzá tartozó érték(több száz)Milyen függvénnyel tudom a B oszlopban lévő szöveghez tartozó értékeket összesíteni egy másik fülön?
Nem kimutatást szeretnék csinálni. Több táblázatból, munkalapról kell összeszednem az adatokat a szöveg adatokhoz.
Makróhoz nem értek.Légszi, segítsetek.
Köszönöm.
-
Myers
senior tag
Van arra valamilyen billentyűkombináció, hogy azt csinálja, mintha dupla klikkelnék egy cellán?
Tehát kezdje el szerkeszteni (de ne a szerkesztőlécen), ne törölje ki azt, ami benne van, lehessen benne balra, jobbra menni. -
egész jól haladok a levelezős makrómmal, az egész futtatása hozzá van rendelve egy gombhoz. hogyan tudnám beéleírni a kódba, hogy a gomb mgnyomása után még feldobjon egy kérdést, hogy biztosan el akarom-e küldeni a leveleket?
-
greenface
aktív tag
válasz
honfoglalo
#19691
üzenetére
thx, kipróbálom.

-
thee
csendes tag
Sziasztok!
Ezt a sort szeretném úgy átalakítani, hogy egy változó segítségével az oszlopszámhoz hozzá tudjak adni pl 2-t:
Worksheets("Munka1").Range("G14:G16") = ""
Ha .Range helyett .Cells-t használok, akkor tudok az oszlopszám mellé egy változót rakni, de a .Cells-el nem igazán sikerült tartományt kijelölni... -
T.Lacci
csendes tag
válasz
Delila_1
#19674
üzenetére
Szeretném újra a segítségedet kérni egy újabb megoldandó problémában, :
Egy táblázat egyik oszlopában (mondjuk a D oszlopban) árak vannak. Ezeket az árakat szeretném felszorozni, de eltérő mértékben. Tehát az 1-től 10.000-ig értékeket 1,4-el, a 10.001-től 20.000-ig értékeket 1,3-al, a 20.001-től 30.000-ig értékeket pedig 1,2-vel és így tovább. Tudnál nekem ebben segíteni, hogy ezt hogy tudom végrehajtatni egy makróval? Köszönöm előre is a segítségedet! -
xao
csendes tag
Üdv
Adott egy lista cikkszámokkal, cikknevekkel, darabszámokkal.Ebből szeretnék egy másik táblában olyan listát csinálni, ami úgy néz ki, hogy cikkszám, cikknév. Viszont annyiszor legyen egymás alatt többször az adott dolog, ahányszor az első táblában lévő darabszám.
Például:
Egyik tábla:cikkszám, cikknév, db
01 alma 2
02 körte 3
03 ribizli 5
04 málna 1
05 citrom 4Ebből ezt szeretném valahogy kihozni egy másik táblában:
01 alma
01 alma
02 körte
02 körte
02 körte
03 ribizli
03 ribizli
03 ribizli
03 ribizli
03 ribizli
04 málna
05 citrom
05 citrom
05 citrom
05 citromÉs így tovább...
Szóval megoldható ez valahogy?
Köszönöm
-
Roxy27
tag
Sziasztok,
nem vagyok nagy fej Excel-ből... pár dolog megy, de ez most nem.
Ehhez kellene segítség:Adott egy több sheet-es excel, minden oldalon 1-1 kisebb táblázat, több oszloppal.
Arra kellene megoldás, hogy 2 különböző sheet-en egy adott (ugyanabban) oszlopban végigelenőrizze az értékeket, ami konkrétan egy 6 jegyű szám. A lényeg, hogy az egyik oldalon mindíg 1-el kevesebb a szám. Ha ez stimmel, akkor az azonos sorokat egy 3. sheet-re 1 sorba egymás után kellene másolnia.
remélem érthetően írtam le.
Ha tudna valaki segíteni...jó lenne, mert nagyban megkönnyítené a munkám.
Ha kell elküldöm a táblázatot is, vagy egy részét, hogy könnyebb legyen...
Kösziideje valami excel tanfolyamot kezdenem

-
Delila_1
veterán
válasz
Apollo17hu
#19703
üzenetére
Szívesen.

-
Delila_1
veterán
válasz
Apollo17hu
#19700
üzenetére
Beírod az első értéket egy új oszlopba, hogy egy előző formátum ne zavarjon be:
2013.11.15 20:00. Az oszlopban a cellák formátuma legyen "éééé.hh.nn. óó:pp".
Egy cellába (másik oszlopban) beírod a 0:05 értéket. Legyen ez a példában a C1 cella. Ez automatikusan idő formátumot vesz fel.
Az dátum alatti első cella képlete =fölötte_lévő_cella+$C$1. Ezt már másolhatod, nem lesz csúszás.
Új hozzászólás Aktív témák
- Real Racing 3 - Freemium csoda
- Call of Duty: Modern Warfare III (2023)
- Az SK Hynix elárulta, hogy meddig nem lesz elég memória
- SörcsaPH!
- EU-s vám vethet véget a nagyi temus vásárlási lázának
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- AMD Navi Radeon™ RX 9xxx sorozat
- Vicces képek
- További aktív témák...
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok : (12.14.)
- Eladó Steam kulcsok kedvező áron!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- iPad 9 Wi-Fi + Cellular + AJÁNDÉK iPad Pro Leather tok
- Samsung Galaxy A33 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- Samsung Galaxy A53 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- Bomba ár! HP EliteBook 840 G6 - i5-8GEN I 16GB I 256GB SSD I 14" FHD I HDMI I Cam I W11 I Gari!
- 5G Lenovo ThinkPad P14s Gen 3 Intel Core i7-1280P Nvidia T550 32GB 1000GB 1 év teljeskörű garancia
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest


látszik, hogy csak most járok éppen ilyen tanfolyamra 

Sikerült is 



Fferi50
