Laatste waarden van bepaalde cellen uitlezen

Status
Niet open voor verdere reacties.

Toppe

Gebruiker
Lid geworden
21 aug 2006
Berichten
16
Hi,

Iemand enig idee hoe kan en nieuwe row kan toevoegen tussen 2 bepaalde waardes? Voorbeeld:

Test
Test
Test
Test1
Test1
Test1
Test2
Test2
Test2

Ik wil dus dat hij tussen de laatste Test en de eerste Test1 een extra rij toevoegt... Maar wel automatisch!!

Wel ben ik er achter dat het via de EXACT functie kan, alleen hoe kan ik automatish naar de laatste record van een reeks gaan?

Enig idee?

tnx
 
Laatst bewerkt:
onderstaande Sub voegt een loopt de lijst van onder tot boven langs, en voegt een rij in als de waarde boven cel X niet hetzelfde is als in cel X:

Code:
Sub RijenInvoegen()
Dim i As Long
For i = ActiveSheet.Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row To _
    2 Step -1

If ActiveSheet.Range("A" & i).Value <> _
    ActiveSheet.Range("A" & i - 1).Value Then
    ActiveSheet.Range("A" & i).EntireRow.Insert
End If
Next i
End Sub
Is dat wat je zoekt?
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan