-
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
-
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!VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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!
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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?VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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?
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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!VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
bugizozi
őstag
válasz DopeBob #8995 üzenetére
Így kell beszúrni ahogy előttem Fire írja.
Még annyit tennék hozzá, hogy az ilyen problémában _nekem_ az segített sokat, amikor bekapcsoltam a makrórögzítőt, összekattingattam a függvényeket, és megnéztem hogy az excel milyen kódot dobott össze!VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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 értelmezemVagy 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![ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
bugizozi
őstag
válasz Delila_1 #9071 üzenetére
wow
köszi a gyors és nagyszerű hsz-t! műxik ez a ctrl+shift+enter-es dolog!
igaz, ha egy üres munkafüzetbe írom be a képletet akkor 0 ez eredmény,de ha módosítom akkor szuperül műxik és nekem ez a lényeg[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
bugizozi
őstag
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?
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
bugizozi
őstag
válasz Mesike8114 #9210 üzenetére
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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 ha érdekel segíthetek bennek, mert jelenleg ilyeneket csinálok a munkámban
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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ástVCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
bugizozi
őstag
válasz Delila_1 #9247 üzenetére
hjaaa
szal akkor én is jol akartam csinálni, meg az excel is jol csinálta, és azért azért lett ott a,a,b mert azt hitte hogy az első "a" a "cím" -.-'
így hogy adtam neki címet így jó lett
az a *sípszó* cím
köszönöm szépenVCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
bugizozi
őstag
Count Rows with Data in a Macro
rowCount = Application.WorksheetFunction.CountA(Range("A1:A9999"))
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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!
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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 :SVCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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!
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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!
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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?!
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
bugizozi
őstag
válasz Fire/SOUL/CD #9501 üzenetére
óóóó, hálám üldözni fog
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
bugizozi
őstag
válasz Geryson #9510 üzenetére
=HA(K3="";0;K3*J3)
esetleg így?
szerk: amúgy ha úgy adsz össze, hogy pl =SZUM(L3:M3) akkor nem #ÉRTÉK -et ad vissza hanem 0-t. gondolom te úgy adtál össze, hogy =L3+M3, ilyenkor ha egyik cellában nincs semmi, akkor #ÉRTÉK az eredmény
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
bugizozi
őstag
egyszerű cella formázással, pl. [=0]"";Normál
Ettől a cellában nulla van, csak nem látszik. A többi érték meg annak látszik ami.tök jó ez a cellaformázás. eddig nem is tudtam hogy van ilyen, és most nagy hasznomra vált
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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...
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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!
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
bugizozi
őstag
válasz Delila_1 #9815 üzenetére
Örülök hogy akkor mégis jót csináltam esetleg az lehet a gáz hogy én 2003 excelben csináltam a kép alapján a tiéd pedig újabb
Igen, néztem a kódodban hogy neked nincs ciklusban a képlet, valamivel érthetőbben néz így ki mint az enyém
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
bugizozi
őstag
Azt a sablont nem lehet megcsinálni worben és akkor készítesz egy körlevelet, aminek az elemei a Munka2 táblán lévő adatok? Mondjuk akkor is nézned kéne hogy melyik ChackBox-ban pipa és melyikben nincs, de egyfajta gyorsabb megoldás ez is lehet...vagy rosszul gondolom?
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
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?
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
Új hozzászólás Aktív témák
- Konzolokra is megjelenik a Fera: The Sundered Tribe
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Le Mans Ultimate
- Spórolós topik
- OLED TV topic
- iPhone topik
- Fotók, videók mobillal
- Napelem
- Direct One (műholdas és online TV)
- Gothic Remake - Ilyen lesz a gyűjtői kiadás
- További aktív témák...