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

• #48933 bepken veterán

  Új Válasz 2022-04-30 11:33:25 #48933

  Ú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

  

  bepken

  veterán

  sziasztok!

  a segítségeteket kérem a következő amatőr problémában

  a cél: A oszlopba beírt bármilyen érték mellé B oszlopba tegye oda az aktuális dátumot, ami ezt követően nem változhat, se függvény által, sem manuálisan (ez utóbbit lock-olással meg tudtam oldani)

  működik ugyan, de sajnos ha pl C oszlopba írok valamit, akkor a dátum ugyanúgy frissül...

  Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    If Not Application.Range("A" & Target.Row).Value = "" Then
      Application.Range("B" & Target.Row).Value = Format(Now, "yyyy.mm.dd")
    End If
Application.EnableEvents = True
End Sub

  köszi előre is a tippeket!

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