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

• #41753 Fferi50 őstag spe88 #41751

  Új Válasz 2019-09-13 16:25:39 #41753

  Ú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

  őstag

  válasz spe88 #41751 üzenetére

  Szia!
  A usernek nem kell semmit csinálnia, ha a feltételes formázást előre beállítod azokra a tartományokra, ahol az adatbevitel folyik. Az ismétlődést vörösre állítod. A usert pedig kitanítod, hogy a vörös azt jelenti, ilyen tétel már van.

  Makróban pedig tudod használni a darabtelit, a munkalap change_eseményébe ágyazva.
  Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Darabteli( Range("A1:A10"),Target.Value)>0 Then
    Msgbox "Már van ilyen érték: " & Target.Value
    'vagy Msgbox helyett:
    Target.Offset(0,1).Value="Ilyen érték már van!'"
    'akár ki is törölheted:        
    Target.Value="" 
End If
End Sub
  Természetesen az A1:A10 helyére az adott területet írd.
  Ha az adott cella oszlopában kell nézni, akkor
  Columns(target.column) a Range('A1:A10") helyett. Ebben az esetben nem >0, hanem >1 a kritérium, hiszen az adott cella is benne van az oszlopban.

  Üdv.

  [ Szerkesztve ]

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