Ú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

• #11366 m.zmrzlina senior tag Padam #11364

  Új Válasz 2011-09-17 13:59:02 #11366

  Ú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

  Egy kérdés:

  Van igény arra, hogy ezen a munkalapon (bárhová a B3:C18 tartományon kívül) bármilyen okból fel lehessen vinni a dolgozók neveit vagy azokkal egyező karaktersorozatokat? Vagy ezen a munkalapon csak az szerepel ami a mintafájlban is benne van?

• #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