davylenders123
Gebruiker
- Lid geworden
- 20 jun 2010
- Berichten
- 902
Heb reeds via dit form volgende code bekomen.
Deze zoekt in kolom a naar nummers die starten met 3- en verwijderd dan deze rijen.
Nu is er wat gewijzigd aan het bestand en moet ik met 2 tabbladen gaan werken.
In de code staat ActieveScheet , maar dit moet ik nu gaan wijzigen dat hij naar het tabblad gaat met de naam "15 25" hoe doe ik dat juist ?
Ook zou ik de autofilter op meer zaken willen laten zoeken.
7-201 zou ook verwijderd moeten worden zoals de 3- nummer
7-301 zou ook verwijderd moeten worden zoals de 3- nummer
En als in kolom c de cel leeg is deze ook verwijderen.
Mijn code tot nu toe is , en deze laat ik draaien op de csv in bijlage
Code:
With ActiveSheet.Range("A3").CurrentRegion 'je gegevens
.AutoFilter 1, "3-*" 'filteren op beginnen met "3-"
.Offset(1).EntireRow.Delete 'die rijen verwijderen
.AutoFilter 'filter terug uitzetten
End With
Deze zoekt in kolom a naar nummers die starten met 3- en verwijderd dan deze rijen.
Nu is er wat gewijzigd aan het bestand en moet ik met 2 tabbladen gaan werken.
In de code staat ActieveScheet , maar dit moet ik nu gaan wijzigen dat hij naar het tabblad gaat met de naam "15 25" hoe doe ik dat juist ?
Ook zou ik de autofilter op meer zaken willen laten zoeken.
7-201 zou ook verwijderd moeten worden zoals de 3- nummer
7-301 zou ook verwijderd moeten worden zoals de 3- nummer
En als in kolom c de cel leeg is deze ook verwijderen.
Mijn code tot nu toe is , en deze laat ik draaien op de csv in bijlage
Code:
Sub Temp()
' Dit stukje gaat eerst het tabblad wijzigen in de naam dat in A1 staat en vervolgens het tabblad kopieren en namen ervan wijzigen
Dim rs As Worksheet
For Each rs In Sheets
rs.Name = rs.Range("A1")
Next rs
Sheets("Route").Select
Sheets("Route").Copy Before:=Sheets(1)
Sheets("Route").Select
Sheets("Route").Name = "2 8"
Sheets("Route (2)").Select
Sheets("Route (2)").Name = "15 25"
'Dit stukje code gaat in kolom A opzoek naar 3- en verwijderd dan de volledige rij.
With ActiveSheet.Range("A3").CurrentRegion 'je gegevens
.AutoFilter 1, "3-*" 'filteren op beginnen met "3-"
.Offset(1).EntireRow.Delete 'die rijen verwijderen
.AutoFilter 'filter terug uitzetten
End With
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