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

• #29786 bsh addikt Sátán44 #29781

  Új Válasz 2015-12-09 13:07:58 #29786

  Ú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

  

  bsh

  addikt

  válasz Sátán44 #29781 üzenetére

  valami ilyesmi?
  Private Sub Worksheet_Change(ByVal Target As Range)
  If (Target.Column > 2) And (Target.Column < 25) And (Target.Row > 2) And (Target.Row < 28) Then
  If (XCount(Me.Range(Cells(Target.Row, 3), Cells(Target.Row, 25))) > 2) Or (XCount(Me.Range(Cells(2, Target.Column), Cells(28, Target.Column))) > 2) Then
  Target.Value = ""
  MsgBox ("Már van két X az adott sorban vagy oszlopban!")
  End If
  End If
  End Sub
  Private Function XCount(XRange As Range) As Long
  XCount = 0
  For Each Cell In XRange
  If Cell.Value <> "" Then XCount = XCount + 1
  Next
  End Function

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