Problemen Macro

[Nilsjen]

Hallo
 
Ik ondervind problemen met een macro die in een ontvangen bestand zit.
Het gaat over een macro waarin lege rijen verborgen worden en alle rijen getoond worden.
 
Kan iemand mij daar verder mee helpen?

[Nilsjen]

Dit is mijn Macro:

 

Sub HideEmptyRows()

    Dim i As Integer

    For i = 7 To 570

        If Cells(i, 3) = "Û" Then

            If Trim(Cells(i, 5)) = "" Or Cells(i, 5) = 0 Then

                Rows(i).Hidden = True

            End If

        End If

    Next

End Sub

 

Wat doe ik verkeerd?

[SummaView]

Dit is inderdaad een voorbeeld van code die op het eerste oog eenvoudig lijkt, maar uren aan kan zitten omdat Excel net even anders reageert dan je verwacht.

 

Vervang Trim(Cells(i, 5)) = "" door Trim(Cells(i, 5)) = Null, soms wil Trim(Cells(i, 5)) = Empty ook wel het probleem doen oplossen.

 

Succes!

 

SummaView

 

 

 

   Dim i As Integer

    For i = 7 To 570

        If Cells(i, 3) = "Û" Then

            If Trim(Cells(i, 5)) = Null Or Cells(i, 5) = 0 Then

                Rows(i).Hidden = True

            End If

        End If

    Next

End Sub