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

• #22039 Delila_1 veterán bepken #22038

  Új Válasz 2014-06-17 12:49:21 #22039

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

  Próbáld ki ezzel:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 Then
  Application.EnableEvents = False
  On Error GoTo Hiba
  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 If
  Exit Sub
  
  Hiba:
  MsgBox "Egyszerre csak egy adatot adj meg, vagy törölj!", vbOKOnly + vbExclamation
  Application.EnableEvents = True
  End Sub

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