-
GAMEPOD.hu
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
-
rtom
senior tag
Hogyan oldanátok meg, hogy adott makró megnézze, mikor volt az excel tábla utoljára mentve, és ha azóta eltelt mondjuk 1 óra, akkor mentsen.
Makróval vitetek be adatokat egy táblába, de ha nem mentenek (és már miért is mentetnének? ), akkor egy idő után bedugul a "rendszer", mentésre azt mondja, hogy "Dokumentum nem került mentésre" vagy vmi ilyesmi.
A FileDateTime(ActiveWorkbook.FullName) és Time értékekkel próbálkoztam, de eddig nem jött össze valahogy, a kettő különbségét nem értelmezi
Előre is kösz
-
rtom
senior tag
válasz Delila_1 #4646 üzenetére
Az Eszközök/Bővítménykezelő ennyit mutat, nekem egyik sem hasonlít automatikus mentésre:
Közben megnéztem a súgót is, szerinte az Eszközök/Beállítások-> Mentés fülön kell az Automatikus mentés-t engedélyezni, de itt meg csak ezek vannak:
"Az automatikus helyreállítás adatainak mentése ... perc"
"Az automatikus helyreállítás kikapcsolása"
Fehér Mancs: ciklus nincs a makróban és nem is nagyon szeretnék beletenni, mindössze annyit csinál, hogy a kitüntetett cellákban lévő adatokat összeszedi, dátumot a sor végére teszi, beilleszti egy az adatot bevivő személy által nem látható lapra, majd a kiinduló felületen törli a cellák tartalmát.
[ Szerkesztve ]
-
rtom
senior tag
válasz Delila_1 #4653 üzenetére
Kösz, de úgy néz ki, elbarmoltam, az emilből megnyitottam az excel-lel, és azóta csak a temp-ből akarja megnyitni, pedig már betettem a user/appdata/Microsoft/AddIns-ba, ha innen próbálom meg betölteni, akkor meg azt modja, hogy nem lehet a bővítményt a makrókönyvtárba másolni... Ezt elszúrtam , törölhető valahogyan az eredeti link, ami a temp-be mutat?
-
-
rtom
senior tag
válasz Fire/SOUL/CD #4658 üzenetére
A SaveThisWorkBook Sub-odat kicsit nem értem, az Application.OnTime kezdetű sorral újra meghívod önmegát?
Mauzes: jobb klikk a cellára, Cella formázás, Igazítás fül, jobb oldalon tudod állítani a szöveg irányát.
[ Szerkesztve ]
-
rtom
senior tag
Adott oszlopban van egy feltételes képletem, konkrétan:
=HA(A1="";"";HA(C2="";0;ABS(C2-D2)))A gondom az, hogy a 60-nél nagyobb értékeknél szeretném feltételes formázással a hátteret pirosra színezni, erre az üres stringet tartalmó cellákat is bepirosítja, amire viszont nincs szükség!
Ötlet?
-
rtom
senior tag
Adott oszlopban van egy feltételes képletem, konkrétan:
=HA(A1="";"";HA(C2="";0;ABS(C2-D2)))A gondom az, hogy a 60-nél nagyobb értékeknél szeretném feltételes formázással a hátteret pirosra színezni, erre az üres stringet tartalmó cellákat is bepirosítja, amire viszont nincs szükség!
Ötlet?
-
rtom
senior tag
Bocsi, lefagyott a böngészőm, vagy a szerver is szórakozhatott mert 2 percig nem tudtam elérni a PH!-t, véletlenül 2x nyomtam az OK-ra. Szóval a feltételes formázást bekorlátozva egy olyan számra, ami már biztosan nem fordulhat elő (azaz két érték közöttieket színezve) már működik a dolog.
-
rtom
senior tag
-
rtom
senior tag
Excelből a hiperhivatkozás függvény segítségével linkelek egy a fájlszerveren lévő másik xls-re, de ha rákattintok, akkor azt a hibaüzenetet dobja, hogy "Ezen a helyen a cím nem érvényes. Ellenőrizze a címet és próbálja újra".
Korábban ugyanezt a hibát akkor kaptam, ha relatív linket adtam meg, és a fájl áthelyeztem, de a hiperhivatkozás fgv-nek abszolút cím van megadva, így nem nagyon értem, mi a baja.
-
rtom
senior tag
Nos, érdekes módon, új füzetben gond nélkül megnyílik (ékezetes karakterek ugyan vannak az elérési útban, de attól még működik, nekem csak a szóközökkel van rossz tapasztalatom), így az összes linkemet felülírtam egy üres cellával (így a formázásokat is töröltem), majd újraírtam őket és működnek.
Kösz a tippet
-
rtom
senior tag
Tudom, hogy nem excel-es kérdés, de erre tudna valaki segíteni?
-
rtom
senior tag
válasz Fire/SOUL/CD #7336 üzenetére
A CountIf működik a GoogleDocs-ban is, kösz
-
rtom
senior tag
Hello!
Olyan problémám van, hogy egy .csv fájlból kéne adatokat másolni egy kiértékelésbe, ha én nyitom meg a fájlt duplaklikkel, akkor tagoltan jelenik meg, azonban ha makró-ból a Workbooks.open paranccsal, akkor pontosvesszővel elválasztva, amit persze a kiértékelésem nem jól kezel. A vezérlőpulton belenéztem, a listaválasztónak a pontosvessző van beállítva, szal nem értem, mi lehet a gond?
-
rtom
senior tag
Hello!
Egy makrómban az alábbi feltétel akkor is igazzá válik, és így végrehajtódik, ha 0-t írok be a C2; M2 vagy O4 cellákba:
If Range("C2") = Empty Or Range("M2") = Empty Or Range("O4") = Empty Then
Megoldható, hogy a 0 értéket ne üresnek vegye?
-
rtom
senior tag
Szevasztok!
2010-es excelhez kéne segítség, egy táblázatból készítek diagramot, aminek első oszlopa kézzel írt a többi számított, ahol az első oszlopban nincs érték, ott a "" értéket kapjá a cellák egy HA függvény segítségével. Ha a diagramom x tengelyét automatikusra állítom, és a kézzel bevitt adatokat tartalmazó diagram adatsort kibővítem mondjuk 500 sorra, akkor csak addig rajzolódik ki a diagram, amíg értékek vannak, azonban a számított értékeket tartalmazó adatsort kapásból kitolja a tengelyt 500-ig, az ábrázolt érték pedig 0. Hogyan lehetne megoldani, hogy a számított értékeket tartalmazó diagram is a kézi bevitelhez hasonlóan rajzolódjon ki?
-
rtom
senior tag
válasz Excelbarat #16221 üzenetére
Köszi a tippet, sajna nem sokat segít, mivel a hiányzik() fv-el nem tud számolni, így az oszlop tartalmára lehúzott átlag fv. hibát ad.
-
rtom
senior tag
válasz Delila_1 #16238 üzenetére
Nem nagyon jön össze nekem, az adatok kijelölése opciónál teljesen más ablakot dob fel, mint a táblázatodban mutatsz (lehet, mert xlsm-ként mentettem?). Feltettem ide, ránéznétek? A cél annyi, hogy max. 500 sorig bármennyi adatot feldolgozzon a táblázat, és a diagrammok is az adatmennyiséghez igazodjanak.
-
rtom
senior tag
-
rtom
senior tag
Szevasztok!
Makró gondom van, ennek a kódnak a lefuttatásánál összeomlik az excel:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("L2") = "valami" Then
Range("L2:M2").Select
Selection.Copy
Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L2:M2").Select
Application.CutCopyMode = False
Selection.ClearContents
End If
End SubA makró az oldalhoz van rendelve, automatikusan fut le.
-
rtom
senior tag
A Selection Change eseményt azért találtam jónak, mert egy vonalkódolvasóval viszek be adatokat egy kijelölt mezőbe, aminek hatására a kurzor a következő mezőre ugrik, így nem fut le a makró, csak ha kurzormogató esemény van.
A Cut metódusos sorod tetszik, de sajnos viszi a formátumot is magával, azt hogyan lehetne elkerülni?
Ha már postolok, egy problémám: szumha függvénnyel olvasatok be adatokat egy külső excel táblából, az elérési útvonal persze korrekten meg van adva, ha az adatforrás meg van nyitva, akkor korrekten működik, de mihelyst bezárom, mindehova az #ÉRTÉK hibát dobja, ennek mi lehet az oka?
-
rtom
senior tag
Újabb észrevételem, aminek nem tudom okát: külső excel táblából fkeres-sel összeszedett adat megjelenik, míg ugyanezen adatból a szumha hibát ad ...
Próbáltam úgy kikerülni a problémát, hogy makróból megnyitom és akkor updatelem a linket, de így sem megy
A kódom:
Open "DataFile_elérési_útvonala_és_neve" For Random Access Read As #1
Windows("Kimutatásfile.xls").Activate
ActiveWorkbook.UpdateLink Name:="\DataFile_elérési_útvonala_és_neve", _
Type:=xlExcelLinks
Sheets("Munka1").Select
Range("T69:X72").Select
Selection.Copy
Range("B69").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Close #1[ Szerkesztve ]
-
rtom
senior tag
A szorzatösszeg működik, köszönöm
Másik kérdésem: egy mások által már megnyitott, a fileszerveren lévő táblából akarok pivot-ot frissíteni, de a makro hibát dob, gondolom amiatt, hogy másik felhasználónál van nyitva. Próbálkoztam így:
Open "\file_elérési_út_és_filenév" For Random Access Read As #1
ActiveSheet.PivotTables("Pivot1").PivotCache.Refresh
Close #1de sajnos sikertelenül
-
rtom
senior tag
Még1 kérdés: megoldható makro nélkül, hogy ha van 3 kimutatásom, az elsőn beállított szűrési feltételek automatikusan megjelenjenek a másik kettőn is? Hivatkozást nem vette.
-
rtom
senior tag
válasz Excelbarat #16488 üzenetére
Jó lenne, de úgy látom, hogy különböző adatbázisokból táplálkozó kimutatásoknál nem működik, legalábbis nálam a kapcsolatoknál csak a meglévőt dobja fel.
-
rtom
senior tag
Szevasztok,
újabb problémával szembesültem, egy lapvédett oldalon szeretnék pivot-ot használni, a pivot celláit felszabadítottam (Cellaformázás->Védelem->Zárolt pipa kilőve), illetve a lapvédelemnél AllowUsingPivot = True; AllowFiltering = True, mégsem tudom a szűrési feltételeket módosítani védett állapotban. Mit nézek el?
-
rtom
senior tag
Szevasztok,
van egy táblázatom, amiben 4 szám (alkatrész azonosító) bizonyos kombinációjához tartozik egy végtermék szám, ezek az adatok a táblázat egyik fülén rögzítettek.
A másik fülön azt szeretném, ha az egyes alkatrész számok kiválasztását követően a táblázat megadná az "adatbázis" alapján, hogy adott kombináció létezik-e, ekkor megadná a végtermék számot, ha nincs, akkor hibaüzenet. Egy mintatáblázatot lementettem ide: link.
-
rtom
senior tag
Szevasztok!
Egy makróm nem akar működni, de nem értem miért áll meg a debug a Range("B21:B" & usor). Select sornál.
A kód:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim usor As Long
Dim lapnev As String
If Range("A2") <> Empty And Range("A4") = "OK" Then
Range("D2").Select
Selection.Copy
lapnev = Range("F2")
Sheets(lapnev).Select
usor = ThisWorkbook.Sheets(lapnev).Range("B21:B" & Rows.Count).End(xlDown).Row + 1
Range("B21:B" & usor).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("beolvas").Select
Range("A2").Select
Selection.Clear
End If
End SubSzerk.: a kiemelés nem látszik programkódban...
[ Szerkesztve ]
-
rtom
senior tag
Sziasztok,
újfent elakadtam, van egy makrós excel táblám, ami a bevitt adat függvényében választja meg, hogy melyik sheetre kell másolni. Mivel előtte pár dolgot lecsekkolnék, így szükségem lenne egy fkeres-re is, de azt nem tudom, hogy lehet hivatkozni a függvényben egy sheetnévre.
Tehát e helyett
=HA(HIBÁS(FKERES(D2;'Munka3'!B21:B34;1;HAMIS));"OK";"NOK")
lenne szükségem egy olyan megoldásra, ahol a sheet nevét ami jelenleg Munka3 mondjuk a G2 cellából veszi a függvény. Remélem érthető.
[ Szerkesztve ]
-
rtom
senior tag
Még egy kérdés: makróból lehet a nyomtatást úgy paraméterezni, hogy egy bizonyos nevű hálózati nyomtatóra printeljen?
-
rtom
senior tag
-
rtom
senior tag
válasz kovalasz #18939 üzenetére
Nem biztos, hogy segít, de nálam a nyelv/karaktertábla állítgatásával teljesen más karaktersort olvas be a kódolvasó, mivel ezeket az eszközöket billentyűzetként kezelik a PC-k.
Egyébként furcsa élményeim vannak scanner-ekkel, az egyik típusnál beolvasok A1-be, akkor a karaktersort automatikusan másolja B1-be is, illetve gondolom, ha az excel lefelé léptetésre lenne beállítva, akkor az A2-be kerülne. A fele annyiba kerülő, "buta" típussal viszont vígan, gond nélkül dolgoznak. Ugyanez az olvasó ma lepett meg azzal, hogy a lapvédett oldalamon a cellát, amibe beolvastam, zárolta és így a következő beolvasás persze már nem működik
-
rtom
senior tag
Helló,
azt meg lehet oldani, hogy a táblázatom egy adott oszlopába csak jelszóval lehessen beírni? A lap formátuma lapvédelemmel ellátott, attól eltérő védelemre lenne szükség. Pl. olyanra gondolok, hogy a laphoz rendelek egy makrót, ami mondjuk a kurzor G oszlopra mozgatása esetén eggyel balra mozgatja azt, de hogyan lehetne ezt jelszóval feloldani?
-
rtom
senior tag
Szevasztok!
Arra keresek megoldást, hogy egy makrós üzenetemre ne kelljen OK-t nyomni, hanem mondjuk 2 mp után magától tűnjön el (így nem kívánva interakciót a táblázat kezelőjétől, adatfeltöltésnél akarok visszajelzést adni, hogy minden jól ment, de ne kelljen neki a kézi szkennert letenni és enter-t nyomni). Találtam egy MsgBox-os megoldást:
Sub SelfClosingMsgBox()
CreateObject("WScript.Shell").Popup "Hello", _
2, "This closes itself in 2 seconds"
End Subde kíváncsi lennék, van-e ettől vmi egyszerűbb.
-
rtom
senior tag
Szevasztok!
Megint elakadtam egy makróval, egy táblázat beolvas nevű füléről a bevitt (kézi vonalkód szkennerrel beolvasott) adat függvényében egy másik lapra másolok, a makrónak kéne feloldania a lapvédelmet a cél lapon, de mihelyst bekapcsolom a lapvédelmet, elakad a másolásnál, ebből arra következtetek, hogy nem sikerül feoldani a lapvédelmet, de hogy miért, azt nem értem. Lapvédelem nélkül jól működik. A kód:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim usor, usor2, lReply As Long
Dim lapnev As String
If Range("A2") <> Empty And Range("A4") = "OK" Then
Range("D2").Copy
lapnev = Range("F2")
Sheets(lapnev).Select
Sheets(lapnev).Unprotect Password:="xy"
usor = WorksheetFunction.CountA(ActiveSheet.Range("b6:b13"))
usor = usor + 6
usor2 = WorksheetFunction.CountA(ActiveSheet.Range("e6:e13"))
usor2 = usor2 + 6
If usor = 14 Then
If usor2 = 14 Then
lReply = MsgBox("Betelt a lap, nyomtass!", vbOK)
Exit Sub
Else: ThisWorkbook.Sheets(lapnev).Range("E" & usor2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Else: ThisWorkbook.Sheets(lapnev).Range("B" & usor).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Sheets(lapnev).Protect Password:="xy", DrawingObjects:=False, Contents:=False, Scenarios:=False _
, AllowUsingPivotTables:=False, AllowFiltering:=False
Sheets("beolvas").Select
Range("A6").Select
Selection.ClearContents
End If
End Sub
Új hozzászólás Aktív témák
- Forza sorozat (Horizon/Motorsport)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Elektromos rásegítésű kerékpárok
- Kerékpárosok, bringások ide!
- Megérkezett Magyarországra az LG 480 Hz-es OLED monitora
- PlayStation 5
- JavaScript topic
- Mini-ITX
- ASUS routerek
- Kormányok / autós szimulátorok topicja
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen