-
Fototrend
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
Topikgazda
válasz Benarivo #7051 üzenetére
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.[ 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.
-
Benarivo
csendes tag
hat egy angol tutorial azt irja h a vlookup csak akkor muxik ha az elso oszlop es sor abc vmint novekvo sorrendbe vannak... nalam osszevissza vannak. lehet ez a baj?
-
perfag
aktív tag
válasz Benarivo #7057 üzenetére
Az adatok rendezetlensége nem gond.
[A KERES függvény használata nem rendezett adatokhoz az Excel programban] -
VANESSZA1
őstag
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?
Precision M7710_&_Precision M7740- CPU: 9980HK, RAM: 32GB/3200MHz, GPU: RTX5000, IGZO 4K-UHD, SSD: 2TB Force MP510, 2TB ADATA XPG SX8200 PRO, 1TB SK HYNIX Class 50 SSD
-
félisten
válasz VANESSZA1 #7060 üzenetére
Hali!
Ha a doksik ugyanabban a könyvtárban vannak mint az excel munkafüzet, akkor a hivatkozásban nem kell útvonalat megadni. Simán 1.doc, 2.doc, stb nem pedig c:\ubul\1.doc, c:\ubul\2.doc stb. Első esetben, ha könyvtárastól átmásolod a doksikat, az excel munkafüzettel együtt, akkor a másik gépen/könyvtárban is működnie kell.
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)
-
WildBoarTeam
aktív tag
válasz VANESSZA1 #7060 üzenetére
Fire-nek igaza van. működnie kell. Sőtt, ha van egy könyvtárszerkezeted és azt komplettan másolod, akkor is. Értem ezt így:
1. gép.:
C:\munka\január mappa - itt vannak a doc fájlok
C:\munka\akármi mappa - itt van az excel fájlod, amiből hivatkozol a doc fájlokra.Ha te a komlpett munka mappát lemásolod egy másik gépre, akkor is működnie kell.
De akárhova másolva is működik. pl.:
C:\valami\munka\január mappa
C\valami\munka\akármi mappa
A lényeg, hogy a könyvtárszerkezet egyezzen.[ Szerkesztve ]
blabla
-
WildBoarTeam
aktív tag
válasz nagytomi10 #7063 üzenetére
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.
blabla
-
perfag
aktív tag
válasz nagytomi10 #7063 üzenetére
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
aktív tag
válasz nagytomi10 #7066 üzenetére
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.blabla
-
nagytomi10
csendes tag
válasz WildBoarTeam #7067 üzenetére
A harmadik sornál akad meg:
Rows("2").Select -
WildBoarTeam
aktív tag
válasz nagytomi10 #7068 üzenetére
Tehát akkor a Sheets("Találatok").Select sor még jó.
Próbáltad idézőjelek nélkül? Rows(2).Select (így is működnie kell)
Mert ez ugye kijelöli a második sort, majd elmegy az utolsó sorig, ahol adatot talál (próbáld ki manuálisam: kijelölöd a 2. sort, majd Shift+End+lefelenyíl), végül a kód következő soraiban törli a tartalmát a kijelölt résznek.
Szerintem szedd ki az idézőjeleket, ha nem lesz jó, akkor próbálkozunk mással.blabla
-
perfag
aktív tag
válasz nagytomi10 #7068 üzenetére
Tegyél elé egy ActiveSheet.-et, és a következő sorba is a Range elé is.
-
WildBoarTeam
aktív tag
válasz nagytomi10 #7071 üzenetére
2003-at használsz amúgy?
Nekem egyszer volt hasonló jelenségem (tán még a hibaüzenet is ez volt). Delila_1-val néztük ugyanazt a fájlt. Ő 2007-es excelben, én meg 2003-asban és nekem ugyanígy hibaüzenettel megállt, nála meg ment rendesen minden. Én azt csináltam, hogy nyitottam egy új modult a VBA-ban, átmásoltam oda a kódot, töröltem a régi modult és működött. Ez csak egy tipp, ha 2003-ad van.blabla
-
perfag
aktív tag
válasz nagytomi10 #7071 üzenetére
Most a munkahelyemről, itt 2003-as Excelen: Activesheet. kell az 5., 6., 30. és 32. sorokba és műxik.
-
attiati
veterán
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! -
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?
[ Szerkesztve ]
-
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.
[ Szerkesztve ]
-
attiati
veterán
válasz ro_bert17 #7075 üzenetére
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?[ Szerkesztve ]
-
perfag
aktív tag
válasz attiati #7078 üzenetére
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-et[ Szerkesztve ]
-
ro_bert17
őstag
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.)
-
perfag
aktív tag
-
attiati
veterán
Köszi mindkettőtöknek, felraktam egy HP color laserjetet, most már jó.
Tiszta menő, lett egy nyomtatóm -
Oly
senior tag
válasz Fire/SOUL/CD #6989 üzenetére
Halihó!
Most van egy ksi időm foglalkozni a dologgal.
Mire majdnem kész lettem, esszembe jutott, hogy a kollégáknak csak read onlyban engedem megnyitni a filet. Ilyenkor hogyan lehetne ezt megmókolni?
A macró egy másik fileba be tudja másolni az adatokat? Amit persze write-ba nyitna meg.
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
félisten
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.
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)
-
Oly
senior tag
válasz Fire/SOUL/CD #7085 üzenetére
Ohhh...
Ez nagyon f@cányos. Már csak olyan kérdésem van, hogy hogyan tudnám ezt a munkalap megnyitására futtatni?
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
félisten
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.
[ 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)
-
nagytomi10
csendes 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 -
Oly
senior tag
válasz Fire/SOUL/CD #7087 üzenetére
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?
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
Pulsar
veterán
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.
-
perfag
aktív tag
válasz nagytomi10 #7088 üzenetére
Biztos, hogy akarsz üzenetet? Nem tudom mennyi adattal dolgozol, de beleszaladhatsz egy olyanba, hogy csak kattingatsz és kattintgatsz ...
A VBA On Error hibakezelőjét nézd meg a súgóban, vagy olvasd el Chip Pearson összefoglalóját. [Error Handling in VBA]
Én az On Error Resume Next-re szavazok, de ha kellenek a cellák ahol az ismétlődések vannak akkor inkább gyűjtsd ki egy listába.
Óvatosan a hibakezelővel, ki is kell kapcsolni! különben nagyon elszáll az Excel, ments gyakrabban. -
Delila_1
Topikgazda
válasz nagytomi10 #7088 üzenetére
Hibakezeléssel:
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
sor_k = 2
sz = Sheets("Munka2").Cells(1)
Sheets("Munka1").Select
On Error GoTo Hiba
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 + 1
ActiveSheet.Rows(usor).Select
Selection.Delete Shift:=xlUp
ActiveSheet.Cells(1).Select
Application.ScreenUpdating = True
Exit Sub
Hiba:
MsgBox "Nincs '" & sz & "' érték a Munka1 lapon"
End Sub2003-as verzióban írtam, ahhoz nem kellett az ActiveSheet. Látom, áttetted a Munka2!A1-be a keresendő értéket. Jobb, mert ha az adatok között egyébként nem szerepelne, a Find ezt az egyet megtalálná.
[ 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 nagytomi10 #7088 üzenetére
Az
usor = ActiveSheet.UsedRange.Rows.Count + 1
végéről töröld ki a +1-et.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
Hali!
Igen, valóban, adatbázishoz kellene kötni, természetesen a legnyilvánvalóbb választás az Access. Vannak olyan feladatok, amelyek esetén már nem érdemes(még ha lehetséges is) Excelben makrózni.
Mondjuk ez a csoport dolog így nem teljesen világos a számomra, ezt látni kellene, meg azt is, hogy mi legyen a végeredmény(amit ki akarsz hozni belőle). Így csak vaktában lövöldözné(n)k.
Fire.
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
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)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
-
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!!Bámulatos hol tart már a tudomány!
-
Oly
senior tag
válasz Delila_1 #7097 üzenetére
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....
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
Új hozzászólás Aktív témák
- Épített vízhűtés (nem kompakt) topic
- Okos Otthon / Smart Home
- antikomcsi: Való Világ: A piszkos 12 - VV12 - Való Világ 12
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Politika
- Diablo 3
- Hobby rádiós topik
- sziku69: Fűzzük össze a szavakat :)
- Autóhifi
- Milyen belső merevlemezt vegyek?
- További aktív témák...
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Windows 10 Home COA fizikai licencek kiárusítás ingyenes szállítással
- World of Warcraft Shadowlands Collectors edition EU EN