Gem rækker der ikke indeholder #N/A

Sub ShowMissingCells1()

Dim i As Long
Dim j As Long
Dim ws As Worksheet

Set ws = Worksheets("Sheet1")

For i = 1 To 65536
For j = A To V 
  If Cells(i, j).Value <> "#N/A" Then
    Rows(i).EntireRow.Hidden = False
  End If

Next i
Next j

End Sub

Denne har jeg også forsøgt uden held..

Sub ShowMissingCells()

For j = 1 To 11
For i = 1 To 100


If Cells(i, j).Value = "#N/A" Then
      Rows(i).Hidden = False
        Else
            Rows(i).Hidden = False
End If

Next i
Next j

End Sub

Nu stopper den ved #N/A - hvordan får jeg den til at forsætte??

Sub ShowMissingCells()
For j = 1 To 11
  For i = 1 To 50

    If IsError(Cells(i, j).Value) = IsError(1) Then
      Rows(i).EntireRow.Hidden = False
        Else
            Rows(i).EntireRow.Hidden = True
    End If

  Next i
Next j

End Sub

Denne finder kun de #N/A der er i sidste kolonne "K".. Hvordan finder jeg dem der er fra kolonne A til K

Problemet er løs...

Først gemmes alle rækker - derefter køre jeg en macro, der finder de felter hvor der er ERRORS i. Den sidste macro viser alle rækkerne igen..

Sub FirstHideErrs()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("A1:K50")
    If IsError(c.Value) = IsError(c) Then c.EntireRow.Hidden = True
Next
Application.ScreenUpdating = True
End Sub

Sub SecondFindErrs()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("A1:K50")
    If IsError(c) Then c.EntireRow.Hidden = False
Next
Application.ScreenUpdating = True
End Sub



Sub LastShowAll()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("A1:K50")
    If IsError(c) Then
            c.EntireRow.Hidden = False
        Else
            c.EntireRow.Hidden = False
    End If
Next
Application.ScreenUpdating = True
End Sub

Er der en anden løsning på problemet høre jeg gerne fra jer..

Sub KunErrors()
Range("A1:K50").Select
Selection.EntireRow.Hidden = True
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
Selection.EntireRow.Hidden = False
End Sub