Prøv med denne kode: Vær opmærksom på, at den sletter kun hvis ordet er med småt (test) ikke (Test).
Sub slette_test() Dim iLastRow As Long Dim i As Long iLastRow = Cells(Rows.Count, "D").End(xlUp).Row For i = iLastRow To 1 Step -1 If Cells(i, "D").Value = "test" Then Rows(i).Delete End If Next i End Sub
Hej Ebea Din kode virker - men hvis der nu f.eks. står "test KFN" så sletter den ikke. Kan det kodes så den bare kigger efter "test" plus hvad end der så ellers måtte stå. Og skal kodelinjen skrives to gange for at fange store som små bogstaver?
Hej Jan Det havde absolut sin effekt at rette >1 til >0. Har ingen ide om hvorfor - men pyt, det virkede.
Jeg har dog samme udfordring som det andet forslag - den sletter kun præcis hvad der står i " ". Kan det laves så den sletter når ordet "test" indgået - uagtet om det er store eller små bogstaver, bare ordet står i cellen i den pågældende række?
#4 - Så skal du over i at bruge noget Filter funktion, eller lave et Array hvor du indsætter de mulige ord kombinationer der kan forekomme. Her er en mulighed med at benytte Filter.
Sub slette_test() With ActiveSheet .AutoFilterMode = False With Range("A1", Range("D" & Rows.Count).End(xlUp)) .AutoFilter 1, "test*" On Error Resume Next .Offset(1).SpecialCells(12).EntireRow.Delete End With .AutoFilterMode = False End With End Sub
Synes godt om
1 synes godt om dette
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
