Jump to content
Sign in to follow this  
Minus

Makro i excel for fjerning av rad med visse tekststrenger

Recommended Posts

Hei,

 

er utrolig dårlig i excel, men ønsker likevel å bli flinkere og jobbe effektivt.

 

Har et regneark der jeg ønsker å fjerne rader med visse tekstrenger med makro. Tenkte at denne makroen enkelt kan bygges ut slik at den kan brukes i andre regneark også.

 

Bare for å ta et eksempel:

 

Gul

Grønn

Blå

Rød

 

Jeg ønsker å kunne fjerne alle som enten ikke er gul, eller alle som er grønn, blå og rød.

Dette gir det samme resultatet, men jeg ser for meg at sistnevnte kanskje er enklere å tilpasse til mitt bruk.

Share this post


Link to post

Hei

 

Å slette data er en brutal og ugjenkallelig operasjon. Er det ikke bedre å bruke filter til å skjule det du ikke trenger å forholde deg til i øyeblikket?

 

Beste hilsen Harald

Share this post


Link to post

Takk for raskt svar og godt forslag. Jeg er enig i at filter sannsynligvis er en god måte å løse det på, men hvis mulig er jeg fortsatt interessert i en "slett rad"-løsning.

Edited by Minus

Share this post


Link to post

Ok da. Men ta det forsiktig.

Option Explicit
Option Compare Text

Sub Killem()
Dim R As Long, C As Long, RL As Long
Dim S As String
S = InputBox("Slett rader der kolonne " & ActiveCell.Column & " sier:", "Kill", ActiveCell.Value)
If StrPtr(S) = 0 Then Exit Sub
C = ActiveCell.Column
RL = Cells(ActiveSheet.Rows.Count, C).End(xlUp).Row
For R = RL To 1 Step -1
    If Cells(R, C).Value = S Then Rows(R).Delete
Next
End Sub

Beste hilsen Harald

Share this post


Link to post

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
Sign in to follow this  

×
×
  • Create New...