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

• #30335 m.zmrzlina senior tag

  Új Válasz 2016-02-01 14:51:39 #30335

  Ú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

  Szeretnék készíteni egy listát arról, hogy egy munkalapon adott háttérszínű cellákban milyen cellaértékek fordulnak elő. Így próbálom:

  For Each cella In ws_Kabelo.UsedRange
  If cella.Interior.ColorIndex = 6 And cella.Value <> "" And Application.WorksheetFunction.CountIf(Worksheets("valami").range("D2:D50"), cella.Value) = 0 Then
  Worksheets("valami").Cells(int_vege, 4).Value = cella.Value
  int_vege = int_vege + 1
  End If
  Next

  Ez a kód a "WorksheetFunction osztály CountIf tulajdonsága nem érhető el hibával kiakad.
  Ha a For Each cella In ws_Kabelo.UsedRange helyett
  pl: For Each cella In ws_Kabelo.Range("A1:Z100") formában adom meg a tartományt akkor lefut.

  Mi lehet ennek az oka?

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