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

• #15267 Delila_1 veterán Fire/SOUL/CD #15266

  Új Válasz 2012-10-13 16:07:28 #15267

  Ú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 Fire/SOUL/CD #15266 üzenetére

  Egy kicsit variálva minden hibás címet kiír.

  Sub valami()
  Dim MyRange As Range
  Dim MyCell As Range
  Dim MyRow
  
  Set MyRange = Range("C1:C100")
  MyRow = 1
  
  For Each MyCell In MyRange
  If Application.WorksheetFunction.IsError(MyCell) Then
  Range("M" & MyRow) = MyCell.Address
  MyRow = MyRow + 1
  End If
  Next
  End Sub

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