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

• #28478 Delila_1 veterán twingos #28473

  Új Válasz 2015-09-07 06:43:01 #28478

  Ú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 twingos #28473 üzenetére

  Formázd meg a D oszlopot előre, legyen # ##0" db" az egyéni kategóriában.
  Rendeld a lapodhoz a lenti makrót:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim talal, WF As WorksheetFunction
  Set WF = WorksheetFunction
  
  Application.EnableEvents = False
  If Target.Column = 1 Then
  If WF.CountIf(Columns(1), Target) > 1 Then
  If WF.CountIf(Columns(5), Target) = 0 Then
  talal = Range("E" & Rows.Count).End(xlUp).Row + 1
  Range("E" & talal) = Target
  Range("D" & talal) = WF.CountIf(Columns(1), Target)
  Else
  talal = Application.Match(Target, Columns(5), 0)
  End If
  Range("D" & talal) = WF.CountIf(Columns(1), Target)
  End If
  End If
  Application.EnableEvents = True
  End Sub

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