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

• #45798 karlkani aktív tag karlkani #45797

  Új Válasz 2021-01-17 14:49:55 #45798

  Ú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

  

  karlkani

  aktív tag

  válasz karlkani #45797 üzenetére

  Összeraktam a kettőt, úgy néz ki működik.

  Private Sub Worksheet_Change(ByVal Target As Range)
    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
End Sub

  #45796 Delila_1
  Kedves Kati!
  Nagyon szépen köszönöm!

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