Regels verbergen.

[malawi]

Hallo,

Ik heb een blad "berekeningen" waar ik in een keer alle regels wil verbergen waar in de formule "VERT.ZOEKEN"is opgenomen.
Hoe kan ik dit in een macro verwerken.

Ewald

 

[VenA]

Even een macro opnemen? Een bestand plaatsen is natuurlijk ook een optie. Hallo mijn auto doet het niet kan jij het oplossen? heeft ongeveer dezelfde strekking.

 

[edmoor]

Voorbeeldje:

Private Sub CommandButton1_Click()
    For Each cl In Range("A1:A20")
        If Left(cl.Formula, 8) = "=VLOOKUP" Then
            Rows(cl.Row).EntireRow.Hidden = True
        End If
    Next cl
End Sub

Maar een voorbeeld documentje is altijd beter.

 

[malawi]

Nu met test bestand

Ewald

 

[VenA]

Sub VenA()
  Sheets("Blad1").Columns(2).SpecialCells(-4123).EntireRow.Hidden = True
End Sub

 

[edmoor]

Naast dat je die van VenA het beste kan gebruiken, je had in mijn voorbeeld de waarde van cl.Formula gewijzigd van "=VLOOKUP" in "=VERT.ZOEKEN".
Dat moet je dus niet doen omdat VBA de formule altijd in het Engels terug geeft, tenzij je cl.FormulaLocal gebruikt.
Dit als extra info.

 

[malawi]

Ja stom, het werkt uiteraard in het engels. Dit vergeet ik niet weer.

Bedankt.

Ewald

 

[cow18]

als die vert.zoeken niet altijd vooraan staat

       If InStr(1, cl.Formula, "vlookup", 1) > 0 Then