anton44
Verenigingslid
- Lid geworden
- 20 mei 2005
- Berichten
- 1.597
Rijen met dubbele informatie verwijderen.
Huidige methode duurt relatief lang bij groot aantal rijen (> 600)
In het voorbeeld heeft kolom AI een unieke code voor de regel (samengevoegd de journaaldatum en volgnummer) en wordt in kolom AJ een code gegenereerd voor enkel (1) of dubbele (2) vermelding.
De bedoeling is de rijen met 2 te verwijderen.
Gedachtegang:
Stap1. Formule kopiëren regel 8 niet vanaf AJ6 maar vanaf de laatste gevulde cel in AJ - dit rijnummer vastleggen voor stap2
Stap2. Zoeken van rijen met 2 (dubbele) niet vanaf AJ6 maar vanaf het eerder vastgelegde rijnummer in stap1
Stap3. Vastgelegd rijnummer stap1 wissen.
Huidige methode duurt relatief lang bij groot aantal rijen (> 600)
Code:
Sub B06_Dubbelingen_VB() 'Dubbelingen markeren
02 Application.ScreenUpdating = False
04
06 ActiveWorkbook.Worksheets("Bank").Select
08 Range("AJ4").Copy Destination:=Range("AJ6:AJ" & [A1200].End(xlUp).Row)
10
12 'Dubbelingen verwijderen
14 ActiveWorkbook.Worksheets("Bank").Select
16 With Sheets("Bank")
18 For i = .UsedRange.Rows.Count To 1 Step -1
20 If IsNumeric(Left(.Cells(i, 36), 36)) Then 'de 36 staat voor de 36e kolom
22 If (.Cells(i, 36).Value) = 2 Then .Cells(i, 36).EntireRow.Delete
24 End If
26 Next
28 End With
30
32 Range("b3:b" & [A1200].End(xlUp).Row).Name = "Cellenbereik"
34 For Each cell In Range("Cellenbereik")
36 If cell = "" Then cell.Offset(, 1) = cell.Offset(, 5).Value
38 Next
40
42 Call Naar_Laatste_Regel
End Sub
In het voorbeeld heeft kolom AI een unieke code voor de regel (samengevoegd de journaaldatum en volgnummer) en wordt in kolom AJ een code gegenereerd voor enkel (1) of dubbele (2) vermelding.
De bedoeling is de rijen met 2 te verwijderen.
Gedachtegang:
Stap1. Formule kopiëren regel 8 niet vanaf AJ6 maar vanaf de laatste gevulde cel in AJ - dit rijnummer vastleggen voor stap2
Stap2. Zoeken van rijen met 2 (dubbele) niet vanaf AJ6 maar vanaf het eerder vastgelegde rijnummer in stap1
Stap3. Vastgelegd rijnummer stap1 wissen.