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
  • 2024-03-25-05:39 #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?

      2024-03-25-06:45 #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

        2024-03-25-07:36 #10563
        Mavimi43
        Felhasználó

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

          2024-03-25-07:41 #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.

            2024-03-25-15:22 #10566
            delila
            Felhasználó

              Email-ben?
              Szívesen.

              2024-03-25-16:56 #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

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