• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Gegevens verwijderen via macro

Status
Niet open voor verdere reacties.

davylenders123

Gebruiker
Lid geworden
20 jun 2010
Berichten
902
Ik ben naar het volgende opzoek om in een macro te verwerken

Dagelijks wordt er een csv getrokken uit een systeem
In de csv staat in de kolom A een nummer van dit formaat 3-201 of 7-201 of 9-071 (Het aantal rijen in de csv is dagelijks anders)
Nu zou ik als in kolom A een nummer voorkomt met 3- heel deze rij willen verwijderen uit de csv.
Welke code heb je hier juist voor nodig ?

Ik heb nu de macro van hieronder al die wat rijen verwijderd en toevoegt.

Het bestand in bijlage is de csv zoals hij het het systeem komt

Code:
Sub Temp()


    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:D").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Columns("E:E").Select
    Selection.Delete Shift:=xlToLeft
    Columns("F:F").ColumnWidth = 25.29
    Columns("G:G").Select
    Selection.Delete Shift:=xlToLeft
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "Datum controle"
    Range("G3").Select
    Columns("G:G").EntireColumn.AutoFit
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "Uur controle"
    Range("J6").Select
    Columns("H:H").EntireColumn.AutoFit
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "Temp"
    Range("J1").Select
    ActiveCell.FormulaR1C1 = "Naam"
    Cells.Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub
 

Bijlagen

helemaal bovenaan je temp-macro zet je deze regels
Code:
   With ActiveSheet.Range("A1").CurrentRegion    'je gegevens
      .AutoFilter 1, "3-*"                       'filteren op beginnen met "3-"
      .Offset(1).EntireRow.Delete                'die rijen verwijderen
      .AutoFilter                                'filter terug uitzetten
   End With
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan