Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    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

  • #46018 Delila_1 veterán marec1122 #46017
    Új Válasz #46018
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Delila_1

    veterán

    válasz marec1122 #46017 üzenetére

    A kérdéses laphoz rendeld az eseményvezérelt makrót, ami a B oszlopba íráskor felviszi a K oszlop első üres sorába a beírt dátumot, mellé az L-be pedig az A oszlopban megadott számot. Arra a fevitelt végzőnek kell ügyelnie, hogy a B oszlopban valóban dátumot adjon meg.
    Az eddigi dátumokat és a hozzájuk tartozó számokat előre fel kell vinni, mert csak a makró beírása után végzi automatikusan ezt a munkát. B oszlopot másold K-ba, Ismétlődések eltávolítása funkció, majd (INDEX, HOL.VAN) függvénnyel melléjük az A oszlop adatai.

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ide As Long

    If Target.Column = 2 Then
    If Application.WorksheetFunction.CountIf(Columns(11), Target) = 0 Then
    Application.EnableEvents = False
    ide = Range("K" & Rows.Count).End(xlUp).Row + 1
    Range("K" & ide) = Target: Range("L" & ide) = Range("A" & Target.Row)
    Application.EnableEvents = True
    End If
    End If
    End Sub

Új hozzászólás Aktív témák