Telefonszámunk: 1-472-0679

[Resolved] Rögzítés dátuma

Kezdőlap Fórumok Excel programozás [Resolved] Rögzítés dátuma

Topic Resolution: Resolved
6 bejegyzés megtekintése - 1-6 / 6
  • Szerző
    Bejegyzés
  • #10561
    Mavimi43
    Felhasználó

      Minden rekordhoz szeretném ha automatikusan bekerülne az adatbevitel dátuma a rögzítéskor egy rejtett oszlop cellájába. Mivel a MA() függvény másnap már megváltozik, csak a bepötyögés marad?

      #10562
      delila
      Felhasználó

        Szia!

        A laphoz kell rendelned egy eseménykezelő makrót. Lapfülön jobb klikk, Kód megjelenítése. Ezzel bejutottál a VB szerkesztőbe, az adott laphoz.
        A kapott üres oldalra másold be.

        Private Sub Worksheet_Change(ByVal Target As Range)
            If Target.Column = 1 Then Cells(Target.Row, 2) = Date
        End Sub

        Ebben a makróban ha az A oszlopba írsz [Colums=1], akkor a B oszlopba az azonos sorba [Cells(Target.Row, 2] beírja fixen a mai dátumot.
        A füzetet makróbarátként kell mentened.

        Delila

        #10563
        Mavimi43
        Felhasználó

          Köszönöm, működik!
          Mavimi43

          #10564
          Mavimi43
          Felhasználó

            Az emeilban kapott levélben az End Sub az előző sor végére került. Úgy bemásolva persze nem működött.

            #10566
            delila
            Felhasználó

              Email-ben?
              Szívesen.

              #10567
              Mavimi43
              Felhasználó

                Igen, értesítést kaptam (mert kértem), hogy milyen választ kaptam a kérdésemre. Ott
                If Target.Column = 1 Then Cells(Target.Row, 2) = Date End Sub alaku volt a 2. sor. Először így másoltam a Visual Basic for Applications -oldalba,és mivel úgy nem működött, az End Sub részt áttettem a 3. sorba.
                Mégegyszer köszönöm

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