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

• #26099 Locsi senior tag

  Új Válasz 2015-03-19 21:07:53 #26099

  Ú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

  

  Locsi

  senior tag

  Sziasztok.

  Ezt, hogy kellene tovább írni, hogy ha az f mezőbe beírok valamit, akkor a d mezőbe beírja az aktuális dátumot, és időt.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Lrow As Single
  Dim AStr As String
  Dim Value As Variant
  If Not Intersect(Target, Range("A:B")) Is Nothing Then
  For Each Value In Target
  If Value <> "" Then
  Range("C" & Value.Row).Value = Now
  End If
  Next Value
  End If
  End Sub

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