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

• #24871 Fferi50 Topikgazda gaborlajos #24868

  Új Válasz 2015-01-05 21:52:10 #24871

  Ú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 gaborlajos #24868 üzenetére

  Szia!

  A munkalapod kódlapjára a következőt írd be légy szíves:
  Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("$D$1:$E$50")) Is Nothing Then Exit Sub
  Application.EnableEvents = False
  vanmar = Application.Match(Target.Value, Range("$H$1:$H$" & Range("H4000").End(xlUp).Row), 0)
  If IsError(vanmar) Then
  If IsEmpty(Range("H1")) Then
  Range("H1").Value = Target.Value
  Else
  Range("H4000").End(xlUp).Offset(1, 0).Value = Target.Value
  End If
  End If
  Application.EnableEvents = True
  End Sub

  A kódlaphoz úgy jutsz, hogy a munkalap fülön jobb egérgombbal kattintasz. Ott kiválasztod a kód megjelenítését. Ezután a lap második felében megjelenik egy lenyiló, general felirattal. Azt átváltod worksheet feliratra. Megjelenik egy Worksheet_SelectionChange sub. Ezzel ne törődj, alá másold be a fentieket.

  Amikor a D1:E50 cellák valamelyikébe beírsz egy nevet vagy bármit, a cella elhagyásakor a H oszlopban megvizsgálja, hogy van-e már olyan beírás. Ha nincs, akkor utolsónak beírja. De betű szerint egyeznie kell a beírásnak!
  Természetesen a tartományokat a magad képére formálhatod (ha 4000-nél több dolgozó lehet, akkor a 4000-es számot vedd nagyobbra).

  Remélem valami ilyesmire gondoltál.

  Üdv.

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