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
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