Regels verbergen indien dezelfde celwaarde bovenstaand

[Markjansen74]

Hoi,

In een rapportage met veel regels staan in kolom A verschillende producten.
Ik ben zoekende naar de VBA-code die ervoor zorgt dat regels verborgen worden wanneer het product gelijk is aan het product in de cel erboven.

In bijgaand voorbeeld zou dat betekenen dat regels 3-4, 6-7, 9-10, 12-13 verborgen worden.

Alvast bedankt.

Groet,

 

[HSV]

Hoi,

Sub hsv()
Dim i As Long
 For i = Sheets(1).UsedRange.Rows.Count To 2 Step -1
  If Cells(i, 1).Value = Cells(i - 1, 1).Value Then Cells(i, 1).EntireRow.Hidden = True
 Next i
End Sub

Maar kan je dan niet beter filteren op "Nieuw"?

 

[Markjansen74]

Hoi Harry,

Bedankt voor je snelle reactie. De status Nieuw is slechts ter voorbeeld, dus daarop filteren gaat in dit geval niet op. De waarde die op de eerste regel van een nieuw product staat kan namelijk ook anders dan nieuw zijn.

Vwb de code: deze werkt deels. De eerste regels doen het goed, maar vanaf regel 37 staan er toch weer dubbelen.
Voor een juiste beeldvorming heb ik het bestand in kwestie bijgevoegd.

 

[HSV]

Mark,

De code werkt hier perfect.
Als ik de code laat lopen, krijg ik het alfabet als resultaat t/m "t" zonder dubbele letters.
Geef de dubbelen eens een kleurtje, dan valt het iets beter op.

 

[Markjansen74]

Probleem zat 'm in de naam van het betreffende tabblad. Na deze te hebben aangepast in de code werkt deze perfect.
Heel fijn!!

Dank je, Harry!