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

• #11365 m.zmrzlina senior tag Padam #11364

  Új Válasz 2011-09-17 12:55:48 #11365

  Ú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

  Első körben próbáld a következő makrót a kérdéses munkalaphoz rendelni:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim cella As Range
  
  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 Sub

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