[Excel] Functie voor hide?

[Sangurash]

Ik ben bezig een excel bestand te maken die op datum rows selecteerd. Indien de row niet voldoet krijg je een lege row. Kan je deze row ook automatisch hiden?

code:

=IF(WEEKNUM(Export!J4;2)=A2;"Yes";IF(A2="Alle weken";"Yes";"HIDE"))

Bij "HIDE" zou ik graag een zegmaar een functie hebben die de row compleet hide (liever niet delete dan ben ik de formule data kwijt).

[ Voor 9% gewijzigd door Sangurash op 26-08-2004 11:28 ]

[Sangurash]

Heb nu een VB scriptje gemaakt die kan hiden. Alleen moet ik nu op de waarde gaan valideren (Niet de functie die erin staat =IF ect) van een cell A in de Row R. Hoe doe ik dat, ben nu al uren aan het klooien en kan het niet vinden op internet.

code:

Public Sub HideBlankRows()

Dim R As Long
Dim C As Range
Dim Rng As Range

On Error GoTo EndMacro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

If Selection.Rows.Count > 1 Then
    Set Rng = Selection
Else
    Set Rng = ActiveSheet.UsedRange.Rows
End If
For R = Rng.Rows.Count To 1 Step -1
==> Deze regel klopt niet:  If Rng.Rows(R).Value = "PRIO 00" Then
        Rng.Rows(R).EntireRow.Hidden = False
    Else
       Rng.Rows(R).EntireRow.Hidden = True
 
    End If
Next R

EndMacro:

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

[Bud_s]

met :

code:

If Sheets(ActiveSheet).Cells(R , col).Value = "PRIO 00" Then

col is de het colom nummer van de cel ( a = 1 ,b = 2, enz.)

[Sangurash]

code:

For R = Rng.Rows.Count To 4 Step -1
    With Worksheets("Hoge prios").Cells(R, 1)
      If .Value <> "" Then
         Rng.Rows(R).EntireRow.Hidden = False
      Else
         Rng.Rows(R).EntireRow.Hidden = True
      End If
    End With
Next R

Bedankt voor je input dit is het uiteindelijk geworden.

[Bud_s]

mooi , en bedankt voor het posten van het werkende script