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

• #11367 m.zmrzlina senior tag Padam #11364

  Új Válasz 2011-09-17 17:28:42 #11367

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Padam #11364 üzenetére

  Javított verzió aminek mindegy, hogy a B3:C18 tartományon kívül mit hová szeretnél beírni:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim cella As Range
  
  If Not Application.Intersect(Target, Range("B3:C18")) Is Nothing Then
  For Each cella In Range("B3:C18").Cells
  If Not cella.Address = Target.Address And Target.Value <> "" Then
  If cella.Value = Target.Value Then
  MsgBox Target.Value & " erre az időpontra nem osztható be!"
  Target.Value = ""
  Exit Sub
  End If
  End If
  Next
  End If
  End Sub

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