Regel verwijderen

[Jack Nouws]

Hallo

Ik zou graag een regel verwijderen als de waarde in diezelfde regel in kolom C en D gelijk is met elkaar. Hoe zou ik dat met een VBA formule kunnen oplossen?

Met vr gr
Jack

 

[Wigi]

In 1 van uw vele eerdere topics staat al code van jou die heel dicht in de buurt komt.

http://www.helpmij.nl/forum/showthread.php?t=399129

 

[Jack Nouws]

In 1 van uw vele eerdere topics staat al code van jou die heel dicht in de buurt komt.

Stuur je me dan deze richting op?

Met vr gr
Jack

If c.Value = KolomE.Text And c.Offset(0, 1).Value = KolomF And c.Offset(0, 2).Value = KolomG.Text Then
                    c.EntireRow.Delete

 

[Warme bakkertje]

Jack, als eerste vraag wil je kolom C en D vergelijken maar volgens jouw formule krijg ik vrij vertaald (syntax is niet helemaal correct) iets als: Als D=E en E=F en F=G dan ...
Welke wil je ?

Mvg

Rudi

 

[Jack Nouws]

Als D=E en E=F en F=G dan ... Welke wil je ?

Rudi,

Dat stukje code dat er stond heb ik zomaar even uit een andere code gekopieerd omdat volgens mij WIGI mij deze kant op wilde sturen. En ik denk als ik kolom C en D met elkaar moet vergelijken dat dan dit stukje aardig in de buurt komt . Als ik het mis heb dan hoor ik dat graag.

Met vr gr Jack

If c.Value = KolomD.Text And c.Offset(0, 1)

 

[Roncancio]

Dit gaat zo niet werken.

- Aan het eind van een If hoort een Then
- Na de And moet nog een voorwaarde gedaan worden.

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

llo Roncancio,

Na wat puzzelen ben ik hier op uit gekomen. Zou jij me kunnen vertellen of ik zo in de goeie richting zit?

Met vr gr
Jack

 Sub verwijder_regel()
Dim c As Range

            For Each c In Worksheets("gegevens").Range("C3:C100")
                If c.Value = KolomD.Text And c.Offset(0, 1).Value Then
                    c.EntireRow.Delete
                        MsgBox ("De gegevens zijn uit de database verwijderd!")
                    Unload Me
                End If
            Next
End Sub

 

[Warme bakkertje]

 Sub verwijder_regel()
Dim c As Range

            For Each c In Worksheets("gegevens").Range("C3:C100")
                If c.Value = c.Offset(, 1).Value Then
                    c.EntireRow.Delete
                        MsgBox ("De gegevens zijn uit de database verwijderd!")
                    Unload Me
                End If
            Next
End Sub

Mvg

Rudi

 

[Jack Nouws]

Hallo rudi

Ik heb er voor gekozen om niet de hele rij te verwijderen maar alleen de inhoud, zo blijft m'n opmaak intact.
Nu wil ik hebben dat het geheel ook gelijk mee gesorteerd wordt om de lege rijen er tussen uit te halen kan dit zo?
Tevens wil ik ook dat m'n formules intact blijven in kolom "L".

Sub Macro2()
Dim c As Range
Application.ScreenUpdating = False
    laatsteregel = Range("B" & Rows.Count).End(xlUp).Row
            For Each c In Worksheets("blad1").Range("D5:D100")
                If c.Value = c.Offset(, 1).Value Then
                    c.EntireRow.ClearContents
                End If
            Next
        MsgBox ("De gegevens zijn uit de database verwijderd!")
    Range("B5:L" & laatsteregel).Sort Key1:=Range("L5"), Order1:=xlDescending
    Range("L5").AutoFill Destination:=Range("L5:L100"), Type:=xlFillDefault

Application.ScreenUpdating = True
End Sub

Met vr gr
Jack