Relleboer
Gebruiker
- Lid geworden
- 6 okt 2006
- Berichten
- 264
Code:
Sub Lijst_bewerken()
'Verwijder van waarden zonder Hp-code
Sheets(1).Cells(1, 1).EntireColumn.Delete
For a = Sheets(1).Cells(1, 1).End(xlDown).Row To 1 Step -1
If Sheets(1).Cells(a, 3) = "" Then Sheets(1).Cells(a, 3).EntireRow.Delete
Next a
'Status van codes controleren
Sheets(1).Cells(2, 12).FormulaR1C1 = _
"=+IFERROR(VLOOKUP(RC[-9],'ABCK lijst'!C[-11]:C[-6],6,FALSE),"""")"
Range("L2").AutoFill Destination:=Range(Cells(2, 12), Cells(2, 12).End(xlDown))
'Verwijderen van codes zonder status (half fabrikaten)
For rij = Sheets(1).Cells(1, 1).End(xlDown).Row To 1 Step -1
If Sheets(1).Cells(rij, 12).Value = "" Then Sheets(1).Cells(rij, 12).EntireRow.Delete
Next rij
End Sub
Iemand enig idee waarom dit zelf met een data lijst van 200 regels een paar minuten duurt terwijl in office 2003 geen probleem en zo klaar