- Gyertek a 11. BRSZK-ra! Lesz DFI UV alatt, és mart szilícium tapi!
- XIAOMI Smart Air Purifier 4 Compact EU - légtisztító újabb okoseszköz a lakásban
- Clickbait szülinapi sorsolás II - még drágább a clickbaited
- Optikai szál nem kell félnetek jó lesz, avagy a damil alapú hálózat
- A PC-m több mint 1 évtizedes története - AMD FX OC, 64GB RAM, ipari SSD - 1.rész
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Asszociációs játék. :)
- Luck Dragon: MárkaLánc
- GoodSpeed: XIAOMI Smart Air Purifier 4 Compact EU - légtisztító újabb okoseszköz a lakásban
- MasterDeeJay: Low budget (50.000 forint) light gémer gép összerakása
- E.Kaufmann: Optikai szál nem kell félnetek jó lesz, avagy a damil alapú hálózat
-
LOGOUT
LOGOUT
Új hozzászólás Aktív témák
-
Az első érvényesítés (F1) az osztályfőnökök neveit hozza, az A1:D1 tartományt.
Az osztályoknak így adj nevet: kijelölöd az A1:A20 tartományt, Beszúrás - Név - Létrehozás - Felső sorból.
A G1 érvényesítésénél a forrás: =INDIREKT(F1)
Ez is jó. Majd kipróbálom. Én így csináltam:
Az elérési útvonalat így adtam meg:
MyFile = "\\***file01**\C*st*** **re\Public read-write\******t Mi****\Csoport S**t" & "megnyitó2.txt"
Kicsillagoztam egy-két karaktert adatvédelmi okok miatt....
-
lappy
őstag
Sziasztok
Van két Comboboxom ezekhez adatok tartoznak.
Pl.: Könyv: Gyűrűk ura1 Gyűrűk ura2 Gyűrűk ura3
Kocsi: bmw ferrari merci
Állat: kutya macska
stb
Ha az elsőből kiválasztok egy adatot (könyv kocsi állat) a második Comboboxban csak az ehez tartozó elemek közül lehet választani.
Pl: állat (combobox1) kutya macska (combobox2
Ezt sikerült megoldani.
A problémám ott kezdődik hogy nem tudok mas megnevezéssel felvinni csoportokat, és nem tudom átnevezni őket, ilyenkor hibát ír ki.
Hibaüüzenet: Could not set the RowSource propety. Invalid property value.
Debug: .RowSource = strRangePrivate Sub ComboBox1_Change()
Dim strRange As String
If ComboBox1.ListIndex > -1 Then
strRange = ComboBox1
Label2.Caption = strRange
strRange = Replace(strRange, " ", "_")
With ComboBox2
.RowSource = vbNullString
.RowSource = strRange
.ListIndex = 0
End With
Else
Label2.Caption = "Associated Items"
End If
End Sub
A próbléma megoldásához keresek hozzáértőt!!
-
Fire/SOUL/CD
félisten
-
Ez így tökéletes. Bár jobb lenne, ha Excel táblába rögzítené, de utána olvastam és az egy kicsit bonyolultabb, mert valami adatbázisnak kellene kezelnie.
A következő kérdésem:
Adott egy táblázat.
Van 4 csoport. a csoportokon belül több elem. Minden csoportban más számú elem.
Például: Iskolai osztályok.Azt szeretném elérni, hogy az osztályfőnökök listájából választva már csak az adott osztály névsorából választhassak.
Most két Vezérlő Listapanelem van.
Az egyikben ugye az osztályfőnökök, majd a a kiválasztott elem alapján egy "keres" fügvénnyel kilistázom egy oszlopba az adott osztály névsorát és ez lesz a forrása a következő Listapanelnél.Valakinek van jobb ötlete?
Az első érvényesítés (F1) az osztályfőnökök neveit hozza, az A1:D1 tartományt.
Az osztályoknak így adj nevet: kijelölöd az A1:A20 tartományt, Beszúrás - Név - Létrehozás - Felső sorból.
A G1 érvényesítésénél a forrás: =INDIREKT(F1) -
Ez így tökéletes. Bár jobb lenne, ha Excel táblába rögzítené, de utána olvastam és az egy kicsit bonyolultabb, mert valami adatbázisnak kellene kezelnie.
A következő kérdésem:
Adott egy táblázat.
Van 4 csoport. a csoportokon belül több elem. Minden csoportban más számú elem.
Például: Iskolai osztályok.Azt szeretném elérni, hogy az osztályfőnökök listájából választva már csak az adott osztály névsorából választhassak.
Most két Vezérlő Listapanelem van.
Az egyikben ugye az osztályfőnökök, majd a a kiválasztott elem alapján egy "keres" fügvénnyel kilistázom egy oszlopba az adott osztály névsorát és ez lesz a forrása a következő Listapanelnél.Valakinek van jobb ötlete?
Mégsem jó.
A hálózati meghajtón már nem működik.
Elérési útvonal nélkül és azzal sem.
-
Fire/SOUL/CD
félisten
Ez így tökéletes. Bár jobb lenne, ha Excel táblába rögzítené, de utána olvastam és az egy kicsit bonyolultabb, mert valami adatbázisnak kellene kezelnie.
A következő kérdésem:
Adott egy táblázat.
Van 4 csoport. a csoportokon belül több elem. Minden csoportban más számú elem.
Például: Iskolai osztályok.Azt szeretném elérni, hogy az osztályfőnökök listájából választva már csak az adott osztály névsorából választhassak.
Most két Vezérlő Listapanelem van.
Az egyikben ugye az osztályfőnökök, majd a a kiválasztott elem alapján egy "keres" fügvénnyel kilistázom egy oszlopba az adott osztály névsorát és ez lesz a forrása a következő Listapanelnél.Valakinek van jobb ötlete?
-
Delila_1
veterán
Az ActiveSheet. beillesztése lett a megoldás, pedig nálam 2007-es Excel van. Köszi!
Azt hogy lehetne megoldani, hogy ha nem talál azonos cellát a keresés, akkor ne Run-time error-ral szálljon el, hanem dobjon egy felugró ablakot, valamilyen üzenettel?
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Találatok").Select
ActiveSheet.Rows("2").Select
ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Sheets("Munka2").Select
ActiveSheet.Cells(1, 1).Select
sor_k = 2
sz = Selection.Value
Sheets("Munka1").Select
Cells.Find(What:=sz, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
sor = Selection.Row: sor_m = sor + 1
Rows(sor).Copy Sheets("Találatok").Rows(sor_k)
sor_k = sor_k + 1
Do 'Keresés ismétlése
Cells.FindNext(After:=ActiveCell).Activate
sor = Selection.Row
Rows(sor).Copy Sheets("Találatok").Rows(sor_k)
sor_k = sor_k + 1
Loop While sor >= sor_m
Sheets("Találatok").Select
usor = ActiveSheet.UsedRange.Rows.Count
usor = usor + 1
ActiveSheet.Rows(usor).Select
Selection.Delete Shift:=xlUp
ActiveSheet.Cells(1).Select
Application.ScreenUpdating = True
End Sub -
Delila_1
veterán
Az ActiveSheet. beillesztése lett a megoldás, pedig nálam 2007-es Excel van. Köszi!
Azt hogy lehetne megoldani, hogy ha nem talál azonos cellát a keresés, akkor ne Run-time error-ral szálljon el, hanem dobjon egy felugró ablakot, valamilyen üzenettel?
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Találatok").Select
ActiveSheet.Rows("2").Select
ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Sheets("Munka2").Select
ActiveSheet.Cells(1, 1).Select
sor_k = 2
sz = Selection.Value
Sheets("Munka1").Select
Cells.Find(What:=sz, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
sor = Selection.Row: sor_m = sor + 1
Rows(sor).Copy Sheets("Találatok").Rows(sor_k)
sor_k = sor_k + 1
Do 'Keresés ismétlése
Cells.FindNext(After:=ActiveCell).Activate
sor = Selection.Row
Rows(sor).Copy Sheets("Találatok").Rows(sor_k)
sor_k = sor_k + 1
Loop While sor >= sor_m
Sheets("Találatok").Select
usor = ActiveSheet.UsedRange.Rows.Count
usor = usor + 1
ActiveSheet.Rows(usor).Select
Selection.Delete Shift:=xlUp
ActiveSheet.Cells(1).Select
Application.ScreenUpdating = True
End Sub -
perfag
aktív tag
Az ActiveSheet. beillesztése lett a megoldás, pedig nálam 2007-es Excel van. Köszi!
Azt hogy lehetne megoldani, hogy ha nem talál azonos cellát a keresés, akkor ne Run-time error-ral szálljon el, hanem dobjon egy felugró ablakot, valamilyen üzenettel?
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Találatok").Select
ActiveSheet.Rows("2").Select
ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Sheets("Munka2").Select
ActiveSheet.Cells(1, 1).Select
sor_k = 2
sz = Selection.Value
Sheets("Munka1").Select
Cells.Find(What:=sz, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
sor = Selection.Row: sor_m = sor + 1
Rows(sor).Copy Sheets("Találatok").Rows(sor_k)
sor_k = sor_k + 1
Do 'Keresés ismétlése
Cells.FindNext(After:=ActiveCell).Activate
sor = Selection.Row
Rows(sor).Copy Sheets("Találatok").Rows(sor_k)
sor_k = sor_k + 1
Loop While sor >= sor_m
Sheets("Találatok").Select
usor = ActiveSheet.UsedRange.Rows.Count
usor = usor + 1
ActiveSheet.Rows(usor).Select
Selection.Delete Shift:=xlUp
ActiveSheet.Cells(1).Select
Application.ScreenUpdating = True
End Sub -
Sziasztok!
Egy kis segítséget szeretnék kérni... Van egy könyvtáram a wincsesztere, és van benne 1000 filesom. Azek txt file-ok kiterjesztés nélkül. A txt filesokban mindig ugyamabban a sorrendben vannak adatok ,-vel elválasztva.
Én ezeket az adatokat szeretném sorba beolvasni egy excel file-ba. tehát egy file egy sor, következő file következő sorMeg lehet ezt makróba csinálni?
Ja a filesok nevében nincs rendszer.. tehát vélelen szerűen generált 16 jegyű szám és betű kódok.
-
Oly
őstag
Hali!
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Workbook_Open()
MyFile = "d:\" & "myfilename.txt"
fnum = FreeFile()
Open MyFile For Append As fnum
Write #fnum, Now(), Environ("USERNAME")
Close #fnum
End SubFire.
-
nagytomi10
csendes tag
-
Fire/SOUL/CD
félisten
-
Oly
őstag
Hali!
Remélem erre gondolsz
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub CommandButton1_Click()
'List_All_Environ_info
WriteToTextFile
End Sub
Function List_All_Environ_info() As String
Dim Counter As Integer
Counter = 1
Do Until Environ(Counter) = ""
Cells(Counter, 1).Value = Environ(Counter)
Counter = Counter + 1
Loop
End Function
Sub WriteToTextFile()
MyFile = "d:\" & "myfilename.txt"
fnum = FreeFile()
Open MyFile For Append As fnum
Write #fnum, Now(), Environ("USERNAME")
Close #fnum
End SubFire.
-
Fire/SOUL/CD
félisten
-
Oly
őstag
Hali!
Nem tudom, hogy egy ennyire egyszerű "azonosítás" megfelelne-e. Futtasd a makrót és láthatod, hogy milyen infókat tudsz lekérni ill. azok mit adnak vissza. Ha elég pl a számítógép neve és felhasználó alapján is loggolni, akkor megfelelhet.
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub CommandButton1_Click()
List_All_Environ_info
End Sub
Function List_All_Environ_info() As String
Dim Counter As Integer
Counter = 1
Do Until Environ(Counter) = ""
Cells(Counter, 1).Value = Environ(Counter)
Counter = Counter + 1
Loop
End FunctionFire.
-
Itthon 2007-es Excelem van. Engem is meglepett, mert úgy emlékeztem korábban nem volt nyomtató függő az előkép (emiatt szerkesztettem a hozzászólásomat). Holnap megnézem a munkahelyemen a 2003-asban jól emlékszem-e. Magamnak. Hogy tudjam, bízhatok-e az emlékeimben.
Nálam a melóban XP-2003 sok nyomtatóval, mellettem a saját notim, W7-2007-el, fizikai nyomatató nélkül. Szines, szines.
-
Akkor viszont én megvagyok lőve. Ha át állítom nem szines nyomtatóra, nálam akkor is szines a nyomtatási kép!
(ezt már az előző hsz-nél is így tapasztaltam, ezért is nem írtam bele)(#7078) attiati: egy virtuális nyomtató nem fog megártani. Szóval szerintem próbáld ki. (Lehet még az office-é is elég.)
-
Oldalbeállítás, Lap fül, Egyebek... gomb,a nyomtató párbeszédablakában Oldalbeállítás fülön tedd át színesre.
--> módosítom a véleményem. Igazad van. Áttettem LaserJetre és tényleg csak fekete fehér a kép. Telepíts egy pdf nyomtatót, nálam is az van, vagy SnagIt-etAkkor viszont én megvagyok lőve. Ha át állítom nem szines nyomtatóra, nálam akkor is szines a nyomtatási kép!
(ezt már az előző hsz-nél is így tapasztaltam, ezért is nem írtam bele)(#7078) attiati: egy virtuális nyomtató nem fog megártani. Szóval szerintem próbáld ki. (Lehet még az office-é is elég.)
-
-
A nyomtatási kép az szines. (legalább is nálam
)
Oldalbeállítás, lap, nyomtatásnál a fekete-fehérben nincs véletlenül bepipálva?Nincs bepipálva. Ráadásul ha bepipálom, akkor a színezett cellákat szürke helyett fehérre veszi.
Ha nincs bepipálva, akkor legalább szürkén kiemeli mondjuk a zöld cellát.Hozzá kéne adnom XP-ben egy színes nyomtatót, mintha lenne olyanom?
Vagy mit kéne tenni?
-
einstein
senior tag
Sziasztok, van egy őrjítő Excel 2007 hibám.
Worksheetek között kattintgatva néha (illetve inkább nagyon gyakran) nem vált át a másik fülre, hanem mintha csak elvesztené a fókuszt az aktív fülön. Tehát hiába kattintok mondjuk a mellette lévő munkafüzetre, nem vált át... Néha mintha jobb gombot nyomtam volna, felugrik a menü is.
Csak úgy tudom megoldani a problémát hogy rákattintok valamelyik másik fülre, amire aztán átvált, majd vissza arra amelyikre eredetileg rá akartam menni...
Találkozott már valaki hasonlóval?Pontosítok: tehát egy fájlon belül meglévő munkafüzet váltásoknál van ez a hiba, nem fájlok közötti ugrálásnál.
-
scott_free
senior tag
hali,
le szeretném védeni az excel-fájlomat, hogy ne lehessen belepiszkálni, csak a kijelölt mezőkön lehessen módosítani és a tábla mögötti adatokat se lehessen látni.
beírtam egy jelszót a "Lapvédelem"-nél, gondolván, hogy ez segít.aztán a netről leszedtem egy "Passware Password Recovery Kit"-et, ami 0 mp alatt fel tudta törni ezt a védelmet.
beírtam egy hosszú, változatos jelszót, ami a www.passwordmeter.com-on 100%-ot kapott, de ezt is 0 mp alatt törte fel. gondolom, hogy megkerüli valahogyan.
(valami MD5 attack-ot ír a progi)persze nem a valós jelszót adja vissza, de mégis hozzáférhetővé teszi a fájlt.
na erre tud valaki valamilyen megoldást?
-
Hogy lehet megoldani, hogy excelben a nyomtatási kép színes legyen?
A nyomtatási képről szeretnék képlopóval képet menteni. Szóval nem azt szeretném, hogy színesen nyomtassa, hanem a képernyőn a nyomtatási kép színes legyen. Köszi előre is!A nyomtatási kép az szines. (legalább is nálam
)
Oldalbeállítás, lap, nyomtatásnál a fekete-fehérben nincs véletlenül bepipálva? -
perfag
aktív tag
ActiveSheet.Select-re gondoltál?
Beraktam mindkét helyre, de ugyanaz a probléma.
Idézőjeleket kitöröltem, de így se változott semmi. -
WildBoarTeam
senior tag
ActiveSheet.Select-re gondoltál?
Beraktam mindkét helyre, de ugyanaz a probléma.
Idézőjeleket kitöröltem, de így se változott semmi. -
nagytomi10
csendes tag
-
perfag
aktív tag
A harmadik sornál akad meg:
Rows("2").Select -
WildBoarTeam
senior tag
A harmadik sornál akad meg:
Rows("2").Select -
nagytomi10
csendes tag
Próbáld meg linkelni a fájlt, mert így nehéz lesz megtalálni a hibát.
vagy próbáld meg lépésenként futtatni a makrót (VBA-ban F7 bill.) és látni fogod, hogy hol akad meg a hibával. -
WildBoarTeam
senior tag
Konkrétan egy Private Sub CommandButton1_Click() eseménybe másoltam be egy az egybe és ezt az üzenetet kapom:
Range osztály select metódusa hibás.Van Munka1 és Találatok munkalapom.
-
nagytomi10
csendes tag
nem működik - ennél azért több infót adj, ha kérdezel!
Milyen Exceled van? Ha 2007-es, akkor Office gomb, Az Excel beállításai ..., Adatvédelmi központ, Az Adatvédelmi központ beállításai .., Makróbeállítások: Az összes makró engedélyezése -- ez megvolt? Ettől fut a makró.
Ha a makró fut, de hibát jelez, akkor valószínűleg nincs Találatok, vagy Munka1 nevű munkalapod. Ebben az esetben ugyanis a makró Subscript out of range üzenettel kiakad. -
WildBoarTeam
senior tag
Sziasztok!
Az én problémámra gyakorlatilag tökéletes lenne ez a megoldás
[link], de ez nem működik ha VBA scriptként illesztem be.
Mit kell módosítanom ahhoz, hogy működjön?Ez attól függ mit akarsz csinálni.
Például nézted a #6541 hsz-ben lévő xls-t?
Én kipróbáltam. A Munka2-t átneveztem Találatok-ra, a hét számait tartalmazó címsort átmásoltam rá a Munka1-ről
Beírtam a Munka1 A1 cellájába a nevet, amit ki akarok gyűjteni és szépen hozta.Ja, és én modulként vettem fel a VBA editorban és nem a Microsoft script editorban.
-
nagytomi10
csendes tag
Az egyik üres lapodat nevezd el "Találatok"-nak, és a Munka1 címsorát másold át oda.
A Munka1 A1 cellájába írd be a keresendő adatot.
Sub Kigyujtes()
Application.ScreenUpdating = False
Sheets("Találatok").Select
Rows("2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Sheets("Munka1").Select
Cells(1).Select
sor_k = 2
sz = Selection.Value
Cells.Find(What:=sz, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
sor = Selection.Row: sor_m = sor + 1
Rows(sor).Copy Sheets("Találatok").Rows(sor_k)
sor_k = sor_k + 1
Do 'Keresés ismétlése
Cells.FindNext(After:=ActiveCell).Activate
sor = Selection.Row
Rows(sor).Copy Sheets("Találatok").Rows(sor_k)
sor_k = sor_k + 1
Loop While sor >= sor_m
Sheets("Találatok").Select
usor = ActiveSheet.UsedRange.Rows.Count
Rows(usor).Select
Selection.Delete Shift:=xlUp
Cells(1).Select
Application.ScreenUpdating = True
End SubEz a makró kigyűjti a Találatok lapra a kért adatokat.
Remélem, megfelel, mert ma csak délután leszek gép közelében.
-
WildBoarTeam
senior tag
Sziasztok !
Lenne egy kérdésem:
Van egy mappám, amiben .doc fájlok. Ebben a mappában létrehozok egy excel fájlt amiben elkészítek egy listát,ezekről a .doc-os fájlokról. Minden egyes sorba be herül egy hivatkozás is az adott fájl-ról.
A kérdésem a következő:Létre tudom ezt úgy hozni, hogy ha a mappát átteszem egy másik gépre ott is működjenek a hivatkozások?
-
Fire/SOUL/CD
félisten
Sziasztok !
Lenne egy kérdésem:
Van egy mappám, amiben .doc fájlok. Ebben a mappában létrehozok egy excel fájlt amiben elkészítek egy listát,ezekről a .doc-os fájlokról. Minden egyes sorba be herül egy hivatkozás is az adott fájl-ról.
A kérdésem a következő:Létre tudom ezt úgy hozni, hogy ha a mappát átteszem egy másik gépre ott is működjenek a hivatkozások?
-
Megpróbálom én.
Kijelölöd A2-től a neveidet, és nevet adsz a tartománynak, ahogy a képen látod.
Hasonlóan kijelölöd az A1:R1 tartományt, és a Címsorok nevet adod neki.
A Sheet2 lapon beállsz a C2 cellába. Az érvényesítésnél a listát választod a legördülőből, a forráshoz pedig beírod: =Nevek
A D2 cellán állva újabb érvényesítés következik, aminek a forrása a Címsorok.
Ezekből az elkészült legördülőkből kiválasztod a nevet, és az oszlopcímet. Az E2 cellába beírod a képletet, amit a #7047-ben írtam. -
akkor vki segitsen a data validationnel
mert nem az egyszeruseg hanem a megoldas lenne a lenyeg amit akartamMegpróbálom én.
Kijelölöd A2-től a neveidet, és nevet adsz a tartománynak, ahogy a képen látod.
Hasonlóan kijelölöd az A1:R1 tartományt, és a Címsorok nevet adod neki.
A Sheet2 lapon beállsz a C2 cellába. Az érvényesítésnél a listát választod a legördülőből, a forráshoz pedig beírod: =Nevek
A D2 cellán állva újabb érvényesítés következik, aminek a forrása a Címsorok.
Ezekből az elkészült legördülőkből kiválasztod a nevet, és az oszlopcímet. Az E2 cellába beírod a képletet, amit a #7047-ben írtam. -
Akkor legegyszerűbb, amit Fire ajánlott.
A Sheet1 lapodon bekapcsolod a Data/Filter/Autofiltert. A címsorokban kis nyilak jelennek meg. Az A oszlopban ennek a legördülőnek a segítségével kiválasztott nevet, és akkor csak az ő sorához tartatozó adatok látszanak majd.akkor vki segitsen a data validationnel
mert nem az egyszeruseg hanem a megoldas lenne a lenyeg amit akartam -
-
Delila_1
veterán
-
Ennek így nem sok értelmét látom, mert ha már kikerested, hogy a név hanyadik sorban van, és melyik oszlop tartalmazza a kérdéses tartalmat, akkor már ott van az érték is.
Azért az E2 képlete:
=INDIRECT("Sheet1!" & CHAR(C2+64) &D2+1)nekem ez #VALUE! -t ad ki
az lenne az ertelme hogy aki ezt hasznalja nem latja a tablazatot
csak a nevet es a cimszot tudja es a hozzatartozo info erdekli ezert adna be a ket szot es kapna meg az infot (es csak azt az infot ami erdekli a tobbi oszlopot nem) -
Fire/SOUL/CD
félisten
Ennek így nem sok értelmét látom, mert ha már kikerested, hogy a név hanyadik sorban van, és melyik oszlop tartalmazza a kérdéses tartalmat, akkor már ott van az érték is.
Azért az E2 képlete:
=INDIRECT("Sheet1!" & CHAR(C2+64) &D2+1)Hali!
Ahogy látom, lehet, hogy elfogsz jutni az autoszűrőig....
Fire.
-
Ok, de igazabol ez egy kis pelda volt szoval tobb parameter lenne nem csak ez a 3 ezer akarnam ugy megcsinalni h mind a ket parameter valtoztathato legyen
konkretan:
cimszavak A5 tol R5 ig Nevek A6 tol A13 ig ( a keresendo adat ugye a B6 tol R13ig tablaban)es en szeretnek egy olyat h mondjuk C2 es D2 be beirom a sort es oszlopot(pl 4.cimszo es 5.nev) es az E2 be meg kiadja a kivant cella tartalmat.
-
Akkor az A:B tartomány helyett A-tól az utolsó kitöltött oszlopig adod meg a táblázatot, következő paraméter pedig a lekérdezendő adat oszlopszáma (pl. a mobilé 4)
=VLOOKUP(C2,Sheet1!A:D,4,0)Írd be a címsort a Sheet2-re. A telefon cím alá jön az azt kikereső Vlookup, a címhez a címé, stb.
A felhasználó beírja a nevet, és mellette azonnal megjelenik minden hozzá tartozó adat.
-
hello!
egy olyan kerdesem lenne,hogy a kovetkezo dolgot meg e lehet csinalni es ha igen hogy..
van egy tablazatom mondjuk elso sor cellaiban cim telefonszam mobilszam szuletesi datum. elso oszlopban egymas alatt nevek, bela geza jozsi stb...
namost kene nekem egy uj lapon(munka2/sheet2) egy cucc amibe ha beirom hogy jozsi telefonszam akkor kiadja azt a cella tartalmat(C3) ami hozza tartozik..
/tudom h valszeg mashogy is meglehet csinalni de nekem ez kene igy/
koszi a segitseget elore is -
Fire/SOUL/CD
félisten
Nem jó az OR. Azt az oszlopot, ahol 1-2 adat hiányzik, nem kell törölni, csak azt, ahol a 2:40 sorok egyikében sincs adat. Ezért elég, ha az oszlop CountA értéke 0.
Hali!
Oksa, így rendben van, érthető. Csupán amikor néztem a makró kódod, akkor az egyből világos volt, hogy az IsEmpty(And kapcsolattal) az felesleges, de azt nem tudtam, hogy kell-e vizsgálni ettől függetlenül egy adott cella "ürességét" is avagy sem.
Fire.
-
Delila_1
veterán
Hali!
Nem, szerintem kellhet, csak nem And hanem Or...
Azért írtam, mert az látszott, hogy a CountA, az mindig felülbírálja az IsEmpty-t, ellenben ha külön is kell vizsgálni, hogy egy adott cella üres-e(tartalmaz-e értéket stb), akkor szükség lehet az IsEmpty-re is, viszont ez esetben akkor Or.De ezt majd megvizsgálod és elnézést a szörszálhasogatásért...
Fire.
-
Fire/SOUL/CD
félisten
Hali!
Nem, szerintem kellhet, csak nem And hanem Or...
Azért írtam, mert az látszott, hogy a CountA, az mindig felülbírálja az IsEmpty-t, ellenben ha külön is kell vizsgálni, hogy egy adott cella üres-e(tartalmaz-e értéket stb), akkor szükség lehet az IsEmpty-re is, viszont ez esetben akkor Or.De ezt majd megvizsgálod és elnézést a szörszálhasogatásért...
Fire.
-
Delila_1
veterán
Hali!
Szedd ki az "egyenletből" a IsEmpty(cv.Value)-t, akkor is működik?
(Mert szerintem igen)
Fire.
-
Fire/SOUL/CD
félisten
-
Delila_1
veterán
-
Fire/SOUL/CD
félisten
Ímé:
Sub valami()
Dim cv As Object
For Each cv In Range("C2:N40")
If IsEmpty(cv.Value) And Application.CountA(Range(Cells(2, cv.Column), _
Cells(40, cv.Column))) = 0 Then
Range(Cells(1, cv.Column), Cells(40, cv.Column)).Select
Selection.Delete Shift:=xlToLeft
End If
Next
End SubHali!
Ööö, azt az And kapcsolatot én felülvizsgálnám, így hirtelen ránézésre...
![;]](//cdn.rios.hu/dl/s/v1.gif)
Fire.
-
-
Szia!
Köszi a segítséget!
Annyival módosult a történet, hogy az üres cellák oszloponként ismétlődnek.
Ezeket az oszlopokat kellene úgy kitörölnöm, mint amikor kézzel kijelölök cellákat, ott a cellák törlését választom majd azt, hogy cellák eltolása balra. Viszont ebben az esetben nemcsak a kijelölt tartományt kell törölnöm, hanem az eggyel fölötte lévő sort is. Pl.: ha B2
40 a tartomány és C2-től C40-ig üres cellák vannak akkor C1-től C40-ig kell kitörölnöm a fentebb említett módon a cellákat.Előre is köszönöm mindenkinek a segítséget!
-
Delila_1
veterán
Ugyan miért reagáljon gyorsan?
Majdnem 100 hsz érkezett azóta, biztos ki akarta várni ezt a szép kerek értéket.
(#7018) shev7
Sajnos így van, bármit képesek elrontani
Ha azt kéred, hogy 3 tizedesig írjon be értéket, akkor tuti egész értéket kapsz, vagy szövegeset. Na jó, tisztelet a kivételnek.
-
WildBoarTeam
senior tag
Sub valami()
Dim cv As Object
For Each cv In Range("C2:N40")
If IsEmpty(cv.Value) Then
Range(Cells(2, cv.Column), Cells(40, cv.Column)).Select
Selection.Delete Shift:=xlToLeft
End If
Next
End SubKérlek, legközelebb tisztelj meg azzal, hogy hamarabb reagálsz a válaszomra. Múltkor 9 perc alatt kaptad meg a megoldást, és csak 8 napra rá írtál. Szívesen segítek, de talán elvárhatom, hogy ne egy bő hét múlva közöld, mire mentél vele. Ne kelljen utólag kikeresnem, mi is volt az eredeti kérdés.
Ugyan miért reagáljon gyorsan?
Majdnem 100 hsz érkezett azóta, biztos ki akarta várni ezt a szép kerek értéket.(#7018) shev7
Sajnos így van, bármit képesek elrontani
Ha azt kéred, hogy 3 tizedesig írjon be értéket, akkor tuti egész értéket kapsz, vagy szövegeset. Na jó, tisztelet a kivételnek. -
Delila_1
veterán
köszi, végülis megoldottam fapadosan: fehér szövegszín + a zárolt cellák kijelölésének tiltásával.
viszont egy újabb kérdésem is lenne: ha pl. csak 8 oszlopot és 16 sort használok, akkor a többit el lehet valahogyan tüntetni, hogy nem látszódjanak? (tehát mintha egy fehér lapon lenne az aktív táblázat)
-
Szia!
Köszi a segítséget!
Annyival módosult a történet, hogy az üres cellák oszloponként ismétlődnek.
Ezeket az oszlopokat kellene úgy kitörölnöm, mint amikor kézzel kijelölök cellákat, ott a cellák törlését választom majd azt, hogy cellák eltolása balra. Viszont ebben az esetben nemcsak a kijelölt tartományt kell törölnöm, hanem az eggyel fölötte lévő sort is. Pl.: ha B240 a tartomány és C2-től C40-ig üres cellák vannak akkor C1-től C40-ig kell kitörölnöm a fentebb említett módon a cellákat.Előre is köszönöm mindenkinek a segítséget!
Sub valami()
Dim cv As Object
For Each cv In Range("C2:N40")
If IsEmpty(cv.Value) Then
Range(Cells(2, cv.Column), Cells(40, cv.Column)).Select
Selection.Delete Shift:=xlToLeft
End If
Next
End SubKérlek, legközelebb tisztelj meg azzal, hogy hamarabb reagálsz a válaszomra. Múltkor 9 perc alatt kaptad meg a megoldást, és csak 8 napra rá írtál. Szívesen segítek, de talán elvárhatom, hogy ne egy bő hét múlva közöld, mire mentél vele. Ne kelljen utólag kikeresnem, mi is volt az eredeti kérdés.
-
perfag
aktív tag
köszi, végülis megoldottam fapadosan: fehér szövegszín + a zárolt cellák kijelölésének tiltásával.
viszont egy újabb kérdésem is lenne: ha pl. csak 8 oszlopot és 16 sort használok, akkor a többit el lehet valahogyan tüntetni, hogy nem látszódjanak? (tehát mintha egy fehér lapon lenne az aktív táblázat)
-
Sub valami()
Dim cv As Object
For Each cv In Range("B2:N40")
If IsEmpty(cv.Value) Then
Range(cv.Address) = Cells(1)
Else
If IsNumeric(cv) Then Range(cv.Address) = cv * Cells(2, 1)
End If
Next
End SubSzia!
Köszi a segítséget!
Annyival módosult a történet, hogy az üres cellák oszloponként ismétlődnek.
Ezeket az oszlopokat kellene úgy kitörölnöm, mint amikor kézzel kijelölök cellákat, ott a cellák törlését választom majd azt, hogy cellák eltolása balra. Viszont ebben az esetben nemcsak a kijelölt tartományt kell törölnöm, hanem az eggyel fölötte lévő sort is. Pl.: ha B240 a tartomány és C2-től C40-ig üres cellák vannak akkor C1-től C40-ig kell kitörölnöm a fentebb említett módon a cellákat.Előre is köszönöm mindenkinek a segítséget!
-
scott_free
senior tag
Nem csak a súgót nem árt olvasgatni, de az is hasznos sokszor, ha itt visszaolvasol!
Pl.: [link]Ja és ha nem menne a makró életre keltése: [link]
(#7011) shev7: Sajnos egy munkahelyen bármi megtörténik. Pl. kiadsz egy táblázatot, hogy töltsék ki, erre visszaküldenek egy teljesen más struktúrájú word!! táblázatot. Szerinted?
köszi, végülis megoldottam fapadosan: fehér szövegszín + a zárolt cellák kijelölésének tiltásával.
viszont egy újabb kérdésem is lenne: ha pl. csak 8 oszlopot és 16 sort használok, akkor a többit el lehet valahogyan tüntetni, hogy nem látszódjanak? (tehát mintha egy fehér lapon lenne az aktív táblázat)
-
shev7
veterán
Így van, ro_bert17-nek teljesen igaza van....
Ha valamibe hagyod belepiszkálni a júzert, akkor meg is teszi. Sajnos ez mindenkire jellemző (főleg azokra a felhasználókra, akik nem értik mit is látnak, ezért belepiszkálnak).
Előfordul, hogy kiküldök egy táblázatot 5 embernek, akkor 5 verziót kapok belőle vissza és szerkeszthetem újra az egészet.
(nem egy eset volt már).
Sőt egyszer úgy hagytam az szerkesztőt (XML), amíg elmentem kajálni és mire visszaértem kitörölték a tartalmát, elmentették, és bedöglött a rendszer, mert újraindították azt a gépet is és nem találta a fájlt....Még jó, hogy mindig egy biztonsági mentéssel kezdek neki az ilyen melónak... -
Sziasztok,
ezen a héten még csak a második buta kérdésnél tartok.
A problémám az lenne, hogy egy táblázat bizonyos helyére súlyozott átlagot kell számolnom. Ez rendben is van. Szeretném még az alatta lévő 3 cellára alkalmazni, ámde a táblázat azon része, ahonnan az adatokat szedem, az nem 1-1 sorral van lejjebb, mint ahogy a "húzás" nyomán számolja a gép, hanem mindig 6 cellával lejjebb van a számomra kellő alapadat.
Tehát azt hogy lehet megcsinálni, hogy az eredmény szempontjából egyetlen lefelé történő cellaugrásnál a hivatkozott adatok mindig 6-ot csússzanak? Lehet, hogy csak én értem, amit kérdezek, szóval remélem érthető voltam. Minden segítséget előre is köszönök.Másik megoldás a sorszámozás, ahogy az utóbbi napokban feltett kérdéseidre is az volt a válasz. A sorszámra hivatkozhatsz egy INDIREKT függvénnyel.
-
WildBoarTeam
senior tag
Sziasztok,
ezen a héten még csak a második buta kérdésnél tartok.
A problémám az lenne, hogy egy táblázat bizonyos helyére súlyozott átlagot kell számolnom. Ez rendben is van. Szeretném még az alatta lévő 3 cellára alkalmazni, ámde a táblázat azon része, ahonnan az adatokat szedem, az nem 1-1 sorral van lejjebb, mint ahogy a "húzás" nyomán számolja a gép, hanem mindig 6 cellával lejjebb van a számomra kellő alapadat.
Tehát azt hogy lehet megcsinálni, hogy az eredmény szempontjából egyetlen lefelé történő cellaugrásnál a hivatkozott adatok mindig 6-ot csússzanak? Lehet, hogy csak én értem, amit kérdezek, szóval remélem érthető voltam. Minden segítséget előre is köszönök. -
zUlU53
tag
Sziasztok,
ezen a héten még csak a második buta kérdésnél tartok.
A problémám az lenne, hogy egy táblázat bizonyos helyére súlyozott átlagot kell számolnom. Ez rendben is van. Szeretném még az alatta lévő 3 cellára alkalmazni, ámde a táblázat azon része, ahonnan az adatokat szedem, az nem 1-1 sorral van lejjebb, mint ahogy a "húzás" nyomán számolja a gép, hanem mindig 6 cellával lejjebb van a számomra kellő alapadat.
Tehát azt hogy lehet megcsinálni, hogy az eredmény szempontjából egyetlen lefelé történő cellaugrásnál a hivatkozott adatok mindig 6-ot csússzanak? Lehet, hogy csak én értem, amit kérdezek, szóval remélem érthető voltam. Minden segítséget előre is köszönök. -
WildBoarTeam
senior tag
sosem ertettem, hogy emberek miert akarjak az adatokat elrejteni. Ha nem akarod hogy zavarjon berakod az utolso munkalapra, nem fog ott zavarni senkit...
Így van, ro_bert17-nek teljesen igaza van....
Ha valamibe hagyod belepiszkálni a júzert, akkor meg is teszi. Sajnos ez mindenkire jellemző (főleg azokra a felhasználókra, akik nem értik mit is látnak, ezért belepiszkálnak).
Előfordul, hogy kiküldök egy táblázatot 5 embernek, akkor 5 verziót kapok belőle vissza és szerkeszthetem újra az egészet. (nem egy eset volt már).
Sőt egyszer úgy hagytam az szerkesztőt (XML), amíg elmentem kajálni és mire visszaértem kitörölték a tartalmát, elmentették, és bedöglött a rendszer, mert újraindították azt a gépet is és nem találta a fájlt....Még jó, hogy mindig egy biztonsági mentéssel kezdek neki az ilyen melónak... -
perfag
aktív tag
hogyan tudom a leghatékonyabban elrejteni és zárolni a táblázat egy részét, vagy az egyik munkalapot? (ami a számításhoz szükséges forrásadatokat tartalmazza)
azt láttam a súgóban, hogy a Lapvédelemnél be tudom állítani a zárolást, de a Formátum/Lap/Elrejtés menü nem elég hatékony, hiszen bármikor vissza lehet állítani és akkor újra látszanak az adatok.
(próbáltam fehér alapon fehér szöveget írni, de a kijelölésnél már látszanak az adatok) -
ro_bert17
őstag
hogyan tudom a leghatékonyabban elrejteni és zárolni a táblázat egy részét, vagy az egyik munkalapot? (ami a számításhoz szükséges forrásadatokat tartalmazza)
azt láttam a súgóban, hogy a Lapvédelemnél be tudom állítani a zárolást, de a Formátum/Lap/Elrejtés menü nem elég hatékony, hiszen bármikor vissza lehet állítani és akkor újra látszanak az adatok.
(próbáltam fehér alapon fehér szöveget írni, de a kijelölésnél már látszanak az adatok)Nem csak a súgót nem árt olvasgatni, de az is hasznos sokszor, ha itt visszaolvasol!
Pl.: [link]Ja és ha nem menne a makró életre keltése: [link]
(#7011) shev7: Sajnos egy munkahelyen bármi megtörténik. Pl. kiadsz egy táblázatot, hogy töltsék ki, erre visszaküldenek egy teljesen más struktúrájú word!! táblázatot. Szerinted?
-
shev7
veterán
hogyan tudom a leghatékonyabban elrejteni és zárolni a táblázat egy részét, vagy az egyik munkalapot? (ami a számításhoz szükséges forrásadatokat tartalmazza)
azt láttam a súgóban, hogy a Lapvédelemnél be tudom állítani a zárolást, de a Formátum/Lap/Elrejtés menü nem elég hatékony, hiszen bármikor vissza lehet állítani és akkor újra látszanak az adatok.
(próbáltam fehér alapon fehér szöveget írni, de a kijelölésnél már látszanak az adatok) -
scott_free
senior tag
igen, ezt a $-módszert közben megtaláltam a neten, kellett is!
-
scott_free
senior tag
Pont ezt írtam volna, amit Delila_1
És ugye azért is jobb a duplaklikk mert, ha több száz vagy ezer sorod van, akkor elég macerás görgetni... Ha meg egy-két üres sor mégis akad benne, azt áthúzod és utána megint lehet duplaklikkelni.
Még egy tipp:
Ha pl konkrétan egy cellára akarsz hivatkozni a egy képletben, akkor tedd az oszlopazonosító és a sorazonosító elé is a $ jelet. Ezzel fixálod a helyzetét (pl.: C1-be: =$A$1*B1). Ezután bárhova másolod a képletedet, mindig ugyanoda ($A$1-re) fog mutatni a képleted (pl.: ha átmásolod H4-be, akkor eredmény: =$A$1*G4).
Ha csak az oszlopot akarod fixálni, akkor akkor csak az oszlopjelölő elé teszed a $ jelet: $A1
(ilyenkor, ha oszlopot váltasz, akkor is az A oszlopra hivatkozik, csak a sor változik)
Ha a sort akarod fixálni, akkor meg a sorjelölő elé: A$1 (itt csak az oszlop változik, a sor fix)Amúgy ezt akkor fogod megérteni jobban, ha kipróbálod.
Hasznos, ha egy sok képletből álló táblád van, és nem akarod egyesével szerkesztgetni a képleteidet.igen, ezt a $-módszert közben megtaláltam a neten, kellett is!
-
scott_free
senior tag
Ha jól látom C oszlopban akarsz maradni. Használd az Ofszet függvényt és használd a Súgót, erre van kitalálva!
=C9+OFSZET(C9;9-B1;0)
C9-hez hozzáadja a C9-től B1-nyivel feljebbi cella értékét, a 0-val azt adod meg, hogy az oszlopon belül maradsz.köszönöm, ez nagyon szuper!
az a gond a súgóval, hogy ha nem tudom pár szóban, excel kifejezésekkel megfogalmazni, hogy mit is keresek, akkor nem ad segítséget. pláne annak, aki évente kb. egyszer akarja használni az excelt.
-
WildBoarTeam
senior tag
na még egy: meg lehet adni egy cellát úgy, hogy pl. egy művelettel jönne ki a sor száma?
pl. C10=C9+CX, ahol X=9-B1
Pont ezt írtam volna, amit Delila_1
És ugye azért is jobb a duplaklikk mert, ha több száz vagy ezer sorod van, akkor elég macerás görgetni... Ha meg egy-két üres sor mégis akad benne, azt áthúzod és utána megint lehet duplaklikkelni.
Még egy tipp:
Ha pl konkrétan egy cellára akarsz hivatkozni a egy képletben, akkor tedd az oszlopazonosító és a sorazonosító elé is a $ jelet. Ezzel fixálod a helyzetét (pl.: C1-be: =$A$1*B1). Ezután bárhova másolod a képletedet, mindig ugyanoda ($A$1-re) fog mutatni a képleted (pl.: ha átmásolod H4-be, akkor eredmény: =$A$1*G4).
Ha csak az oszlopot akarod fixálni, akkor akkor csak az oszlopjelölő elé teszed a $ jelet: $A1
(ilyenkor, ha oszlopot váltasz, akkor is az A oszlopra hivatkozik, csak a sor változik)
Ha a sort akarod fixálni, akkor meg a sorjelölő elé: A$1 (itt csak az oszlop változik, a sor fix)Amúgy ezt akkor fogod megérteni jobban, ha kipróbálod.
Hasznos, ha egy sok képletből álló táblád van, és nem akarod egyesével szerkesztgetni a képleteidet. -
Jézusom! Egy kijelölt cella tartalmának másolásához fogjuk meg és húzzuk vízszintes vagy függőleges irányba a cella jobb alsó sarkában található kitöltő jelet.
A kitöltő jelen az egérmutató fekete kereszt alakúvá változik, csak ekkor foghatjuk meg a kitöltő jelet. A művelet eredménye a cella tartalmától függően másolás vagy egy sorozat létrehozása lesz.
-
perfag
aktív tag
na még egy: meg lehet adni egy cellát úgy, hogy pl. egy művelettel jönne ki a sor száma?
pl. C10=C9+CX, ahol X=9-B1
-
perfag
aktív tag
excelben hogyan lehet soronként megismételni egy műveletet anélkül, hogy minden egyes sorba be kellene írni a képletet?
pl.
C3=A3*B3
C4=A4*B4
C5=A5*B5és így tovább.
Jézusom! Egy kijelölt cella tartalmának másolásához fogjuk meg és húzzuk vízszintes vagy függőleges irányba a cella jobb alsó sarkában található kitöltő jelet.
A kitöltő jelen az egérmutató fekete kereszt alakúvá változik, csak ekkor foghatjuk meg a kitöltő jelet. A művelet eredménye a cella tartalmától függően másolás vagy egy sorozat létrehozása lesz. -
scott_free
senior tag
na még egy: meg lehet adni egy cellát úgy, hogy pl. egy művelettel jönne ki a sor száma?
pl. C10=C9+CX, ahol X=9-B1
-
scott_free
senior tag
-
ro_bert17
őstag
excelben hogyan lehet soronként megismételni egy műveletet anélkül, hogy minden egyes sorba be kellene írni a képletet?
pl.
C3=A3*B3
C4=A4*B4
C5=A5*B5és így tovább.
hat en nemtudom milehet a baja, megprobalom majd otthon a magyarba beirni..
,2,0)
![;]](http://cdn.rios.hu/dl/s/v1.gif)
40 a tartomány és C2-től C40-ig üres cellák vannak akkor C1-től C40-ig kell kitörölnöm a fentebb említett módon a cellákat.
(nem egy eset volt már).
Új hozzászólás Aktív témák
Fferi50- Azonnali informatikai kérdések órája
- Autós topik
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Allegro vélemények - tapasztalatok
- Bestbuy játékok
- AMD FX
- Villanyszerelés
- EAFC 26
- Vicces képek
- További aktív témák...
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Eladó PC játékok - sok ritkaság!!!
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel! 13 hónap ultimate - 45.000 ft
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Microsoft és egyéb dobozos és OEM szoftverek
- Bomba ár! Lenovo X1 Carbon 5th I i7-7G I 8GB I 256SSD I 14" FHD I Cam I W11 I Garancia!
- 234 - Lenovo Legion Pro 7 (16IAX10H) - Intel Core U9 275HX, RTX 5080
- Apple iPhone SE 2020 128GB, Kártyafüggetlen, 1 Év Garanciával
- iPhone 17 256 GB Sage - Bontatlan !! www.stylebolt.hu - Apple eszközök és tartozékok - Számlás
- Apple iPhone 13 128 GB Midnight 100% Akkumulátor 1 év Garancia Beszámítás Házhozszállítás
Állásajánlatok
Cég: aiMotive Kft.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest