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

• #22026 Delila_1 veterán bepken #22025

  Új Válasz 2014-06-16 17:44:46 #22026

  Ú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 bepken #22025 üzenetére

  Igen, az a baja.

  Egy kicsit másképp a makró. Ebben már az is benne van, hogy egyszer fusson le. Mikor beírsz a lapra valamit, beíródik a B oszlopba a dátum, erre újból lefut az EnableEvents ideiglenes letiltása nélkül.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Value <> "" Then
  Cells(Target.Row, 2) = Date
  Cells(Target.Row, 2).NumberFormat = "yy/mm/dd"
  Else
  Cells(Target.Row, 2) = ""
  End If
  Application.EnableEvents = True
  End Sub

  Mivel a C oszlop változtatását akarod figyeltetni, érdemes az egészet egy feltételbe beírni.

  if target.column=3 then
  ...
  endif

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