VB code om rijen in excel te wissen

[cassie1975]

Hallo

ik heb een probleem, ik moet een macro aanmaken om in een tabel in xl de gelijke waarden te wissen, de gelijke waarden bepalen is niet zo moeilijk het is echter de code om deze te wissen waar ik vastzit aangezien ik nooit weet waar de waarden zich bevinden en hoe groot de tabel gaat zijn die ik in xl importeer.

in bijlage een provisoir voorbeeld hoe het er ongeveer (in het klein) zou kunnen uitzien. Ik dien dus kolom 3 te overlopen en alle cellen die gelijk bevatten de ganse rij verwijderen.

Bekijk bijlage Map1.xlsx

Wat zou hiervan de code zijn om in een macro te importeren.

thx.
Nico

 

[peter59]

Hallo

Kijk eens of je hier mee uit de voeten kan?
http://www.youtube.com/watch?v=XUEYG26PzP4

mvg
Peter

 

[Warme bakkertje]

Sub tst()
    With Sheets("Blad1")
        .Range("C2:C" & .Cells(Rows.Count, 3).End(xlUp).Row).Value = _
                .Range("C2:C" & .Cells(Rows.Count, 3).End(xlUp).Row).Value
        For i = .Range("C65536").End(xlUp).Row To 2 Step -1
            If UCase(.Cells(i, 3).Value) = "GELIJK" Then Rows(i).EntireRow.Delete
        Next
    End With
End Sub