Telefonszámunk: 1-472-0679

Időbélyeg és és utána cellavédelem

Kezdőlap Fórumok Excel témák Időbélyeg és és utána cellavédelem

22 bejegyzés megtekintése - 1-22 / 22
  • Szerző
    Bejegyzés
  • #9662
    NIN
    Felhasználó

    Sziasztok!

    Abban szeretném segítségetek kérni, hogy miként tudom megolani az alábbi feladatot

    Pl.: “A1” cellába beviszek egy adatot, akkor a “B1” cellába kiírja az év-hónap-nap óra:perc -et.

    Mindezt úgy, hogy ha “A1” cellát újra kitöltöm, a “b1” cellában az idő nem változik – olyan időbélyeg szerűen.

    Az a variáció is megfelelne, ha “A1” kitoltése után “B1” beíródik és uána “A1” és “B1” írásvédetté válik – csak jelszóval lehet felülírni.

    Előre is köszönöm a segítséget!

    Szép estét: Norbi

    • A témakör módosításra került: 3 months, 3 weeks telt el-NIN.
    #9665
    horvimi
    Adminisztrátor

    Szia!

    Ezt munkalap eseménykezeléssel lehet megcsinálni, azaz makrós megoldás van csak.
    A munkalap CHANGE eseményének kezelésekor megkapod, hogy melyik cellát változtatták.
    Ha ez az A1, és a B1 még üres, akkor a B1-be beírja az aktuális időt, különben nem történik semmi.

    Ez nem védi a cellákat, tehát a B1 bárki által módosítható vagy törölhető lesz.

    Csak A1 és B1 írásvédetté tétele Excel szinten elég macerás, mert munkalaphoz lehet védelmet rendelni, ami az aktuálisan zárolt cellákat védi. De remélem ezt ismered.

    Ugyanezzel az eseménykezelővel viszont megoldható, hogy ha a B1-et változtatják, vagy törlik, akkor írja vissza az eredeti értékét, majd kérjen esetleg egy jelszót, ha mégis módosítani akarná.

    Csak érzékeltetni szerettem volna a lehetőségeket.
    Az utánanézéshez és a megvalósításhoz a te idődet kell használnod, hacsak nem “delila” megcsinálja neked, nekem most nincs több időm. Az eddigi kérdéseid alapján azt látom, hogy a makró téma nem ismeretlen a számodra.

    Imre

    #9666
    NIN
    Felhasználó

    Szia! Köszönöm szépen a segítséget!

    Sajnos meg kell várnom, hogy “delila” vagy valaki más segítsen, mert tőlem a makró nagyon távol van. – sajnos

    Olyan kezdő szinten haladó vagyok 🙂

    Várakozok és közben keresgélet a neten megoldásokat.

    Norbi

    #9670
    Boxer
    Felhasználó

    Pár éve volt egy ilyen jellegű kérés, és akkor válaszoltam is rá. A mai napig is használom, és jól működik. Igaz, a cellákat nem védi le… 😀

    Ez esetleg megállja a helyét makró nélkül? Persze előtte be kell pipálni a Beállítások-Képletek-Számítási beállítások-Közelítés engedélyezése lehetőséget és a maximális lépésszámot minimumra.
    Nálam ha a C2-be bármilyen változó bekerül, akkor az A2-ben megjelenik a dátum/idő (beállított formátumban), és csak akkor tűnik el, ha törlöm a C2-ből az adatot. Ha a C2-ben nem törlődik hanem csak változik az adat, akkor az A2 megőrzi az elsőre megjelenő dátum értéket.

    Azt viszont nem tudom, hogy a közelítés engedélyezésének megváltoztatása miben, és mennyiben befolyásolja az esetleges többi függvényt…

    =HA(C2<>””;HA(A2=””;MOST();A2);””)

    Norbi

    Ha a Közelítés engedélyezése nincs kipipálva, akkor körkörös hivatkozásra fog hibaüzenetet küldeni.

    • A hozzászólás módosításra került: 3 months, 3 weeks telt el-Boxer.
    #9673
    delila
    Felhasználó

    Szia!

    Ha már Imre felajánlotta, megírtam a makrót. 😀

    Az A oszlopod ne legyen zárolt.
    A lapodhoz kell rendelned: lapfülön jobb klikk, Kód megjelenítése. A jobb oldalon megjelenő üres felültre másold be a makrót.
    A ActiveSheet.Protect Password:="aaa", UserInterfaceOnly:=True sorban most aaa a lapvédelem jelszava, ezt írd át kedved szerint. Ez a sor teszi lehetővé makróból a zárolt cellák felülírását.

    Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Count = 1 Then
            If Cells(Target.Row, 2) = "" Then
                Application.EnableEvents = False
                ActiveSheet.Protect Password:="aaa", UserInterfaceOnly:=True
                Cells(Target.Row, 2) = Format(Now, "yyyy.mm.dd hh:ss")
                Application.EnableEvents = True
            End If
        End If
    End Sub

    Lehet, hogy a makróban lévő idézőjeleket át kell írnod. Ha piros színnel jelenik meg nálad egy sor, ez a teendő.

    Üdv, Delila

    #9674
    NIN
    Felhasználó

    Sziasztok!

    Boxernek is és delilanak is köszönöm szépen a segítséget!

    Mindkettőt megnézem!

    Üdvözlettel Norbi

    #9676
    NIN
    Felhasználó

    Kedves Delila!

    A makró működi!

    Annyi a problémám vele, hogy az első sornál beírja, a pontos időt.

    Viszont egy sorral lejjebb bevitt értéknél mr nem érvényesítni ugyan azt a makrófunkciót – nem ad vissza dámot.

    Ha mégis sikerül, akkor a pontos idő helyett egy előző időt ad meg kb 15-20 perccel ezelöttit.

    jelszó maradt “aaa”

    Én szúrok le valamit, vagy a makró nem tudja azt ,amit szeretnék?

    Még egy kérédsem lenne. A makrót több oszlopra is szeretném futtatni, akkor elég csak annyiszor bemásolni a képletet és átírni az oszlopok számát – Pl.: 3 és 4 es , vagy más makrót igényel, egy összetettebbet?

    Előre is köszönöm a segítséget!!!

    Üdvözlettel: Norbi

    #9677
    NIN
    Felhasználó

    Makrós mintaexcel

    • A hozzászólás módosításra került: 3 months, 3 weeks telt el-NIN.
    • A hozzászólás módosításra került: 3 months, 3 weeks telt el-NIN.
    #9680
    NIN
    Felhasználó

    Makró nélkül, mert nem tudom feltölteni zip ként sem

    Attachments:
    You must be logged in to view attached files.
    #9682
    delila
    Felhasználó

    Mese a csatolt fájlban.

    Attachments:
    You must be logged in to view attached files.
    #9684
    NIN
    Felhasználó

    Köszönöm szépen a választés a programmal tültött időd!

    Egy dolgot nem értek.

    Kitöltöttem a “páros” cellákat / beviteli mező /

    Időnek pedig zagyvaságokat ír ki. Mellékelek egy képernyőmentést.

    Mi lehet a baj? nálam lenne valami rosszul beállítva?

    Nagyon köszönöm előre is a sok segítséget!

    Norbi

    • A hozzászólás módosításra került: 3 months, 3 weeks telt el-NIN.
    Attachments:
    You must be logged in to view attached files.
    #9688
    delila
    Felhasználó

    Ezt kérted:
    Pl.: “A1” cellába beviszek egy adatot, akkor a “B1” cellába kiírja az év-hónap-nap óra:perc -et.
    Véletlenül a perc (minut) helyett másodpercet (seconds) adtam meg a formátumnál. Öreg hiba, mea culpa!

    A Cells(Target.Row, Target.Column + 1) = Format(Now, "yyyy.mm.dd hh:ss") sorban a formátumot írd át így:
    Cells(Target.Row, Target.Column + 1) = Format(Now, "yyyy-mm-dd hh:mm")
    Ennél már az év-hó-nap közötti pontot is átírtam a kérésed szerinti kötőjelre.

    #9689
    NIN
    Felhasználó

    Köszönömt, TÖKÉLETESEN MŰKÖDIK! 🙂

    Szerintem nem hibáztál! Inkább egy beépített teszt volt felém, hogy észreveszem e? 🙂

    Elbuktam! 🙂

    u.i.: feltűnk az “SS” – nem gondoltam, hogy seconds – , de nem mertem lecserélni, mivel az év “yyyy” után ott van a hónap “mm” .
    Ezért nem gondoltam rá, hogy hónapként és percként is használható!

    Lényeg, hogy nagyon szépne köszönöm a segítségedet!

    Üdvözlettel: Norbi

    #9690
    delila
    Felhasználó

    Teszt?! 🙂
    Szívesen.

    #9698
    NIN
    Felhasználó

    Kedves “delilia”

    Ismét szeretnék kérni egy kis segítséget.

    Tökéletesen működik a “makro” amit írtál.

    Viszont munkalapok között nem mindig megy át a művelet.

    Első lapon “beviteli mezőn” listából kiválasztok.

    Majd áthivatkozom az “időbélyeg” munkalapra.
    Ott az általad írt makrót futtatom úgy, hogy Pl.: “B3” cella a beviteli – behivatkozott cella – , “C3” cella az pontos időm – időbélyegem.

    Következő lépésben az “időbélyeg munkalap aktuális celláját visszahivatkozom a “beviteli mező” “időpont” oszlopába.

    Csatolok egy kivonatot a műveletről , amiben elakadam.

    Sajnos nem jövök rá a hiba okára.

    Meg tudnád szakérteni?

    Előre is köszönöma segítséged!

    Üdvözlettel : Norbi

    u.i.: természetese, “delila”- n kívül mindenkitől szívesen veszem, ha tud segíteni!
    Nekik is előre köszönöm!

    Sajnos makrobarát munkafüzetet nemenged, ezért alább memásolom a makrót:
    Ennke helye az “időbélyeg”- nél van
    a jelszó”aaa”

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column Mod 2 = 0 And Target.Column <= 26 And _
    Cells(Target.Row, Target.Column + 1) = “” Then
    Application.EnableEvents = False
    ActiveSheet.Protect Password:=”aaa”, UserInterfaceOnly:=True
    Cells(Target.Row, Target.Column + 1) = Format(Now, “yyyy-mm-dd hh:mm”)
    Application.EnableEvents = True
    End If
    End Sub

    • A hozzászólás módosításra került: 3 months, 1 week telt el-NIN.
    • A hozzászólás módosításra került: 3 months, 1 week telt el-NIN.
    Attachments:
    You must be logged in to view attached files.
    #9706
    delila
    Felhasználó

    Szia!

    Egyszer már megírtam az Excel-program_v2.xlsm fájlban, hogy ne duplázd az adatokat. Nálad teljesen azonos adatok szerepelnek a két lapon.
    Semmi szükség az ide-oda hivatkozásokra.

    Az érvényesítéshez szükséges adatokat – mivel összesen 3 van belőlük – a kép szerint is megadhatod, akkor nem lesz a tartomány útban.

    Makrót tartalmazó füzetet tömörítve tudsz ide belinkelni.

    Attachments:
    You must be logged in to view attached files.
    #9708
    NIN
    Felhasználó

    Szia!
    Értem amit mondasz, de a feldat amire használnám a makródat, kicsit bonyolultabb nekem.

    Csatolom a teljes munkafüzetet.

    Amit szeretnék:

    Munkaszám generátor lap “O” oszlopában kiválasztott lista alapján írjon ki időt a “P” től “AB” oszlopokba aszerint, hogy a kistát léptetem a munkafolyamat szerint.

    Ajánlatkérés, Ajánlat kész, ajánlat elküldve stb.

    Mindezt úgy , hogy a megjelenő időpont ne legyen törölhető, csak jelszóvak.

    Problémám az, hogy az általad írt makró az egész munkalapin blokkolja a páros oszlopokat.

    Én azt szeretném, ha csak a “P” től “AB” ig lenne írásvédett, miután időpont gnerálódik oda.

    Tudom bocsolult a kérésem, de talán megoldható.

    Előre is köszönöm!

    Norbi

    u.i: a makrót jelenleg a “Kódolt_segéd” tartalmazza

    sem .ral-t ,sem .zip-et nem tudok feltölteni

    ezért az ürs programot felrakom a makró nélkül, melynek helyét fentebb írtam.

    • A hozzászólás módosításra került: 3 months, 1 week telt el-NIN.
    • A hozzászólás módosításra került: 3 months, 1 week telt el-NIN.
    #9711
    NIN
    Felhasználó

    Munkafüzet csatolása tömörítve nem megy fel 🙁

    • A hozzászólás módosításra került: 3 months, 1 week telt el-NIN.
    • A hozzászólás módosításra került: 3 months, 1 week telt el-NIN.
    Attachments:
    You must be logged in to view attached files.
    #9715
    NIN
    Felhasználó

    ez már felmegy

    • A hozzászólás módosításra került: 3 months, 1 week telt el-NIN.
    • A hozzászólás módosításra került: 3 months, 1 week telt el-NIN.
    #9719
    NIN
    Felhasználó

    lemaradt

    • A hozzászólás módosításra került: 3 months, 1 week telt el-NIN.
    • A hozzászólás módosításra került: 3 months, 1 week telt el-NIN.
    Attachments:
    You must be logged in to view attached files.
    #9723
    delila
    Felhasználó

    Mikor az első makrót tettem be ide, ezt írtam: Az A oszlopod ne legyen zárolt.
    Neked kell a lap zárolása előtt az írható oszlopok védelmének a megszüntetése.

    Átírtam a makrót.
    Kérlek, tiszteld meg a fórumot azzal, hogy a hozzászólás elküldése előtt átnézed az írásodat, és csak a hibák kijavítása küldd azt el.
    Nem tudok mit kezdeni az ilyen sorokkal: Tudom bocsolult a kérésem, de talán megoldható.

    Attachments:
    You must be logged in to view attached files.
    #9725
    NIN
    Felhasználó

    “Delila” a segítséget köszönöm szépen!

    Hibáztam, a jövőben odadigyelek! Mea culpa!

    Egyébiránt a problémám gyökere nem az elküldött makro alkalmazásából fakadt – az működik manuálisan kitöltött cellákkal.

    Problémaám az, ha a cellát képlet erdményeivel töltöm fel. Pl. “HA függvény eredményeivel töltöm és ezeket szeretném időbélyeggel ellátni.

    Mindettől független nagyon köszönöm, hogy foglakoztál a bejegyzésemmel!

    Üdvözlettel: Norbi

22 bejegyzés megtekintése - 1-22 / 22
  • Be kell jelentkezni a hozzászóláshoz.