Skjul rækker vha. VBA

100 points til mig for dagens dårligst formulerede spørgsmål - prøver igen:

Jeg vil loope igennem alle rækkerne i mit ark vha. VBA. Hvis der står "777" i kolonne B den aktuelle række, skal rækken skjules - hvoddn?

Fandt selv svaret:

  For i = 2 To Slut
    If Cells(i, 2).Value = "777" Then
      Cells(i, 2).Select
      ActiveCell.EntireRow.Hidden = True
    End If
  Next i

Jeg tror du mangler et S i row

For i = 2 To 65536
  If Cells(i, 2).Value = "777" Then
    rows(i).EntireRow.Hidden = True '<- ???
  End If
Next i

Hvis du bruger mit (dit eget) eksempel slipper du for select-sætningen, kan kan sløve makroen hvis det er et større område.

Yep - og endnu en lille optimering er application.screenupdate = false - så slipper man for at se den blinkende skærm, og det går vist lidt hurtigere.

Skal du have points for ulejligheden??

nej, det er ikke nødvendig, du klarede det jo selv :-)

Hvis du ønsker lidt hastighedsforøgelse, så prøv denne her:
Sub quickmodel()
Dim iLoop As Integer
Dim rNa As Range
Dim i As Integer
Dim rX As Range
svalue = "777"          'søgeværdi
scolumn = 2            'søgekolonne
iLoop = WorksheetFunction.CountIf(Columns(scolumn), svalue)
Set rNa = Cells(1, scolumn)
Set rX = Columns(scolumn).Find(What:=searchvalue, After:=rNa, _
            LookIn:=xlValues, LookAt:=xlWhole, _
            SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=True)

For i = 1 To iLoop
  Set rNa = Columns(scolumn).Find(What:=svalue, After:=rNa, _
            LookIn:=xlValues, LookAt:=xlWhole, _
            SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=True)
  Set rX = Union(rNa, rX)
Next i
rX.EntireRow.Hidden = True
End Sub