Et gennemløb via tryk på en knap i VBA er muligt, det lyder dog til at kunne blive lidt tungt, da de ord du skal frasortere måske kan stå i forskellige kolonner, eller er det altid i samme kolonne? Kan du give eksempel på en række med ordene.
Du kan dog også lavpraktisk lave en formel der gennemsøger for ordet (f.eks. til højre for listen) og så have et filter hvor du frasorterer på baggrund af denne formel. F.eks: =Find("rekvisition";kolonnen det står i) Det vil returnere et tal, så derefter frasorterer du tal i dit filter.
Her er en vba som starter nede fra nederste linje (bemærk tager udgangspunkt i data i alle celler i A). Ser om der står dine to ord i cellen i F, og i så fald sletter den linjen. Utestet:
Sub slet_hvis() Dim intLastLine As Integer Dim intL As Integer
For intL = intLastLine To 1 Step -1 If InStr(Cells(intL, 6).Value, "rekvisition") > 1 Then Rows(intL).EntireRow.Delete ElseIf InStr(Cells(intL, 6).Value, "udløber") > 1 Then Rows(intL).EntireRow.Delete End If Next intL
Hej Kim1a Hold nu op hvor er det fedt. Det har løst en stor udfordring for mig.
MANGE MANGE tak.
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.