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

• #11992 perfag aktív tag Apollo17hu #11990

  Új Válasz 2011-11-13 11:34:29 #11992

  Ú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

  

  perfag

  aktív tag

  válasz Apollo17hu #11990 üzenetére

  Na, lassú vagyok látom, Delila_1 megelőzött - de hasonló az észjárásunk:
  Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Range(Target.Address), Range("C2:C300")) Is Nothing Then
  Else
  Range(Target.Address).Offset(0, 1) = Now
  End If
  End Sub

• #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