Hoi Allemaal,
Ik heb een vraagje:
Ik heb de formule:
=ALS(EN(AANTAL.ALS($D$5:$E$895;D5)>1;D5<>"");"Dubbel";"")
Als ik echter een rij verwijder d.m.v. een macro dan wordt de formule:
=ALS(EN(AANTAL.ALS($D$5:$E$894;D5)>1;D5<>"");"Dubbel";"").
En das nu net niet de bedoeling. Het bereik moet namelijk gewoon tot 895 blijven. Ik had al geprobeerd D5:E895 een naam te geven in de hoop dat dit zou helpen maar dit werkt niet.
Verder had ik in de macro de regel:
rrange.EntireRow.Delete
in
rrange.EntireRow.ClearContents
veranderd. Maar dit geeft ook ongewenste resultaten.
Het liefste heb ik dus een manier om in de formule te zetten dat het bereik hetzelfde moet blijven...
Alvast bedankt!
Dit is trouwens de macro om een rij te verwijderen (wanneer er een x in de kolom staat)
Ik heb een vraagje:
Ik heb de formule:
=ALS(EN(AANTAL.ALS($D$5:$E$895;D5)>1;D5<>"");"Dubbel";"")
Als ik echter een rij verwijder d.m.v. een macro dan wordt de formule:
=ALS(EN(AANTAL.ALS($D$5:$E$894;D5)>1;D5<>"");"Dubbel";"").
En das nu net niet de bedoeling. Het bereik moet namelijk gewoon tot 895 blijven. Ik had al geprobeerd D5:E895 een naam te geven in de hoop dat dit zou helpen maar dit werkt niet.
Verder had ik in de macro de regel:
rrange.EntireRow.Delete
in
rrange.EntireRow.ClearContents
veranderd. Maar dit geeft ook ongewenste resultaten.
Het liefste heb ik dus een manier om in de formule te zetten dat het bereik hetzelfde moet blijven...
Alvast bedankt!
Dit is trouwens de macro om een rij te verwijderen (wanneer er een x in de kolom staat)
Sub Knop_VerwijderX_click()
With Sheets("Huidige status") 'kijkt in sheet "Huidige status"
.Protect UserInterfaceOnly:=True 'zet beveiliging uit
.EnableAutoFilter = True
End With
Do
Set rrange = Range("B5:B900").Find(what:="x", LookIn:=xlValues, lookat:=xlWhole) 'zet range kolom B en vind x
If rrange Is Nothing Then Exit Do 'wanneer geen x dan sluit macro
rrange.EntireRow.ClearContents 'wanneer x dan verwijder rij
Range("A894:Z894").Select 'selecteer cellen A894:z894
Selection.AutoFill Destination:=Range("A894:Z895"), Type:=xlFillDefault 'kopieer formules van A894:z894 in rij 895
Range("B1").Select 'selecteer b1
Loop
End Sub