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

• #41775 Fferi50 Topikgazda spe88 #41774

  Új Válasz 2019-09-16 10:22:54 #41775

  Ú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

  

  Fferi50

  Topikgazda

  válasz spe88 #41774 üzenetére

  Szia!
  Erre mutattam azt a makrót, ami a cella változásakor megvizsgálja, hogy van-e már ilyen érték a bevittek között.
  Csak meg kellene próbálnod testre szabni:
  Ezt másold be az adott munkalap kódlapjára:
  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Or Target.Column = 3 Then 'ez az első és a harmadik oszlopot figyeli
  'ha minden oszlopon figyelnéd, akkor hagyd el.
  'ha egy tartományt figyelnél, akkor a vizsgálat:
  'If Not Intersect(Target,Range("A1:X100") Is Nothing Then
     Application.EnableEvents = False
   If Application.CountIf(Range(Cells(1, Target.Column), Cells(Target.Row - 1, Target.Column)), Target.Value) > 0 Then
      MsgBox "Ilyen érték már van!"
      Target.Value = ""
      Target.Select
   End If
   Application.EnableEvents = True
End If
End Sub

  Üdv.

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