waarden uit data verwijderen

[naafets]

Ik worstel met een wat ik denk simpel probleem is in excel.

Hoe kan ik bepaalde cellen uit een data reeks weglaten? Het zou in een template moeten kunnen zitten, dus paste special en remove blanks is niet de goeie oplossing. Ik zou wel de originele dataset moeten behouden, dus het zal moeten gecopieerd worden naar een andere locatie. Het gaat om volgende data set (bvb)

35.92 0.25
42.57 0.44
45.68 0.59
#N/A #N/A
54.53 1.50
#N/A #N/A
#N/A #N/A
51.90 1.01

Waarbij #N/A ongeldige metingen zijn. Ik vermoed dat het ergens met advanced filtering is, maar ik geraak er niet uit. Kan iemand mij hierbij helpen aub?

 

[Ommeren]

Hoi,

Op deze manier kan niemand je daarmee helpen.
De 'data' zijn het resultaat van berekening in een formule.
En daar zit een 'fout' in, in die zin dat er iets gebeurt wat jij niet wilt.
Maar dat is zo niet te overzien.
Je zult dus het bestand mee moeten sturen als je wilt dat iemand je helpt.

 

[naafets]

hallo,

Er zit geen fout in de data, de data die niet correct zijn, of niet beschikbaar zijn door iemand anders op #N/A (not available) gezet.

De file zelf kan ik niet meesturen (copyright issues)

mvg,

Stefaan

 

[HSV]

Zet er een "ALS(ISFOUT(" fuctie voor de formule, zodat de cel leeg blijft als er niets gevonden wordt.

succes

 

[Warme bakkertje]

Er zit geen fout in de data, de data die niet correct zijn, of niet beschikbaar zijn door iemand anders op #N/A (not available) gezet.

Stefaan, zijn het formules die achter de foutmeldingen zitten of is het gewoon tekst ?

Mvg

Rudi

 

[Wigi]

Zet er een autofilter op, filter die niet beschikbare cellen eruit, en verwijder de hele rij.

Of filter op de beschikbare gegevens en kopieer dat naar ergens anders.

Wigi

 

[Warme bakkertje]

Als de foutmeldingen uit formules voortkomen helpt onderstaande code. Bedenk echter wel dat dan ook de formule verwijderd is.

Sub FouteCellenLeegmaken()
     With Range("jouw bereik")
        .SpecialCells(xlCellTypeFormulas, xlErrors).Clear
    End With
End Sub

Mvg

Rudi

 

[Wigi]

ClearContents is beter dan Clear, want anders is eventuele opmaak ook mee naar de vaantjes.

 

[naafets]

Ik zou eigenlijk een macro willen schrijven die de data overloopt, en de rijen waarin #N/A voorkomt weglaat. Ik ben geraakt tot het kopieren van de data en past special op een andere locatie, maar het weglaten van de #N/A waarden lukt mij niet.

In bijlage de data.

Bedankt voor de reacties

 

[Gert Bouwmeeste]

Deze code zou het moeten doen, maar kan waarschijnlijk wel simpeler:

Sub RegelsWeghalen()

Range("B2").Select
On Error Resume Next
While ActiveCell.Offset(1, 0).Range("A1").Value
 If ActiveCell.Offset(1, 0).Range("A1").Value = "N/B" Then
  ActiveCell.Offset(1, 0).Range("A1").Select
  Selection.EntireRow.Delete
  ActiveCell.Offset(-1, 0).Range("A1").Select
  Else
   ActiveCell.Offset(1, 0).Range("A1").Select
  End If
Wend

End Sub

 

[snb]

ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, xlErrors).Delete

 

[Gert Bouwmeeste]

ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, xlErrors).Delete

Deze code wist de cellen met #N/B maar delete toch niet de regel, zoals TS wil?

 

[snb]

ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, xlErrors).entirerow.Delete

 

[Gert Bouwmeeste]

ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, xlErrors).entirerow.Delete

Die gaat in de verzameling! :thumb:

 

[Wigi]

Deze code wist de cellen met #N/B?

Het wist zelfs ALLE cellen met fouten, niet alleen NB.

 

[Gert Bouwmeeste]

Het wist zelfs ALLE cellen met fouten, niet alleen NB.

Eens