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

• #15266 Fire/SOUL/CD félisten Attas #15264

  Új Válasz 2012-10-13 15:48:30 #15266

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Attas #15264 üzenetére

  Az ErrorFound vizsgálatával tudod majd eldönteni, hogy a megadott tartományban volt-e olyan cella(legalább 1), ami hibát tartalmaz.(A kód az első talált hiba esetén nem vizsgálja tovább a további cellákat)

  Dim MyRange As Range
  Dim MyCell As Range
  Dim ErrorFound As Boolean
  
  Set MyRange = Range("C9:V9")
  
  ErrorFound = False
  
  For Each MyCell In MyRange
  If Application.WorksheetFunction.IsError(MyCell) Then
  ErrorFound = True
  Exit For
  End If
  Next MyCell

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