Excel regneark - slette linier

Hej Coconuts

Er det kun på et ark/sheet eller er det i hele workbook´en ?
Og hvordan skal makroen aktiveres ? ... via en knap på arket ?


Med venlig hilsen, Nicolai

Det er kun på et ark/sheet
enten via en knap på arket eller manuelt aktivering

Velkommen til ...

Jeg kan godt forstå, at du som ny bruger har svært ved at finde rundt i dette forum.
Det er en dog god ting at vide, at denne kategori er beregnet til fejl og forslag ved brug af Eksperten.dk...
Derfor syntes jeg at du burde oprette dit spørgsmål under en anden mere passende kategori
www.eksperten.dk/spm/Programmer/Officepakker/Generelt/

www.eksperten.dk/faq#faq-2-2 ?
Passer denne beskrivelse på dit spørgsmål?:
- NB.: KUN spørgsmål "om" Eksperten i denne kategori. For at få et hurtigt og præcist svar, find den bedst egnede kategori !!!!

http://gratisupload.dk/vis_billede/63279/

Til slut skal/bør du lige at lukke dette spørgsmål, ved selv at lægge et [svar] og efterfølgende sætte flueben i firkanten accepter og afgiv point til dig selv.

---

Hvorfor tager folk fejl ???

---

Public Sub sletRækker()
Dim antalRækker As Long, ræk As Long
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
   
    Application.ScreenUpdating = False
   
    For ræk = antalRækker To 1 Step -1
        If Range("G" & ræk) = 5 Or Range("G" & ræk) = 9 Then
            Rows(ræk & ":" & ræk).Select
            Selection.Delete
        End If
    Next ræk
   
    Application.ScreenUpdating = False
End Sub

Tak - det virker

Tak for dit råd - alt begyndelse er svært

Selv tak - hvis du give point skal du huske, at det kun er forslagsstillere, der lægger et svar. Opgavestiller skal anvende kommentar og acceptere svar, hvis det kan anvendes.