Macro verwijdert lijnen maar niet de juiste...

[nuki]

Hallo,

Ik heb het volgende probleem. In een sheet heb ik verschillende data die ik de ene keer analyseer op bijvoorbeeld kolom x en de andere keer op kolom y. Ik zou een macro willen schrijven die me vraagt in welke kolom de data staan die ik wil analyseren en daarna de vraag stelt welke waarde ik zoek. De bedoeling is dat de macro daarna alle lijnen verwijdert die niet gelijk zijn aan de waarde die ik bij de tweede vraag heb ingegeven. Op dit moment heb ik de volgend macro:

Sub test()

Dim MyCol As String
Dim MyVal As Variant
Dim i As Integer

MyCol = InputBox("In welke kolom staat de waarde?", "Kolom", "A")
MyVal = InputBox("Gelieve de waarde in te voeren?", "Zoekwaarde", 0)
For i = 6 To Range(MyCol & "65536").End(xlUp).Row
If Range(MyCol & i).Value <> MyVal Then
Range(MyCol & i).EntireRow.Delete
End If
Next i

End Sub

De macro verwijdert wel lijnen, maar niet de juiste . Ik zit al een paar uren te zwoegen, maar ik zie niet wat ik fout doe. Kan iemand mij helpen?

Alvast bedankt

Nuki

 

[Wigi]

Je moet voor de lus onderaan beginnen.

Want als je zeg maar i=20 verwijdert, wordt rij 21 opgeschoven naar rij 20. En die sla je over want na i=20 komt i=21...

 

[Ginger]

De macro verwijdert wel lijnen, maar niet de juiste

Keurige klassieke fout... Het verwijderen van regels moet je van onderaf doen. Door het verwijderen van de regels zal je variabele i steeds regels gaan overslaan. Met...

For i = Range(MyCol & "65536").End(xlUp).Row to 6 step -1

...zou je meer kans op succes kunnen hebben. Test 't maar ff...

Groet, Leo

[EDIT] Altijd leuk, zo'n fotofinish... ;-))

 

[Warme bakkertje]

Als de waarden cijfers zijn kan onderstaande je vooruithelpen. Werk bij het verwijderen van rijen ook steeds achterstevoren, dit om geen lijnen over te slaan.

Sub test()
Dim MyCol As String, MyVal As Variant, i As Integer
MyCol = InputBox("In welke kolom staat de waarde?", "Kolom", "A")
MyVal = Val(InputBox("Gelieve de waarde in te voeren?", "Zoekwaarde", 0))
    For i = Range(MyCol & "65536").End(xlUp).Row To 6 Step -1
        If Range(MyCol & i).Value <> MyVal Then
            Range(MyCol & i).EntireRow.Delete
        End If
    Next i
End Sub

EDIT: Er zal wel iets van waarheid inzitten want 3x hetzelfde antwoord op 1 min

 

[Ginger]

EDIT: Er zal wel iets van waarheid inzitten want 3x hetzelfde antwoord op 1 min

...en dat terwijl de vraag toch al vanaf 20:36 uur openstaat! Is er een film op tv afgelopen ofzo???

Groet, Leo

 

[nuki]

Het werkt! Een grote merci! :thumb:

 

[Warme bakkertje]

Zonde van al dat zweet.
Zet je de vraag nog even op opgelost(rechts onderaan de pagina)