Avatar billede Butterfly Ekspert
24. august 2015 - 10:58 Der er 8 kommentarer og
1 løsning

Slette række, hvis tekst starter med N

Hej
Hvordan laver jeg en makro der sletter alle de rækker, hvor teksten starter med N, teksten står i kolonne B. Makroen skal søge alle rækker igennem. Der er ingen blanke celler i kolonne B.
Avatar billede supertekst Ekspert
24. august 2015 - 11:13 #1
Public Sub sletRækkerB_N()
Dim antalræk As Integer, rækNr As Integer
    antalræk = ActiveCell.SpecialCells(xlLastCell).Row
   
    For rækNr = antalræk To 1 Step -1
        If Left(Range("B" & rækNr), 1) = "N" Then
            Rows(rækNr & ":" & rækNr).Select
            Selection.Delete
        End If
    Next rækNr
End Sub
Avatar billede Butterfly Ekspert
25. august 2015 - 08:49 #2
Makroen gør det den skal, men den går i stå i denne linje
  If Left(Range("B" & rækNr), 1) = "N" Then
Avatar billede supertekst Ekspert
25. august 2015 - 09:20 #3
Går ud fra det er ved en Debug-visning - så PEG på rækNr i linjen og aflæs rækkenummer.
Avatar billede supertekst Ekspert
25. august 2015 - 09:40 #4
PS: Har du placeret VBA-koden under det relevante ark?
Avatar billede Butterfly Ekspert
25. august 2015 - 09:45 #5
Ja det har jeg nu og får beskeden "Type mismatch"
Avatar billede supertekst Ekspert
25. august 2015 - 10:13 #6
Hvor mange rækker der tale om?
Jeg har kørt test på uden problemer.
Avatar billede supertekst Ekspert
25. august 2015 - 10:47 #7
Prøv at ændre følgende:
Dim antalræk As Long, rækNr As Long
Avatar billede Butterfly Ekspert
27. august 2015 - 08:30 #8
Det var fordi rækkerne startende med N ikke står først og ikke står i rækkefølge. Det er en blanding af tekst startende med N, tal og "I/T".
Problemet løste jeg med betinget formatering, så nu virker det perfekt.

Jeg vil også gerne slette rækker med tal, hvad skal der så stå i den række
Dim antalræk As Long, rækNr As Long?
for den virker ikke til tal.

Kan jeg kæde de to makroer sammen, så de kører på én gang?
Avatar billede supertekst Ekspert
27. august 2015 - 09:15 #9
Jeg stopper her..
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester