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

• #20002 m.zmrzlina senior tag Wollie #19998

  Új Válasz 2014-01-09 13:38:49 #20002

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Wollie #19998 üzenetére

  Próbáld meg a következőt. Az F oszlopban lévő szövegeken megy végig, az E oszlopba kigyűjti az egyedi rekordokat és a D1 cellába kiírja hogy hány különböző rekordot talált. Természetesen a tartományok átírhatók.

  Sub lista()
  Dim intHanyfele As Integer
  
  Do While ActiveCell.Value <> ""
  If Application.WorksheetFunction.CountIf(Range("E:E"), ActiveCell.Value) = 0 Then
  Cells(intHanyfele + 1, 5).Value = ActiveCell.Value
  intHanyfele = intHanyfele + 1
  End If
  ActiveCell.Offset(1, 0).Select
  Loop
  
  Range("D1").Value = intHanyfele
  End Sub

  Kicsit ágyúval verébre módszernek tűnik mert meg lehet oldani irányított szűréssel is. Más helyre másolja és Csak egyedi rekordok megjelenítése opciók bekattintva, majd az egyedi rekordokat darabtelivel megszámolni.

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