Macro to delete certain rows of data within a table

Hello,

I've got a lot of great help and advice from this forum in the past but have hit a brick wall trying to create this macro myself. The example attached details what I want the macro to do and contains some sample data to test.

Basically this button would save a lot of time as the proces is currently done manually.

If somebody could take a quick look it would be greatly appreciated, I don't think it will be difficult for an excel guru to crack.

Extract Rec.xlsx

p's apologies to the moderators for the other random thread I started in error and the sloppy thread title.

Many Thanks

Andrew

The file is not downloading correctly for me.

Can you post the VBA code to the forum aas well as try to reattach it?
Also where is it not working correctly?
Do you know how to walk through code instead of just running it?

Hi, Andrew,

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Ciao,
Holger

Hi Holger, is this ok now? Is this thread locked/ do I need to start again? Thanks

Hi, Andrew,

please give this macro a try:

Sub EF1023431()
Dim lngRC As Long
Dim blnDel As Boolean
For lngRC = Range("A" & Rows.Count).End(xlUp).Row To 4 Step -1
  If WorksheetFunction.CountIf(Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row), Cells(lngRC, "A").Value) > 1 Then
    Select Case Cells(lngRC, "C").Value
      Case "D"
        If blnDel Then Rows(lngRC).Delete
        blnDel = True
      Case "N"
        If blnDel Then Rows(lngRC).Delete
        blnDel = True
      Case Else
        Rows(lngRC).Delete
    End Select
  End If
  If Cells(lngRC, "A").Value <> Cells(lngRC - 1, "A").Value Then blnDel = False
Next lngRC
End Sub

It should be run on a copy with the data of Pre.

How to install your new code

1. Copy the Excel VBA code
2. Select the workbook in which you want to store the Excel VBA code
3. Press Alt+F11 to open the Visual Basic Editor
4. Choose Insert > Module
5. Edit > Paste the macro into the module that appeared
6. Close the VBEditor
7. Save your workbook (Excel 2007+ select a macro-enabled file format, like *.xlsm)

To run the Excel VBA code:

1. Press Alt-F8 to open the macro list
2. Select a macro in the list
3. Click the Run button

HTH,
Holger