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

• #11991 Delila_1 veterán Apollo17hu #11990

  Új Válasz 2011-11-13 11:17:55 #11991

  Ú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 Apollo17hu #11990 üzenetére

  A Worksheet_Change tip. esemény kezelés a bevitelt figyeli.
  A Set ter = Intersect(Target, Range("C2:C300")) sor megadja a figyelendő területet. Ha ezen a területen belül adsz új értéket egy cellának, a bevitt érték sorában (Target.Row) a 4. oszlopba beviszi az aktuális dátumot.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim ter As Range
  Set ter = Intersect(Target, Range("C2:C300"))
  If Not ter Is Nothing Then Cells(Target.Row, 4) = Date
  End Sub

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