verwijderen rij

[don42]

Beste allemaal,

Wie kan mij helpen met volgende
heb een blad met 4 kolommen

A t/m D

Hoe kan ik een rij via vba verwijderen
als deze dubbel is
En dan bedoel ik dat alle 4 de cellen gelijk zijn

Don

 

[Ginger]

Is geen VBA voor nodig. Heeft MS al een héle krachtige functionaliteit voor gebouwd... Zie een identieke vraag in dit draadje van een weekje geleden...

 

[don42]

Rij met dubbele waardes verwijderen

Hoi
ik ben er mee aan de slag gegaan en heb dit tot nu toe gemaakt (Lees bij elkaar gezocht)

Private Sub CommandButton1_Click()
  Range("a1").Select
   Dim r As Long
    Dim C As Range
     Dim N As Long
      Dim Rng As Range
       On Error GoTo EndMacro
        Application.ScreenUpdating = False
         Application.Calculation = xlCalculationManual
          If Selection.Rows.Count > 1 Then
           Set Rng = Selection
            Else
             Set Rng = ActiveSheet.UsedRange.Rows
              End If
               N = 0
                For r = Rng.Rows.Count To 1 Step -1
                 If Application.WorksheetFunction.CountA(Rng.Rows(r).EntireRow) = 0 Then
                  Rng.Rows(r).EntireRow.Delete
                   N = N + 1
                    End If
                     Next r 'code op de lege rijen te verwijderen
EndMacro:
 Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
Range("A:A").Select
  With Selection
   .HorizontalAlignment = xlLeft
     End With
      Range("a1").Select
       Columns("A:D").Select
        ActiveSheet.Range(Range("a2:d2"), Range("a2:d2").End(xlDown)).RemoveDuplicates Columns:=Array(1), _
         Header:=xlYes 'mogelijk 4 kolommen vergelijken Array(1, 2, 3, 4), nu wordt alleen op kolom A gecontroleerd
          Application.Goto Sheets("Openstaande facturen").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) 'code op de dubbele waardes te verwijderen
End Sub

Nu loop ik tegen het volgende probleem
stel factuur 11030 = 500 euro
daar zit een fout in en wordt gecorrigeerd naar 450 euro
dan heb ik 2 facturen staan met nummer 11030
als ik de code activeer dan zou het handig zijn (dat is ook de bedoeling) dat de laats toegevoegde zou blijven staan,
nu wordt de onderste rij van 2 gelijke waardes gewist
kan dat ook anders om?

Nu voeg ik nieuwe facturen toe
maak de rij leeg waar de factuur instaat die ik niet nodig heb
en draai de code
de wist eerst de lege rij(en)
en haalt dan de dubbel waardes eruit
werkt opzich prima, maar toch het knaagt.

Don