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

• #28216 Delila_1 veterán nyirisandor #28212

  Új Válasz 2015-08-25 12:39:47 #28216

  Ú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

  

  Delila_1

  veterán

  válasz nyirisandor #28212 üzenetére

  A lapodhoz kell rendelned a makrót. Keress rá a laphoz rendelésre.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim usor As Long
  
  If Target.Column = 2 And Target.Row > 2 And Target.Count = 1 Then
  Application.EnableEvents = False
  usor = Range("B" & Rows.Count).End(xlUp).Row
  Range("B3:B" & usor).Copy Range("D3")
  Range("E3:E" & usor).ClearContents
  
  ActiveSheet.Range("$D$3:$D$" & usor).RemoveDuplicates Columns:=1, Header:=xlNo
  usor = Range("D" & Rows.Count).End(xlUp).Row
  Range("E3:E" & usor) = "=countif(B:B,D3)"
  Application.EnableEvents = True
  End If
  End Sub

  Szerk. Látom, már kaptál választ, míg én irkáltam.

  Mikor új nevet viszel be a B oszlopba, a D és E oszlop felülíródik az új értékekkel.

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