-
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
-
#11754
bugizozi
őstag
atillaahun
#11753
bugizozi
őstag
válasz
atillaahun
#11753
üzenetére
most hitelen nem találom neten, meg nincs is időm rá, de ezeket olvasd el...
szerk:
így működnie kell -
bugizozi
őstag
válasz
ArchElf
#11348
üzenetére
Szia,
-makró mind2 gépen alacsonyra van állítva, amin megy illetve amin nem is
-szekresztés/csatolásoknál így van megadva a két csatolt excel: \\servernev\mappa\mappa\excel.xls
-és az ucsó kérdésed... a könyvtár mappelés lesz a hibás
ahol nem megy ott fel van csatolva egy hálózati meghajtó (\\servernev\mappa) és azon belül van egy mappa amiben van az excel ami gyűjti az adatokat a másik két excel másik mappában
ahol megy, ott csak az asztalra van kitéve egy mappa ami a \\serverneve\mappa-ra mutat...megmondom őszintén erre nem gondoltam hogy ez befolyásolhatja a dolgot, ezért sem említettem az első hsz-omnál, sry Delia
mivel én úgy gondolkodtam hogy a felcsatolt hálózati meghajtó és az asztalra kitett mappa ugyanarra helyre mutat, tehát ugyanaz a kettő 
ezek szerint tévedtem na mindegy, lényeg hogy mostmár tudom hogy hogyan műxik 
köszönöm AE
-
bugizozi
őstag
Sziasztok!
office 2003
szitu: van egy excelem, amihez van 2 excel "hozzácsatolva", ahonnan összegezi az adatokat. ez úgy működik hogy megnyitom az excelt, majd utána a másik kettőt és ilyenkor elkezd dolgozni (cellák újraszámolása).
probléma: van amelyik gépen ez megy, van amelyiken nem
(nem számolja újra a cellákat)
kérdés: mi lehet beállítva azon amin megy, és mi nincs azon amin nem?
Előre is köszönöm a segítséget!
-
bugizozi
őstag
Sziasztok!
Kaptam egy szép nagy táblázatot aminek egyik oszlopában vannak dátumok (2011.08.09), a másikban pedig számok. Olyan kimutatást kellene csinálni amiből hónapokra (január, február...) lebontva látszanak az összegek. Ez még annyira nem is lenne vészes, viszont a dátumok össze-vissza vannak
meg lehet ezt valahogy oldani, vagy csak úgy ha sorba rendezzük a dátumokat?! 
Előre is köszönöm!
-
bugizozi
őstag
válasz
nvyktor
#10844
üzenetére
Szia,
ilyen probléma nálunk is volt. jelenség ugyanez, plusz néztem, hogy amig homokórázik az Excel, addig a Celeron proci 15-20%-ra, a 100Mbit-es hálózat 2-4%-ra volt leterhelve.
Oka: az egyik windows update feltette a Microsoft Office File Validation Add-in-t ami a hálózatról megnyitott Exceleket mindig leellenőrizte, ami egy több megás, több 1000 soros Excelnél nem 2 perc volt..
Megoldás menete: Programok telepítése és törlése -> delete -> örül
Remélem ez nálad is megoldja ezt a problémát
-
-
bugizozi
őstag
Sziasztok!
Adott a következő táblázat:
Amit eddig skerült megcsinálni feltételes formázással:
-ha a vastagság alá írok egy számot ami szerepel a listába, akkor a listában azt a számot lilára színezi
-ha 10 alatti számot írok be, azt a cellát, amiben a 10 szám szerepel lilára színezi
-ha 80 fölötti számot írok be, azt a cellát, amiben a 80 szám szerepel lilára színeziAmit nem sikerült megcsinál, és amiben kérném a segítségeteket:
- ha pl 13 számot írok be akkor a 15 cellát színezze lilára
- ha pl 58 számot írok be akkor a 60 cellát színezze lilára
...Meg lehet ezt valóstani makró nélkül csak simán kattingatással.
nekem nem sikerült Előre is köszönöm a segítő hsz-okat!
-
bugizozi
őstag
Sziasztok!
Excelben az Adatok/Részösszegek funkcióval bíbelődök. Van egy ilyen táblázatom, ebből sikerült ilyet csinálni, tehét építési csoportonként csoportosítani...
na most nekem az kellene, hogy az építési csoporton belül a munkakód oszlopot is csoportosítsa tehát lássam azt hogy egy építési csoporton belül az egyes munkakódokra hány óra van, és ha kell, akkor le tudjam nyitni a munkakódokat, hogy lássam, hogy a munkakódokon belül az egyes emberek hány órát dolgoztak..
itt találtam olyat, hogy "ÚJ VÁZLATSZINT LÉTREHOZÁSA LÉTEZŐ CSOPORTBAN", meg is jelent nálam is a 4. szint, de nem igazán csinál semmit...Valakinek esetleg van valami ötlete, hogy ezt hogy lehet megvalósítani?
Előre is köszönöm! -
bugizozi
őstag
válasz
DopeBob
#10278
üzenetére
Szia,
ez a probléma engem is foglalkoztat
hasonló a szitu: Excelbe szedek át adatot gombnyomásra makróval Accessből, és amikor egyszer lefutott a kód és az Excel nyitva marad, akkor az Access-t - ahogy írtad - csak írásvédettként lehet megnyitni
vannak a kódomban olyan részek, hogyMode=Share Deny Write;
....
Jet OLEDB:Database Locking Mode=0;ezeket próbáltam variálni kevés sikerrel
Valakinek valami ötlet? Ha szükséges bemásolhatom azt a részt a programból ami az Access-re vonatkozik...Előre is köszönöm a segítő hsz-okat!
-
bugizozi
őstag
Sziasztok!
Egy problémám lenne a makró lefutásával 2 különböző gépen.
Az én gépemen, illetve az összes magyar xp/office gépen a cégénél szépen lefut, na de jött a német nagyfőnök az angol xp/német office kombós gépével
Egy Accessből szed át adatot az Excel gombnyomásra, ami a német gépén nem fut le rendesen. Az a sor virít sárgán, ahol az adatbázisfájl helyét adom meg..SourceDataFile = "\\ipcim\blablalba\Közös\Óranyilvántartás\Óranyilvántartás 2010.mdb"
What's the problem?
Az Excelen kell valamit állítani, vagy a Win területi beállításoknál van a hiba? Kipróbáltam, hogy az én gépemet átállítom németre/angolra (területi beállítások, földrajzi hely, billentyűzet, speciális fül) de nekem akkor sem sikított a makró annál a sornál...
A megosztott fájlokat természetesen látja a gép, ha a futtatásba beillesztem az Access file útvonalát, akkor az megnyílik... vagy esetleg a az ő office-a nem szereti hogy az elérési útban magyar ékezetes betűk vannak?Valakinek valami ötlet?
-
bugizozi
őstag
-
-
bugizozi
őstag
válasz
bozsozso
#9806
üzenetére
Helló!
Sub valami()
ucsoB = Cells(Rows.Count, "B").End(xlUp).Row
Sheets("Munka1").Range("B1:B" & ucsoB).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Munka1").Range("G1"), Unique:=True
ucsoG = Cells(Rows.Count, "G").End(xlUp).Row
Sheets("Munka1").Range("G1:G" & ucsoG).Select
Selection.Copy
Sheets("Munka2").Select
Range("B4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Munka1").Select
Sheets("Munka1").Range("G1:G" & ucsoG).ClearContents
Sheets("Munka2").Select
ucsoB2 = Cells(Rows.Count, "B").End(xlUp).Row
Range("B5:B" & ucsoB2).Select
Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
For i = 5 To ucsoB2
Sheets("Munka2").Range("C" & i).Select
ActiveCell.FormulaR1C1 = "=SUMIF(Munka1!R2C2:R" & ucsoB & "C2,RC[-1],Munka1!R2C3:R" & ucsoB & "C3)"
Next i
End SubA kódot lefuttatva a Munka1 lapon lévő adatokból:
Ezt kreálja a Munka2 lapra:
Remélem jól értettem és rendben műxik
-
bugizozi
őstag
válasz
Delila_1
#9724
üzenetére
Az excel így van lementve, a jelszót csak én tudom, és mindenki olvasásra nyitja meg. A lényeg hogy én tudjam hogy ki mikor nyitotta meg, ezért arra gondoltam hogy ReadOnly-ból átváltom ReadWrite-ba, egy lapra kiíratom a nevet és a dátum/időt majd vissza ReadOnlyba.
Közben találtam neten egy példát, amit kicsit módosítottam, ez lehet jo lehet nekem...
ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, WritePassword:="jelszo"
ucso = Cells(Rows.Count, "A").End(xlUp).Row
Cells(ucso + 1, 1) = "=NOW()"
Cells(ucso + 1, 1).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Cells(ucso + 1, 2) = Application.UserName
ActiveWorkbook.Save
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnlyActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, WritePassword:="jelszo" <= ennek nem tudtam a pontos szintaktikáját
de úgy tűnik hogy ez működőképes ui: sry ha pontatlanul fogalmaztam
-
bugizozi
őstag
Sziasztok!
Az lenne a kérdésem hogy olyat lehet csinálni, hogy a user megnyit egy excelt olvasásra, és amikor megnyitja, akkor automatikusan lefut egy makró, ami "átváltja" az excelt ReadOnly-ból ReadWrite-ba, majd vissza ReadOnly-ba?
Miért is: mert így egy külön munkalapra ki tudnám íratni az aktuális dátumot/időt illetve a user nevét amit aztán elrejtek, így látnám (loggolnám) hogy mikor ki használja azt az excelt.
Az már megvan hogy hogy tudok megnyitáskor automatikusan lefuttatni egy makrót, illetve találtam olyan parancsot hogy ChangeFileAccess de nem igazán boldogultam vele
Az excelben amúgy soha senki nem módosít, csak megnyitják olvasásra, futtatják a programot, megnézik milyen értéket kaptak és bezárják mentés nélkül.Előre is köszi és szép hétfőt mindenkinek!
-
bugizozi
őstag
Azt hiszem értem hogy mit mondasz, de nem értem, hogy miért nem működik nálad...
Egy üres excelben átneveztem a Munka2 lapot "Első vállalat" -ra,idézőjelek nélkül majd a Munka1 lapra váltottam.
A kódom:nev = "Első vállalat"
Sheets(nev).Selectfuttatom és simán átvált az "Első vállalat" -ra...
-
-
#9502
bugizozi
őstag
Fire/SOUL/CD
#9501
bugizozi
őstag
válasz
Fire/SOUL/CD
#9501
üzenetére
óóóó, hálám üldözni fog
-
bugizozi
őstag
Hali!
Lehet hogy láma kérdés, de a makró kódban lehet úgy kommentelni, hogy nem csak egy sort a ' karakterrel, hanem mint pl az egyik programozási nyelvben, hogy az egyik sor elejére írok egy /* -t aztán utána az 5. sor végére írok egy */ -t aztán az az öt sor ki van kommentezve?!
-
bugizozi
őstag
ezt asszem értem, hogy mit akarsz, a végét én is valahogy így terveztem...csak az "összegző mhelykódot" ami a második képen van a mhely kód alatt oszlop (2 3 5 6 B), azt hogy hozom létre?
mert ugye vagy van ismétlődő elem, vagy nincs, ez változó, és nekem minden elem kell és csak egyszer..ui: amúgy 7 szumha, mert hétfő-vasárnap
-
bugizozi
őstag
Sziasztok!
Szeretnék kérni tőletek egy kis segítséget / tanácsot!
Van egy excel amiben vannak a hét napjai oszlopokban, és minden oszlop alatt van összeítő.
A képen két nap összesítője van (minden nap alatt van egy mhely kódja és egy munkaszám).
A feladat az lenne, hogy ezeket összeítsem..
itt pl az előző képen a két mhely kódja oszlopot összesítettem kézzel...na ezt kellene, hogy mind a hét napra megcsinlája, és kattintásra..
kérdés: hogyan?Elsőre nem tűnt vészesnek, de akárhogy gondolkodom rajta, nem jut eszembe egyszerű megoldás
Optimálisnak az tűnt, hogy kimásolgatom egy oszlopba a kis oszlopokat egymás alá a napok alól, majd annak az oszlopnak az egyedi elemeit szűröm egy adott helyre, majd az elemek mellé valahogy szumha és fkeres fv-ekkel odamásolom az összesített értéket.. de ez nem tűnik valami szép megoldásnak, lehet van valami egyszerűbb... ehhez kérék egy kis segítséget... Köszi!
-
bugizozi
őstag
Hello! Én a következő kis makróval oldanám meg...
ucso = Sheets("Munka1").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Munka2").Range("A1") = Sheets("Munka1").Range("B" & ucso)A Munka1 munkalapon lévő táblázat A oszlopának megvizsgálja az utolsó sorát (program első sora), majd a Munka2 munkalap A1 mezőjébe írja a B oszlop utolsó sorában lévő értéket, ami jelen esetben 5 (program második sora).
Remélem ez alapján el tudsz indulni!
ui: lehet makró nélkül is meg lehet oldani, de nekem ez juttott hirtelen eszembe
-
#9385
bugizozi
őstag
Fire/SOUL/CD
#9384
bugizozi
őstag
válasz
Fire/SOUL/CD
#9384
üzenetére
beszúrtam egy SZUM fv-t, ott nincs ott az elérési út, gondolom erre gondoltál
de valami ilyesmi a problémám a másiknál is, amikor #ÉRTÉK van...beszúrom a képletet, szépen kiadja a tényleges értékeket, nincs elérési útvonal, elmentem, bezárom, megnyitom, frissítem, és a tényleges értékek helyett #ÉRTÉK van, plusz odateszi az elérési utvonalat! :S de amúgy a csatolásoknál meg az rendben van...
másik probléma, másik excel file, megnyitom, frissítés..mindenhol #HIV! :S belekattintok az egyik #HIV! cellába, nem módosítok semmit, ctrl-shift-enter, és akkor eltűnik a #HIV! és kiadja szépen az értéket, amit várok
-
#9383
bugizozi
őstag
Fire/SOUL/CD
#9382
bugizozi
őstag
válasz
Fire/SOUL/CD
#9382
üzenetére
ööö...az esetleg gáz az excelnek, hogy ahol keresi, ott nem a konkrét excel van, hanem egy hivatkozás, és a konkrét excel egy másik helyen? mert ha nem, akkor jónak kellene lenni a képletnek, mert ahol keresi ott megvan, de csak egy link arra a helyre ahol a tényleges excel van. Linux - Samba megosztás van a szerveren, és a Debian-on hoztunk létre Soft linket..
szerk: odamásoltam a tényleges forrás excelt ahol a képletben keresi, de így sem tetszik neki, #HIV! ír ki...
szerk2: de amúgy meg ha belekattintok a tömb képletbe és ctrl+shift+enter, akkor beírja az értéket :-/ szal akkor látja a forrást, viszont amikor megnyitom az excel és frissítésre megyek, akkor meg #HIV!
-
#9381
bugizozi
őstag
Fire/SOUL/CD
#9380
bugizozi
őstag
válasz
Fire/SOUL/CD
#9380
üzenetére
Teljes elérési utat.
A forrás és a cél excelben lévő munkafüzeteknek más a nevük.
Akkor jött elő ez a #HIV! amikor más helyre kerültek ezek az excelek. A csatolásoknál van valami gebasz, mert az nem akarja az igazat, hiába adom meg neki hogy másik helyen van a forrás excel :S -
bugizozi
őstag
Sziasztok!
Két problémám vetődött fel...
Van egy képletem, ami egy másik excelből hoz át adatokat
=SZUMHA('utvonal\[forras.xls]Munka1'!$D$2:$D$1000;A12;'utvonal\[forras.xls]Munka1'!$Q$2:$Q$1000)
Lényege hogy ha a célexcelben A12 cellájában lévő adat egyenlő a forrás excel D oszlopában lévővel, akkor a forrás excel Q oszlopában lévő adatokat összeadja...
amikor meg van nyitva mind2 excel, akkor műxik a képlet, viszont amikor bezárom a forrás excelt, akkor #ÉRTÉK jelenik meg :SA másik is ehhez hasonló, ilyesmi képletet használok, mint ennél a hsz-omnál, eddig működött is ez a tömbképlet, viszont valamit állítottak rajta és nem jó, mert #HIV! van :S ha megnyitom a forrás excelt akkor sem jo
Valami ötlet?
Köszi! -
-
bugizozi
őstag
Hali
egy gyors - valószínőleg láma - kérdés...
láttam már hogy volt ez a topicban de vmit nagyon elbénázhetok...
egy adott halmazból szeretném kilistázni a rekordokat, de mindegyiket csak 1x, nem akarom hogy ismétlődjenek...
így próbálom de mégis az összes értéket visszadja...(nekem csak az kellene hogy a,b de az eredmény a,a,b) ha a szűrőtartományhoz nem írok semmit, akkor is ez a szitu
What's the problem? :Sköszi
ui: Office 2002
-
bugizozi
őstag
válasz
DopeBob
#9231
üzenetére
hja mostmár értem hogy mi a problémád
sajnis eddig én nem használtam ilyet, ehhez nem értek bár lényegesen egyszerűb lenne kiköszöbölni vhogy ezt a hibát, mint amit én ajálottam makrós dolgot
esetleg próbáltad azt amit Delila_1 írt? sry lehet hogy próbáltad, csak azért kérdezem, mert nem írtad ide a fórumba -
bugizozi
őstag
válasz
DopeBob
#9229
üzenetére
Én ilyet csináltam meloban...a tiéd szvsz annyiban különbözne hogy konkrét nevet kellene megadni meg pár dolgot kivenni és akkor láható hogy pl adott hónapban mennyit dolgozott az illető...(az orak oszlopban a végén automatice összeadja mindig az órákat)
Amúgy lehet hogy ezt a dátumos problémádat is meg lehetne valahogy oldani és az egyszerűbb lenne, de arra sajna nem tudok megoldást -
bugizozi
őstag
válasz
DopeBob
#9227
üzenetére
Szóval, az adatforrás egy ACCESS adatbázis, a lényeges részek most: dátum, név, ledolgozott óra.
Excellel szerettem volna egy egyszerű kis kimutatást, adott hónapban az emberkéknek hány ledolgozott órájuk van.Amikor az Excel külső adatot importál accessből, akkor az Adatimportálásnál van egy olyan gomb, hogy "Lekérdezés szerkesztése..." és ott te pl így szerkeszthetnéd a lekérdezést és megkapdnád az adott hónapra vonatkozó adatokat
(office 2002 de biztos van ilyen lehetőség az újban is)Esetleg ha nagyon perverz vagy akkor ezt csinálhatnád makróban, és akkor megadsz 2 cellában 2 dátumot és egy gomb lenyomásával megkapdnád az adott időszakra vonatkozóan ki mennyit dolgozott
![;]](//cdn.rios.hu/dl/s/v1.gif)
ha érdekel segíthetek bennek, mert jelenleg ilyeneket csinálok a munkámban -
#9211
bugizozi
őstag
Mesike8114
#9210
bugizozi
őstag
válasz
Mesike8114
#9210
üzenetére
-
bugizozi
őstag
válasz
Pityke78
#9149
üzenetére
Amikor csinálsz egy szűrést, akkor alul az excel írja hogy Cellák újraszámolása x % ?
Az a 10.000 sor amit írtál szimplán kézzel beírt adatok, vagy vannak olyan olyanok benne amiket másik excelből szed?
Nekem ilyen lassulás akkor tapasztalható, amikor meg van nyitva 2 excel, egy amiben vannak nyers adatok és egy másik amibe számolja azokat, és ha leszűröm pl egy adott dátumra a nyers adatos excelt, akkor előjön ez a Cellák újraszámolása. Ha csak a nyers adatos excel van megnyitva egyedül és úgy szűrök akkor mint a villám, pedig nekem se 100 sor adat van -
bugizozi
őstag
válasz
MrSealRD
#9151
üzenetére
Szia!
Ilyen velem is előfordult már - wordben - ha pontosan beírod google-be a hibaüzit sajnos már nem emléxek rá
akkor a microsoft oldalán van vmi kis file amit ha lefuttatsz és restart akkor megoldódik a probléma..
Vagy ha beírod ide a szöveget szóról szóra meg tudom neked keresniui: alapértelmezett böngésző az ie?
-
bugizozi
őstag
Sziasztok!
Megint a segítségeteket szeretném kérni...
Kaptam két excel munkafüzetet amiben vannak a költségek. Az egyikben tételesen minden megrendeléshez mikor mennyi költség volt, a másikban pedig hogy egy megrendeléshez mennyi az össz költség.
Megpróbálom kiszedni csak a lényeget, leegyszerűsítve csináltam egy kis másolatot hogy tudjam szemléltetni.
Tehát itt van hogy melyik megbízásra (Munkaszám) mikor (Dátum) pontosan mire (Milyen) mennyit (Ár) költöttünk.
A másik excelben pedig az van, hogy az egyes munkaszámoknál mennyi volt az össz költség az egyes típusokra. (pl abc munkaszámra mennyi fuvarköltség volt összesen)
Megkaptam ezt a két excelt és az összesítettnél a második képen a C1 cellában, ott a következő képlet van{=SZUM(HA((A2='[koltseg2010.xls]Munka1'!$F$2:$F$8000)*
($C$1='[koltseg2010.xls]Munka1'!$P$2:$P$8000);
'[koltseg2010.xls]Munka1'!$L$2:$L$8000))}tehát megnézi hogy másik excelben (koltseg2010) az F oszlopában az A2-nek megfelelő munkaszámú és a C1-nek megfelelő típusú költség van, akkor az L oszlopban lévő árakat összeadja. Tehát a C1-ben nekem 3000-ret kell látni, mert az abc munkaszámhoz 2 anyagkoltség volt 2000+1000.
Ez műxik, valaki megcsinálta egy éve, nekem most ezt kellene frissíteni... annyi lenne a modositas hogy a koltseg2010.xls helyett koltseg2011.xls legyen... azt hittem kis naivan hogyha átírom a 2010-et 2011-re akkor műxik, de nem.. -.-' ha bármelyik képletbe javítok az eredmény 0 lesz -.-' (a második képen lévő eredményeket kézzel írtam be) emellett ami szúrja a szemem hogy miért van kapcsoszárójelben a képlet, azt hogyan csinálhatták?
persze ha belekattintok akkor eltűnik a kapcsos zárójel, ha entert nyomok végleg és az eredmény 0 lesz, ha esc akkor megmarad.
Ha egy működő képletet átmásolok egy üres excelbe akkor sem működik, az eremény nulla. Már egy ideje gondolkozok rajta, hogy ez hogy működhet, de nem igazán jöttem rá a titok nyitjára... egyik az hogy azt a képletet hogy varázsolták oda hogy így műxik illetve hogy miért is van az kapcsos zárójelben? biztos vmi apróság amit nem veszek észer 
vagy lehet mélyebben vannak a probléma gyökerei és bonyolultabb ez az egész mint ahogy én értelmezem Vagy javasolnom kéne hogy az első képen levő adatokat ne excelbe hanem adatbázisba tegyék és onnan jobban lehetne az ilyen számításokat végezni...?
mert végülis akkor a C1 cellába makróba egy sql lekérdezés 'select sum(tabla.ar) as össz from tabla where tabla.munkaszam=abc and tabla.milyen=fuvar' csak az meg mondjuk nem olyan dinamikus mert ha új munkaszám jön a táblázatba...meg szvsz rettentő lassú is lenne mert sok a munkaszám...Remélem érthető voltam, próbáltam érthetően leírni a problémát
Előre is köszönöm a segíség(ek)et! -
-
bugizozi
őstag
Tegnap rákérdeztem a szitura a volt prog tanáromnál, ő se tudta hogy az elseif miért nem működik, de rávilágított egy "normálisabb" megoldásra...
Ha már úgyis számokkal akarok tovább dolgozni és ezekkel a számokkal akkor ne a ComboBox.Value-t használjam hanem a ComboBox.ListIndex-et. Ezzel lehet visszakapni a ComboBox elemeinek sorszámát. Igaz kis finomítás kell, mert a ListIndex 0-tól kezdi a számozást szóval ComboBox.ListIndex + 1 és ennek segítségével már vissza is kaptam a kívánt értékeket 1-12-ig!
További szép napot! -
bugizozi
őstag
válasz
bugizozi
#8958
üzenetére
Szeretem amikor 2 órát gondolkozok valamin, aztán rákényszerülök hogy írjak ide hogy megtudjam hogy miért nem jo amit csinálok, aztán miután megírtam a hsz-t utána 5 percre rá rájöttem hogy hogy tudnám működésre bírni
Végülis lecseréltem erreIf ComboBox2.Value = "Január" Then honap = "1"
If ComboBox2.Value = "Február" Then honap = "2"
If ComboBox2.Value = "Március" Then honap = "3"
If ComboBox2.Value = "Április" Then honap = "4"
If ComboBox2.Value = "Május" Then honap = "5"
If ComboBox2.Value = "Június" Then honap = "6"
If ComboBox2.Value = "Július" Then honap = "7"
If ComboBox2.Value = "Augusztus" Then honap = "8"
If ComboBox2.Value = "Szeptember" Then honap = "9"
If ComboBox2.Value = "Október" Then honap = "10"
If ComboBox2.Value = "November" Then honap = "11"
If ComboBox2.Value = "December" Then honap = "12"Ennek ellenére akkor sem értem hogy az előző hsz-omban lévő kód miért nem megy
vagy az úgy lehetetlen lenne? -
bugizozi
őstag
Helló!
Elakadtam a munkámban, és nem értem miért..
If ComboBox2.Value = "Január" Then honap = "1"
ElseIf ComboBox2.Value = "Február" Then honap = "2"
ElseIf ComboBox2.Value = "Március" Then honap = "3"
ElseIf ComboBox2.Value = "Április" Then honap = "4"
ElseIf ComboBox2.Value = "Május" Then honap = "5"
ElseIf ComboBox2.Value = "Június" Then honap = "6"
ElseIf ComboBox2.Value = "Július" Then honap = "7"
ElseIf ComboBox2.Value = "Augusztus" Then honap = "8"
ElseIf ComboBox2.Value = "Szeptember" Then honap = "9"
ElseIf ComboBox2.Value = "Október" Then honap = "10"
ElseIf ComboBox2.Value = "November" Then honap = "11"
Else: honap = "12"
End IfErre a kódra hibát dob mégpedig azt hogy "Complie error: Else without if" és kijelöli azt a részt hogy "ElseIf ComboBox2.Value = "Február" Then"
Ha csak azt írom hogy If ComboBox2.Value = "Január" Then honap = "1" akkor szépen visszaadja az értéket, de ha az egészet akkor hibás
Tuti hogy valami láma dolog az egész amit elszúrok, de nem látom a hibát
ui: ami itt van példa az minden gond nélkül lefut
-
bugizozi
őstag
válasz
bugizozi
#8931
üzenetére
kicsit kutakodtam és arra jutottam, hogy a kapcsolódásnál a kódban a Mode=Share Deny Write; résszel lehet probléma. Próbálgattam máshogy kapcsolódni, de arra meg mindig hibát dobott :S
Mode='Read';
Mode='Write';
Mode='ReadWrite';
Mode='Share Deny None';
Mode='Share Deny Read';
Mode='Share Deny Write';
Mode='Share Exclusive';Csak a Share Deny Write-vel sikerült. Az Access adatbázisban kellene valami tulajdonságot átállítani? Néztem azt is de nem igazán találtam ilyesmit
Amúgy 2003 Office.
Így esetleg valakinek valami ötlet? -
bugizozi
őstag
válasz
Delila_1
#8925
üzenetére
Köszönöm!
Még olyan kérdés merült fel bennem, hogy excel makróból lehet táblakészítő lekérdezést futtatni egy access file-ra?
Szitu leegyszerűsítve:
Select * from epcsop <= tokeletesen muxik
Select * INTO ujtabla from epcsop <= hiba :S (természetesen access-ben lefut)
A 8920as hsz-ban módosítottam az sql-es részt
Ha úgy próbáltam hogy Adatok/külső adatok importálása és ott módosítottam erre a lekérdezésre akkor kiírta hogy
"Nem lehet frissíteni. Az adatbázis vagy az objektum csak olvasható"
A C:\ gyökérben van az .mdb file, nem írásvédett.
Rákerestem googlen (database or object is read only) de nem igazán találtam megoldást és nem értem mi lehet a probléma
Ha valakinek van valami ötlete pls ossza meg velem -
bugizozi
őstag
tegyük fel hogy az A oszlopban vannak az adatok, A1-től kezdődik és te mondjuk azt akarod megnézni hogy melyik cellában van 4-es érték.
A B1 cellába írod a következőt:=HA(A1=4;1;0)
magyarul ha A1 cellában 4-es van akkor a B1 cellába 1-est ír, ha nem, akkor 0-t.
azután beleállsz a B1 cellába, megfogod a jobb alsó sarkát és lehúzod, amíg tartanak az adatok az A oszlopban, így megjelennek a B oszlopban a 0-k ha nem 4-es van a bal oldalon (A oszlopban), 1-ek ha 4-es.
____
update: sry, félreértetem m.zmrzlina megoldása a helyes -
bugizozi
őstag
Sziasztok!
Megint egy kérdéssel fordulnék hozzátok!
A következő kóddal kapcsolódok egy accesshez és futtattok lekérdezést excelben.With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & CurDir & ";Mode=Share Deny Write;Extended Propertie" _
, _
"s="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password=*****;Jet OLEDB:Engine Type=5;Jet O" _
, _
"LEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Pas" _
, _
"sword="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Je" _
, "t OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"), _
[B]Destination:=Range("A2")[/B])
.CommandType = xlCmdSql
[B].CommandText = Array( _
"SELECT Munkaszámok.Munkaszam" & Chr(10) & "FROM Munkaszámok" & Chr(10) & "ORDER BY Munkaszámok.Munkaszam" _
)[/B]
.Name = "ora_2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = " & CurDir & "
.Refresh BackgroundQuery:=False
End WithLényeg: Meg van adva hogy hova tegye az excelben a lekérdezett adatokat (kiemelt részek).
Az lenne a kérdésem hogy át lehet e módosítani ezt a kódot úgy, hogy még egy lekérdezést futtassak amit egy másik mezőtől kezdve tesz az excelbe. Eddig úgy csináltam, hogy beletettem a programba mégegy komplett ilyen részt, amiben módosítottam a kiemelt részeket, de úgy gondolom ha nem 2x csatlakozna az adatbázishoz, hanem egy ilyen kódban meg tudnám oldani a két lekérdezést akkor gyorsabban lefutna a progi. vagy rosszul gondolom meg maga a programkód is kevesebb lenne.
Szóval van erre lehetőség, vagy csak úgy megoldható, ahogy most csinálom, még többször teszek a kódba ilyen részeket?!
Előre is köszönöm a választ!ui: google-ban keresgettem, de nem igazán találtam ilyen megoldást
-
bugizozi
őstag
válasz
Delila_1
#8868
üzenetére
Köszönöm szépen Delila_1 és perfag a válaszokat!
Jónak tűnik amit írtatok, de az igazat megvallva a 8879-8880 hsz nekem hasznosabbnak bizonyult
Annak segítségével meg tudtam határozni az utolsó nemüres sort, amit egy változóba tettem és a ListFillRange segítségével feltöltöttem a ComboBox-ot. Nem tudom mennyire érthető amit írtam, ezért a kódom is leíromDim ucso As Long
ucso = Worksheets("Munka2").Range("A" & Rows.Count).End(xlUp).Row
ComboBox1.ListFillRange = "Munka2!A2:A" & ucso & ""Köszönöm mégegyszer a gyors reakciókat!
-
bugizozi
őstag
Helló!
1) Köszönöm szépen a segítséget perfag-nak!
2) szeretnék még egy kis segítséget kérni...
Van egy ComboBox-om amit egy adott tartományban lévő adatokkal szeretnék feltölteni. Sajnos az a tartomány változik és erre várnék ötleteket...
2.1) Tudom hogy a tartomány sosem több 100nál, igy pl megadom hogy A1:A100, ezzel csak az a probléma hogyha mondjuk 60 db adat van akkor utána még 40 üres sort betesz ami nem jo
lehet valamit bűvészkedni ezzel a kóddal, hogy az üres cellákat ne vegye figyelembe?ComboBox1.ListFillRange = "Munka2!A1:A100"
2.2) Van valami olyan eljárás amivel csak addig vizsgálja a tartományt amíg üres cellát talál és utána abbahagyja a ComboBox feltöltését?
Remélem érthető voltam
Előre is köszi a segítőnek!Zoli
-
bugizozi
őstag
Sziasztok!
Olvasgattam itt a fórumot, de nem igazán találtam olyan hsz-t ami az én gondommal foglalkozna.
Szitu: Van egy MS Access adatbázis, abban az egyik táblában található értékek változnak. Ebből a táblából van készítve egy lekérdezés, aminek az eredményét egy excelbe kellene mindig kimásolni.
Ezt az kimásolgatást kellene kiküszöbölni. (nem az én igényem, csak nekem mondták hogy csináljam meg)
Neten találtam néhány makrót, ami ilyesmit csinál hogy egy MS access adatbázisból viszi át a tábla vagy a lekérdezés adatait, de még nem igazán találtam működőt.
Van esetleg valakinek ehhez használható kódja?
Előre is köszi a segítőnek!
Vagy én nem találom? 
mivel én úgy gondolkodtam hogy a felcsatolt hálózati meghajtó és az asztalra kitett mappa ugyanarra helyre mutat, tehát ugyanaz a kettő 
ezek szerint tévedtem 
azért köszi 
magamról rá nem jöttem volna 
![;]](http://cdn.rios.hu/dl/s/v1.gif)
ha érdekel segíthetek bennek, mert jelenleg ilyeneket csinálok a munkámban 
Új hozzászólás Aktív témák
Fferi50- Retro teló rajongók OFF topicja
- Autós topik
- Mibe tegyem a megtakarításaimat?
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- A Razer új klaviatúra-zászlóshajóját meglátva biztos félrenyeled a teát
- Eredeti játékok OFF topik
- Bundle topik
- Európába tart a Xiaomi Watch 5, eSIM-es verzió is jöhet
- Projektor topic
- MWC 2026: Kezünkben a minden tekintetben európai okostelefon
- További aktív témák...
- Eredeti Microsoft Windows 10 / 11 Pro OEM licenc Akciós áron! 64/32 bit Azonnali kézbesítéssel
- 1TB, 512GB, 256GB m-SATA SSD-k
- 156 - Lenovo LOQ (15IRH8) - Intel Core i5-13505H, RTX 4060 (ELKELT)
- Xiaomi 15T / 12/256GB / Kártyafüggetlen / 12Hó Garancia / Media Markt Gari 2028.02.02.-ig
- G.Skill Aegis 16GB DDR4 3200MHz VADIÚJ, GARANCIÁS!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest