slet række hvis

Denne sletter hele rækken hvis:

Sub Slet_i_C()
Range(Range("C1"), ActiveCell.SpecialCells(xlLastCell)).Select
For Each c In Selection
If Left(c, 2) = "pl" Then x = x & c.Address & ","
Next
Range("" & Left(x, Len(x) - 1) & "").EntireRow.Delete
End Sub

Jeg kan ikke få den til at virke den kommer med den fejl og det er vist i denne række
Range("" & Left(x, Len(x) - 1) & "").EntireRow.Delete

prøv udskift med denne

Sub Slet_i_C()
Dim x, c
Range(Range("C1"), ActiveCell.SpecialCells(xlLastCell)).Select

For Each c In Selection
If Left(c, 2) = "pl" Then x = x & c.Address & ","
Next

If x <> "" Then Range("" & Left(x, Len(x) - 1) & "").EntireRow.Delete

End Sub

vent lige et øjeblik

Så skulle den gerne virke

Sub Slet_i_C()
Dim x, c, rk
rk = Cells(65500, "C").End(xlUp).Row
Range("C1:C" & rk).Select

For Each c In Selection
If Left(c, 2) = "pl" Then x = x & c.Address & ","
Next

If x <> "" Then Range("" & Left(x, Len(x) - 1) & "").EntireRow.Delete

End Sub

Har lige prøvet jeg kan ikke få den til det, er det mig der gør noget forkert

Den skal ind i et almindeligt modul

i arket tast ALT+F11
i menuen Insert vælger du Module
indsæt koden der

hvis du evt. han indsat den andet sted så slet

Hvis det ikke hjælper, så paste lige fejltekst her

Så bliver det for teknisk for mig, det jeg plejer med makro er at kopier den herfra og ind i en makro.

ellers send filen til pm@madsen.tdcadsl.dk

Jeg har sendt den

Er sendt retur - virker ok :-)

ok velbekom