2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • 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

  • #45800 Delila_1 veterán karlkani #45799
    Új Válasz #45800
    Ú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 karlkani #45799 üzenetére

    Szia Laci!
    Nem tökéletes, de valamennyire javul.
    Ha új neve(ke)t írsz az F oszlopba, akkor is törli a sor(ok)ban a G és H oszlop megfelelő sora(i)t. A H-t azért adtam a törölni valókhoz, mert akkor már nem kell a dátum.

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim terulet As String
    Application.EnableEvents = False
    If Not Intersect(Range("C2:C8"), Target) Is Nothing Then
    Cells(10, 3).Value = Now()
    End If

    If Not Intersect(Target, [G2:G39]) Is Nothing Then
    If Target = "" Then
    Range(Target.Address).Offset(, 1) = ""
    Else
    Range(Target.Address).Offset(, 1) = Date
    End If
    End If

    If Not Intersect(Target, [F2:F39]) Is Nothing Then
    terulet = Target.Address
    Range("VV1") = terulet: Range("VW1").FormulaR1C1 = "=SUBSTITUTE(RC[-1],""F"",""G"")"
    terulet = Range("VW1")
    Range(terulet) = ""
    Range("VW1").FormulaR1C1 = "=SUBSTITUTE(RC[-1],""F"",""H"")"
    terulet = Range("VW1")
    Range(terulet) = ""
    End If
    Application.EnableEvents = True
    End Sub

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

Hirdetés