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

• #24998 Mindless tag

  Új Válasz 2015-01-12 21:20:10 #24998

  Ú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

  

  Mindless

  tag

  Sziasztok!

  Egy VBA problémával állok szemben amit nem tudok megoldani.

  Jelenleg a következő kód aktív az excelben, ami ha a G oszlopban ha új adatot viszek fel a C oszlopba beírja az aktuális dátumot:

  Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  With Target
  If .Count > 1 Then Exit Sub
  If Not Intersect(Range("G1:G5000"), .Cells) Is Nothing Then
  Application.EnableEvents = False
  If IsEmpty(.Value) Then
  .Offset(0, -4).ClearContents
  Else
  With .Offset(0, -4)
  .NumberFormat = "yyyy.mm.dd"
  .Value = Now
  End With
  End If
  Application.EnableEvents = True
  End If
  End With
  End Sub

  Ezt kellene kiegészítenem egy olyan kóddal ami ha a G oszlopban beírok egy új adatot akkor az előző sor formuláit felülírja az értékeikkel.

  A segítségeteket előre is köszönöm!

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