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

• #45800 Delila_1 veterán karlkani #45799

  Új Válasz 2021-01-17 17:11:09 #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