CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede piphans Nybegynder
28. august 2006 - 13:19 Der er 3 kommentarer og
1 løsning

Macro der sletter rækker over og under en given celle med bestemt

Nogen der kan hjælpe mig? Jeg skal bruge en makro der løber igennem et ark

Leder efter celler i kolonne C der indeholder teksten REKV
Sletter rækken samt rækken under og 3rækker over (fem rækker i alt hvor REKV står i fjerde række)

Herefter skal søgning foretages igen indtil der ikke længere er celler med teksten REKV
Avatar billede excelent Ekspert
28. august 2006 - 14:02 #1
Sub FindTxt()
Dim x
For x = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(x, 3) = "REKV" Then
Range("C" & x - 3 & ":C" & x + 1).EntireRow.Delete
End If
Next

End Sub
Avatar billede excelent Ekspert
28. august 2006 - 16:36 #2
hvis ordet REKV ikke er det eneste i cellerne så prøv denne:

Sub xFind()
Dim x
For x = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(x, 3) Like "*REKV*" Then
Range("C" & x - 3 & ":C" & x + 1).EntireRow.Delete
End If
Next
End Sub
Avatar billede piphans Nybegynder
29. august 2006 - 15:17 #3
Hvor er det bare godt!

Hvad med lige at smide et svar i stedet for en kommentar. Så har jeg meget nemmere ved at komme af med mine points :O)
Avatar billede excelent Ekspert
29. august 2006 - 17:15 #4
ok kommer 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
Kategori
Excel kurser
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Betinget formatering Af Ninna i Excel 1 I går 13:03 I går 19:56
Opdater et ark Af lurup i Excel 2 22/07/202422:23 I går 16:41
Dato skema Af Ninna i Excel 7 22/07/202414:58 I går 19:55
Betinget formatering Af boro23 i Excel 2 22/07/202410:58 I går 07:14
Problem med beregning af alder udfra cpr-nummer; formel giver talfejl pga. nul i CPR Af HR Excel-bruger i Excel 6 16/07/202416:31 17/07/202408:36
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 21:08 Hvor kan man se Alan Turings mekaniske apparat til at løse Enignas koder Af KurtG i Andet hardware
I går 18:46 Kan det passe ;-) Af fjorbak i Routere & Switches
I går 15:27 Billeder kan ikke åbnes Jpeg.modd Af KristinaS i Billedbehandling
I går 13:44 eM Client Af valby i E-mail programmer
I går 13:33 Facebook gruppe Af Btimmer i Sociale medier
White papers
Flere white papers »


Premium
Teaser billede
Det er blevet kaldt ”det største it-nedbrud i historien” og omkostningerne kan nemt løbe op i syv milliarder kroner: Men hvem skal betale for Crowdstrikes fejl?
Læs mere »
Europas største software-leverandør stryger frem på cloud-fronten – men 97 procent af overskuddet er forduftet
Frustrerede synshaller og billister: Motorstyrelsens it-system plages af store driftsforstyrrelser
Fire år gamle Wiz takker nej til Alphabets historiske opkøbstilbud på 160 milliarder kroner: Satser i stedet på børsnotering
Se alle »
Computerworld
Teaser billede
Microsoft-nedbrud spreder sig: It-systemer i lufthavne verden over er ramt
Læs mere »
Test: Denne mikro-pc er smartere end de stærkeste desktop-maskiner - men flopper alligevel
Elon Musk dropper CrowdStrike efter kæmpe nedbrud
Hundredevis af flyafgange ramt af stort Microsoft-nedbrud
Se alle »
CIO
Teaser billede
Microsoft er på sagen: I gang med at løse kæmpe nedbrud efter katastrofal Crowdstrike-fejl
Læs mere »
Så mange Microsoft-enheder blev ramt af gigantisk Crowdstrike-koks
Peter Lüth udlever CTO-drømmen: Bygger et system fra bunden og tjener kassen på det
Sådan forbereder energiselskabet OK sig på cyberangreb: "Prisen for ikke at gøre noget kan være forfærdeligt høj"
Se alle »
Job & Karriere
Teaser billede
Efter 12 år er NNIT's hovedkvarter i Søborg nu ryddet og tomt - alle arbejder hjemme: "Det er med et vist vemod"
Læs mere »
Norlys skal splittes op i fem selskaber: Nu bliver flere ansatte og ledere fyret
Dansk top-profil trækker sig fra Microsoft: Skal være direktør i TDC Erhverv
KMD-direktør forlader selskabet: Det skal hun nu
Se alle »
White paper
Teaser billede
Optimering af Source-to-Pay: Identificér oplagte gevinster og skær omkostninger
Læs mere »
Sådan får du overblik og beskytter dine cloudapplikationer
Sådan gør du: Elektronisk dokumentudveksling i praksis
SASE: Træf det rette valg – første gang
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »