- Így nem hajlik, úgy kettétörik az új iPad
- Milyen egeret válasszak?
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- iPad topik
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Projektor topic
- E-book olvasók
- Milyen Android TV boxot vegyek?
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Videós, mozgóképes topik
Hirdetés
-
Retro Kocka Kuckó 2024
lo Megint eltelt egy esztendő, ezért mögyünk retrokockulni Vásárhelyre! Gyere velünk gyereknapon!
-
Elcsípte a Huawei kameratelefonja az első helyet
ma A Pura 70 Ultra a DxOMarknál tarolt.
-
SteamWorld Heist II - Középpontban a történet és a küldetések
gp A folytatás érkezésére kicsit még várni kell, az új rész augusztusban debütál.
-
PROHARDVER!
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
-
félisten
-
félisten
válasz motinka #7527 üzenetére
Hali!
Akkor nincs akadálya az Autoszűrőnek.
Jelöld ki az A11 : I11 cellákat és Adatok menü/Szűrő/Autoszűrő.Meg fognak jelenni lenyitható objektumok, a technikus nevénél nyisd le, válasz ki egy emberkét, ezután a munkalap számánál nyisd le és válaszd az ÜRES lehetőséget.
Így csak pl Kovács Sanyi sorai jelennek meg, de csak azok, ahol a munkalap száma ÜRES.
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz motinka #7529 üzenetére
Hali!
Igen, makróval megoldható úgy ahogy gondolod, de ha nem haragszol, ma már nem állok neki... Majd holnap...
Fire.
UI: Bár mire holnap reggel felkelek, valószínű Delila_1 már olvasta a feladatot, és kész kód fog fogadni... Úgy hogy ne aggódj, lesz makród...
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
válasz motinka #7531 üzenetére
Ha már Fire megígérte, tálalom a makrót.
Tegyél autoszűrőt az A11:I11 tartományba, ahogy Fire is írta.
A lapfülön jobb klikk, Kód megjelenítése. Bejutottál a VB szerkesztőbe, a jobb oldalon kapott üres lapra másold be:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 4 And Target.Row > 2 And Target.Row < 9 Then
Range("A11").Select
Selection.AutoFilter Field:=5, Criteria1:=Cells(Target.Row, 1)
Selection.AutoFilter Field:=9, Criteria1:="="
End If
If Target.Address = "$H$1" Then
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=9
End If
End SubEzután a D3:D8 tartomány bármelyik cellájára duplán kattintva a lenti sorok közül azok látszanak, amiket kértél.
Beleírtam, hogy a H1 duplaklikkjére minden adat látsszon az alsó táblázatban. Írhatsz is valami erre utaló szöveget a H1-be.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz motinka #7546 üzenetére
A lapvédelem beállításainál választhatsz, hogy milyen műveletek ellen véded a lapot.
Itt van egy felsorolás, amiből kiválaszthatod, mit engedélyezel minden felhasználónak. Bejelöltem az AutoSzűrő használatát, de ez úgy látom, nem működik, nem engedi.Töröld a zárolást a D3:D9 tartományban, és a többi helyen, ahol módosíthat a felhasználó. Védd le a lapot.
A makró első sora ez legyen:
ActiveSheet.Protect UserInterfaceOnly:=TrueSzerk.: ezzel a felhasználótól védetté tesszük a lapot, de a makrók ezután is módosíthatják a zárolt cellák tartalmát.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz motinka #7595 üzenetére
Elrejted a NEM Csaba adatait tartalmazó oszlopokat. Nézet/Egyéni nézetek. Hozzáadás, a névhez beírod: Csaba, OK.
Felfeded az oszlopokat, és ismét elrejted azokat, amelyek nem Jánoshoz tartoznak. Ennek az egyéni nézetnek a János nevet adod, és így tovább.
Mikor minden nézetet felvittél, a Testreszabás menüben a Parancsok fülre állsz. A Kategóriákból kiválasztod a Nézetet, jobb oldalon kikeresed az Egyéni nézetek legördülőt, és felhúzod az ikonjaid közé az Eszköztárra. Ebből választhatod ki ezután a neveket, és mindig csak a megfelelő oszlopok látszanak majd.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz motinka #7601 üzenetére
Itt nagyon meleg van. Szerintem ez praktikus, és egyszerű megoldás.
Lehet makrót is írni rá, nem nagy ügy, csak ahhoz ismernem kell az összes nevet, és a hozzájuk tartozó oszlopokat. Akkor viszont a névsor változásakor (bővülés, csökkenés), a makróban kell operálnod utólag, és a távol lévő munkatársadnak is.
Jobban jártok, ha az Excel nyújtotta lehetőséget kihasználva beviszitek a különböző nézeteket.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz motinka #7601 üzenetére
Itt a makró, elég jól látszik belőle, melyik adatokat kell átírnod. A Case utasításokból az End Select sor elé akárhány újat beszúrhatsz. Ennek alapján eldöntheted, mit akarsz később a további adatokhoz idomítani, a különböző nézeteket, vagy a makrót.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim kezd As String, vég As String
If Target.Address = "$A$1" Then
Select Case Cells(1)
Case "Csaba"
kezd = "D": vég = "F": GoTo Rejt
Case "János"
kezd = "G": vég = "I": GoTo Rejt
Case "Ferenc"
kezd = "J": vég = "L": GoTo Rejt
Case "László"
kezd = "M": vég = "P": GoTo Rejt
End Select
End If
Exit Sub
Rejt:
Columns("D:O").Hidden = True
Columns(kezd & ":" & vég).Hidden = False
End SubA makrót a kérdéses laphoz kell rendelned. Lapfülön jobb klikk, Kód megjelenítése, a VB szerkesztőben jobb oldalon kapott üres lapra másold be.
Szerk.: a Columns("D:O").Hidden = True sorban a kettőspont után nem nulla van, hanem O betű, az utolsó felhasznált oszlopod betűjele.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz motinka #7604 üzenetére
Hali!
Az A1-ben van a lenyíló listád a nevekkel (Csaba, János, Ferenc, László)
Ha kiválasztod Csabát, akkor a D és E és F oszlopok lesznek láthatóak, a többi nem
Ha kiválasztod Jánost, akkor a G és H és I oszlopok lesznek láthatóak, a többi nem
Ha kiválasztod Ferencet, akkor a J és K és L oszlopok lesznek láthatóak, a többi nem
Ha kiválasztod Lászlót, akkor a M és N és O oszlopok lesznek láthatóak, a többi nemAmúgy pont azt csinálja, amit kértél.
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
válasz motinka #7607 üzenetére
A neveket beírtad a T oszlopba, ennek megfelelően az érvényesítés forrását így is megadhatod: =$T$1:$T$5
Még jobb, ha a Beszúrás/Név/Név megadása menüpontban meghatározol egy Nevek című területet, ami követi a sorok számának és tartalmának a változását.
Hozzáadás, fent megadod a Nevek címet, a hivatkozáshoz beírod:
=OFSZET(Munka1!$T$1;0;0;DARAB2(Munka1!T:T);1)Az érvényesítésnél a forrás ezután =Nevek
A nevek és az ÖSSZES közé nem kell üres cellát tenned, akkor nem lesz "lyuk" a legördülőben.
A névadások közül – ha csak az oszlopok rejtéséhez, felfedéséhez vitted be a neveket –, nyugodtan törölheted a nevek által meghatározott területeket.
Fire-nek igaza van, bizony kifelejtettem az összes oszlop láthatóvá tételét, pedig gondoltam rá, Tanár Úr, kérem.
Míg én fogalmaztam ezt a förmedvényt, észrevetted a hibát, azt a részt töröltem is a válaszomból.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz motinka #7608 üzenetére
Beírom a névadás függvényét arra az esetre, ha a neveket a Munka2 lap A oszlopában sorolod fel:
=OFSZET(Munka2!$A$1;0;0;DARAB2(Munka2!$A:$A);1)
Ez "más lappra tartozik", mint a lappföldi asszony legkisebb gyermeke.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz motinka #7631 üzenetére
Több dolgot kellett átírni benne. A Select Case sorban most már nem az A1-et [cells(1)], hanem a B5 cellát [cells(5,2)] kell figyeltetni.
Az ÖSSZESnél sem írhatsz XX oszlopot. A kiterjesztésből gondolom, hogy a 2007-es verziónál előbbit használsz, ahol az utolsó oszlop az IV.
A fentieket kijavítva:Private Sub Worksheet_Change(ByVal Target As Range)
Dim kezd As String, vég As String
If Target.Address = "$B$5" Then
Select Case Cells(5, 2)
Case "CSABA"
kezd = "D": vég = "F": GoTo Rejt
Case "JÁNOS"
kezd = "G": vég = "I": GoTo Rejt
Case "FERENC"
kezd = "J": vég = "L": GoTo Rejt
Case "LÁSZLÓ"
kezd = "M": vég = "O": GoTo Rejt
Case "TIBOR"
kezd = "P": vég = "R": GoTo Rejt
Case "ÖSSZES"
Columns("D:IV").Hidden = False
End Select
End If
Exit Sub
Rejt:
Columns("D:IV").Hidden = True
Columns(kezd & ":" & vég).Hidden = False
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
Delila_1
Topikgazda
válasz motinka #7635 üzenetére
Az első paraméter a sort, a második az oszlopot adja, ezért nem cserélhető fel – büntetlenül.
Miután elküldtem a tabulálásról szóló üzenetet, észrevettem, hogy én sem adtam rendes formát. Pl. az If - End if pároson belül minden sornak 1 tabulátorral jobbra kellene lennie a jelenlegihez képest, és a Select Case - End Select közöttieknek is.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz motinka #7639 üzenetére
Hali!
=HA(DARABTELI(A10:A2000;S1)>0;SZUMHA($Q$10:$Q$2000;$O2;$M$10:$M$2000)+SZUMHA($R$10:$R$2000;$O2;$M$10:$M$2000))
A SZUMHA-s képletsorozatot nem ellenőriztem, tehát úgy vettem, hogy valóban azt csinálja, amit szerettél volna.
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
válasz motinka #7641 üzenetére
Egyszerűbb lenne a Szorzatösszeg függvénnyel.
A feltételek a G1:I1 tartományban vannak.
A szorzatösszeg első paraméterében a *-okkal ÉS-ként összefűzi a feltételeket, a második (a ; utáni) paraméter az összeg tartomány.3-nál jóval több feltételt adhatsz meg, 8-ig biztosan működik, addig próbáltam ki.
A mellékelt ábra tartományai helyett beírhatod a névvel ellátott tartományaidat.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz motinka #7643 üzenetére
Hali!
Először is a UNIT tartomány "mérete" nem megfelelő, nem azonos a többi tartomány méretével, ennél a feladatnál ez alapvető, ellenkező esetben nem fog működni, amit írok.
Ez jelenleg hibás: =JÚLIUS!$M$11:$M$2000
A 2000-et átírni 2001-re, mert a többi használt tartománynak is a 2001. az utolsó sora.Ha ez megvolt, akkor meg valahova:
=SZUMHATÖBB(UNIT;TCH;$O3;TCH1;$O6;DATE;"07.05")
Itt direkt úgy adtam meg a feltételeket ($O3,$O6,"07.05"), hogy legyen a 3 feltételnek megfelelő sor, és tudd ellenőrizni, hogy működik fenti képlet.
(Mert ennek (is) működnie kell, persze ha azóta nem módosítottad az Excel táblát a linkelthez képest.)Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
válasz motinka #7971 üzenetére
Csak egy harmadik cellában tudod megjeleníteni a dátumot az idővel együtt.
A1 a dátum, B1 az idő, minegyik úgy, ahogy megadtad. Egy harmadik cellába jön a képlet:
=A1+IDŐ(ÓRA(B1);PERC(B1);0)
Ennek a formátumát az egyéni kategóriában adhatod meg: éééé.hh.nn. ó:pp[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz motinka #7975 üzenetére
Meg lehet oldani, de amint az ábra mutatja, a 08.16-án kezdett munka vagy aznap, vagy másnap fejeződik be. Ezt honnan kellene tudnia a képletnek?
Jól gondolom, ha a munka befejezési ideje 13:30 alatt van, akkor aznap, egyébként másnap van a zárás?Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz motinka #7978 üzenetére
Az F5 képlete:
=HA(BAL(D5;2)>="13";D$1+1+IDŐ(ÓRA(E5);PERC(E5);0);D$1+IDŐ(ÓRA(E5);PERC(E5);0))
Ez akkor igaz, ha a nap (aug. 16) a D1 cellában van, ahogy a képen látszik. Ha viszont a B1:F1 között van középen, akkor a képletben a D$1-et írd át B$1-re. A képletet lemásolod a többi adat mellé az F oszlopba, és átmásolod a K oszlopba, meg a többi zárás oszlopba. A formátum ezekben az oszlopokban olyan legyen, ahogy már előbb megadtam.[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
perfag
aktív tag
válasz motinka #8223 üzenetére
Érdekes a problémád, én is szívesen együtt gondolkodnék veletek, de nem teljesen értem a probléma leírást.
A és C oszlopokban adatérvényesítéssel van egy-egy listád, ok. Az adatbeírási sorrendet kellene jobban körülírni:
- hol kezded a beírást: előbb A-ba kerül adat, majd C-be?
- A oszlopba csak a listából kerülhet adat, vagy felülírható a lista?
- az A-ba beírttól függően a C változzon meg?
- C-ben miért és mikor törölsz? -
Delila_1
Topikgazda
válasz motinka #8231 üzenetére
Szia, megjöttem.
Azért nem működött a makró, mert nem jó helyre tetted. Az adat laphoz rendelted, pedig ezt egy új modulba kellett volna.
A füzetben Eszközök/Makró/Visual Basic Editor (vagy ezek helyett Alt+F11). Bejön a VBE. Bal oldalon kiválasztod a füzetedet, Insert menü, Module. A jobb oldalon kapott üres lapra kellett volna bemásolni.
Közben az is kiderült a füzetedből, hogy a C oszlopot szövegként formáztad az általános formátum helyett. A makró első sora ezértColumns("C:C").NumberFormat = "General"
kell legyen, mert az előállított függvény sem működne szövegként. Elküldöm a címedre a módosított fájlt.
Delila
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz motinka #8244 üzenetére
Akkor mégis a laphoz kell rendelni a makrót.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "" Then Exit Sub
If Target.Column = 3 And Target.Value = "W" Then
Range(Target.Address).Formula = "=IF(A" & Target.Row & "=""SC"",""SC"",""-"")"
End If
End SubA "TECHN" és "tipus" névadásokat egy OFSZET függvénnyel átírtam úgy, hogy az érvényesítések legördülőjében mindig annyi adat jelenjen meg, ahány éppen van a két listában - bővítés vagy szűkítés esetén az aktuális adatmennyiséghez igazodnak (Beszúrás/Név/Név megadása).
A + jel nem jó, mert azt az Excel egy képlet kezdetének érzékeli, helyette W-t tettem, és beírtam a TECHN lista első tagjának, vagyis azt is a legördülőből lehet kiválasztani. Ezt választva a C oszlopba beíródik a képlet, csak az aktuális sorba.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
perfag
aktív tag
válasz motinka #8244 üzenetére
A + jelnem jó. A cellatartalmat Delete-tel törlöd és üres lesz, ennyi elég.
Tegnap volt a hosszú napom, ma reggelről egy megoldás:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("C2:C20")) Is Nothing Then
If ActiveCell.Value = Empty Then ActiveCell.FormulaR1C1 = "=IF(OFFSET(RC,0,-2)=""SC"",""SC"",""-"")"
End If
Application.EnableEvents = True
End Sub
A VBA "adat" lapjára kell tenned.Műxik, egy apró szépséghibával: Delete, Enter ezzel kitörlöd a cellát, pontosabban üres lesz, majd vissza kell rá kattintani, akkor beírja a képletet. Most mennem kell dolgozni, de du. megnézem mi a francért nem csinálja ezt meg elsőre, a Delete, Enter-re.
Már 2-3 éve nem programozok, berozsdáltam. -
motinka
tag
válasz motinka #8264 üzenetére
Egy régi megoldásotokat felhasználva majdnem megoldottam a problémámat, az alábbiakkal:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("E3"), Range(Target.Address)) Is Nothing Then
Range("E2").Select
Selection.AutoFilter Field:=5, Criteria1:=Cells(Target.Row, 5)
End If
End SubPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$E$2" Then
Range("E3").Select
Selection.AutoFilter Field:=5
End If
End SubA vastagított rész akkor lenne igazán jó, ha ekkor erre a cellára ugrás után törölné annak tartalmát és aktiv cella lenne, azaz a kurzor benne van.
Mit kell beleírni még ehhez?köszi előre is a választ
MoTiNka
-
-
perfag
aktív tag
válasz motinka #8345 üzenetére
Mond, mire kell az neked? Csak annyi, hogy nincs meg?
Úgy emlékszem 2007-es Excelben dolgozol. Abba nem tettek Űrlap ikont. A Súgóban van egy ilyen bekezdés: Mi lett az adatűrlappal? Abban leírják hogy tudod a gyorselérési eszköztárra rakni, onnan egy kattintással ki tudod nyitni.
(Remélem nem nyúltam mellé és csak ennyi a gondod.)[ Szerkesztve ]
-
félisten
válasz motinka #10384 üzenetére
Sima filterrel megoldható, mert a keresés mezőbe azt írsz be, amit csak szeretnél(a szűrés eredménye egyből látható is lesz a listában), illetve használhatóak az ún Asterix (helyettesítő) karakterek is, úgy mint a csillag (*) és kérdőjel (?)
Példák
keresőbe->123, összes olyan sor, amiben megtalálható az 123
keresőbe->123*, összes olyan sor, ami 123-al kezdődik
keresőbe->*123, összes olyan sor, ami 123-ra végződik
keresőbe->*123?, összes olyan sor, ami 123 és bármilyen +1 karakterre végződik (pl aa1234, bb123a)
keresőbe->*123??, összes olyan sor, ami 123 és bármilyen +2 karakterre végződik (pl aa12398, bb123ab, cc1236a)[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
válasz motinka #10384 üzenetére
Kiegészítve Fire válaszát:
A szűrésnél a "Szövegszűrők"-et választod, ott pedig a "Kezdete..." almenüt. Ott beírod a keresendő adat kezdetét.
Másik megoldás, hogy a laphoz rendeled a következő makrót:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Krit
If Target.Address = "$F$1" Then
Krit = Range("F1").Value & "*"
ActiveSheet.Range("$A:$A").AutoFilter Field:=1, Criteria1:=Krit
End If
End SubAz F1 cellába beírod a keresendő adat kezdetét. Az Enter leütése után az A oszlopot szűri az F1 cella értéke szerint.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz motinka #10384 üzenetére
Kicsit megvariálva, hogy két oszlop adatait is lehessen szűrni:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Krit
If Target.Address = "$G$1" Then
Krit = Range("G1").Value & "*"
ActiveSheet.Range("$A:$B").AutoFilter Field:=1, Criteria1:=Krit
End If
If Target.Address = "$I$1" Then
Krit = Range("I1").Value & "*"
ActiveSheet.Range("$A:$B").AutoFilter Field:=2, Criteria1:=Krit
End If
End SubA szűrést a G1, ill. az I1 cella adatának törlésével megszüntetheted.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Steam kulcsok - UTALÁS/REVOLUT
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Új, bontatlan World of Warcraft gyűjtői kiadások
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs