regels met #N/B verwijderen in macro

[Etienne1978]

Hallo,

heeft er iemand een oplossing voor mijn probleem.
ik wil middels een macro de rijen met #N/B (zijn er via verticaal zoeken ingekomen) verwijderen
en de overige rijen (artikel nummers) laten staan.

in kolom A staat of #N/B of het artikelnummer


Dit is mijn macro maar hij loopt vast bij if currentcell.value = "#N/B" Then

Alvast bedankt.

Dim intaantalrijen As Integer
Dim i As Integer
Dim currentcell As Range

Range("a2").Select
intaantalrijen = ActiveCell.CurrentRegion.Rows.Count

For i = 1 To intaantalrijen
For Each currentcell In Selection.Cells
If currentcell.Value = "#N/B" Then
currentcell.EntireRow.Delete
ActiveCell.Select
Else
ActiveCell.Offset(1, 0).Select
End If
Next currentcell
Next i

 

[Roncancio]

Het is beter om een autofilter te gebruiken dan per rij de waarde te controleren.

Sub Verwijderen()
Range("A:C").AutoFilter 1, "#N/A"
Range("2:" & Rows.Count).Delete
Range("A:C").AutoFilter
End Sub

Met vriendelijke groet,


Roncancio

 

[snb]

Sub snb()
    Cells.SpecialCells(-4123, 16).EntireRow.Delete
End Sub

 

[Etienne1978]

dank je maar het lukt me nog steeds niet.

de regel die je gebruikt snb moet ik die vervanger door de regel waar het foutloopt op moet ik hem toevoegen?

 

[Roncancio]

Zowel mijn code als de code van snb dienen als vervanging voor je gehele code.

Met vriendelijke groet,


Roncancio

 

[Etienne1978]

dank roncanio,

maar kun je je filter uitleggen want ik wil hem ook wel snappen.
ik heb hem uitgeprobeerd en het werkt maar nu wil ik deze ook op andere bestanden gebruiken maar daar werkt hij niet.

want wat als n/b# meldingen in kolom b voorkomen en mijn aantal kolommen tot bijv. BK reiken.
hoe komt dan de code eruit te zien

 

[Haije]

dit is de betekenis van de filter code

[COLOR="#FF0000"]Range("A:BK")[/COLOR].[COLOR="#0000FF"]AutoFilter 2[/COLOR], [COLOR="#006400"]"#N/A"[/COLOR]

bepaalt de kolommen in het filter
de kolom waar het filter op toegepast wordt
de waarde van het filter, dus waarop gefilterd wordt

 

[Etienne1978]

dank haije,

en de rest van de code. moet ik daar ook nog iets in aanpassen?
want als ik de code uitvoer met jouw wijziging dan gebeurt er niks

 

[Etienne1978]

Hij werkt. Er is alleen 1 ding wat ik niet begrijp. Waarom moet het #N/A zijn ipv #N/B want dat is de reden waarom hij niet werkte?

 

[Haije]

N/B = niet beschikbaar > Nederlands, maar de taal van VBA is Engels en dais
N/A = Not Available


de tweede regel in de macro van Roncancio bepaalt wat er moet gebeuren > regels weggooien
de laatste regel verwijdert het filter weer

 

[Etienne1978]

ah oke dank je