Sletning af rækker

mener du at BEGGE rækker skal slettes ?

og nej ingen excel funktion kan slette rækker
der skal vba til eller det skalgøres manuelt

Ja, begge rækker skal slettes.
Grunden er, at den første række bliver oprettet sammen med klienten. Når han afsluttes oprettes endnu en række, med samme klientnummer. Med andre ord, når klienten er afsluttet skal han slettes i begge rækker...

prøv denne kode
(sletter hele rækken, hvis der er 2 el. flere af en slags)
husk evt. at lave en backup

Sub SletDubletter() ' Slet i markeret kolonne
Dim c, r, t, t2
If Selection.Columns.Count > 1 Then MsgBox ("Kun 1 kolonne!"): Exit Sub
c = ActiveCell.Column
r = Cells(65500, c).End(xlUp).Row
For t = 1 To r
If Cells(t, c) <> "" Then
For t2 = t + 1 To r
If Cells(t, c) = Cells(t2, c) Then
Cells(t2, c).EntireRow.Delete
End If
Next
Cells(t, c).EntireRow.Delete
End If
Next
On Error Resume Next
Selection.Columns.SpecialCells(xlCellTypeBlanks).Rows.Delete Shift:=xlUp
If MsgBox("Skal liste sorteres", vbYesNo, "Fjern dubletter") = vbYes Then
Selection.Sort Key1:=Range(ActiveCell.Address), Order1:=xlAscending
End If
ActiveCell.Select
End Sub

indsæt koden i et alm. modul, marker aktuel kolonne og kør

vent lige med koden skal rettes lidt til

så skulle den virke,-
sletter rækker med værdi der forekommer 2 gange

Sub SletDubletter() ' Slet i markeret kolonne
Dim c, r, t, t2
If Selection.Columns.Count > 1 Then MsgBox ("Kun 1 kolonne!"): Exit Sub
c = ActiveCell.Column
r = Cells(65500, c).End(xlUp).Row
For t = 1 To r
If Cells(t, c) <> "" Then
For t2 = t + 1 To r
If Cells(t, c) = Cells(t2, c) Then
Cells(t, c) = "*": Cells(t2, c) = "*"
End If
Next
End If
Next
For t = r To 1 Step -1
If Cells(t, c) = "*" Then Cells(t, c).EntireRow.Delete
Next
ActiveCell.Select
End Sub

Det var satme skarpt!!!
Præcis hvad jeg manglede... Utroligt mange tak!

Har prøvet det idag herhjemme, prøver det lige på arbejde i morgen i det rigtige ark! Men det ser ud som om det fungerer!!!

For satan det var lækkert!!!

lol velbekom :-)

så skal du blot markere box med mit navn og klik accepter