Best System Error Solution: Fast Solution to Error: Deleting data from one sheet based on criteria/data from a separate sheet

Monday, 26 September 2016

Fast Solution to Error: Deleting data from one sheet based on criteria/data from a separate sheet

Deleting data from one sheet based on criteria/data from a separate sheet

Here is the link to the file in question: https://skydrive.live.com/redir?resid=B3A26668CE545451!153&authkey=!ACf4cq0ltRsQUC4

"Original" worksheet is the final dataset I will be loading into a database

"Removals" worksheet is data that should be removed from the "Original" worksheet.

Basically,if the information in the "ID", "Role", and "Location" columns in the "Removals" sheet matches the same information in the same columns in the "Original" worksheet, that information should be deleted from "Original".
Hope that helps.

Thank you.

Anwsers to the Problem Deleting data from one sheet based on criteria/data from a separate sheet

Download SmartPCFixer for Free Now

I believe your best course of action would be a VBA driven AutoFilter.
Tap
Alt+F11 and when the VBE opens, immediately use the pull-down menus to Insert, Module.
Paste the following into the new pane titled something like
Book1 - Module1 (Code),

Sub mcr_Remove_Originals()
Dim rf As Range, wsO As Worksheet, wsR As Worksheet
Set wsO = Sheets("Original")
Set wsR = Sheets("Removals")
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

With wsO.Cells(1, 1).CurrentRegion
For Each rf In wsR.Cells(2, 1).Resize(wsR.Cells(Rows.Count, 1).End(xlUp).Row - 1, 1)
.AutoFilter
.AutoFilter Field:=1, Criteria1:=rf.Value
.AutoFilter Field:=4, Criteria1:=rf.Offset(0, 3).Value
.AutoFilter Field:=5, Criteria1:=rf.Offset(0, 4).Value
If CBool(Application.Subtotal(102, .Columns(1))) Then _
.Offset(1, 0).EntireRow.Delete
Application.StatusBar = rf.Row
Next rf
.AutoFilter
End With

Set wsR = Nothing
Set wsO = Nothing
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.StatusBar = vbNullString
End Sub

Tap Alt+Q to return to your workbook.
Tap Alt+F8 to open the
Macros dialog and Run the macro.
It should take a few seconds to run through.
I've tested this with your workbook and double-checked with COUNTIFS() before and after.
It removes 181 entries which seems to be correct.

How to Avoid Downloading Malware

Where are you getting the download?

There are malicious people who download valid copies of a popular download, modify the file with malicious software, and then upload the file with the same name. Make sure you are downloading from the developer's web page or a reputable company.

Cancel or deny any automatic download

Some sites may automatically try start a download or give the appearance that something needs to be installed or updated before the site or video can be seen. Never accept or install anything from any site unless you know what is downloading.

Avoid advertisements on download pages

To help make money and pay for the bandwidth costs of supplying free the software, the final download page may have ads. Watch out for anything that looks like advertisements on the download page. Many advertisers try to trick viewers into clicking an ad with phrases like "Download Now", "Start Download", or "Continue" and that ad may open a separate download.

Recommended Method to Fix the Problem: Deleting data from one sheet based on criteria/data from a separate sheet:

How to Fix Deleting data from one sheet based on criteria/data from a separate sheet with SmartPCFixer?

1. Click the button to download Error Fixer . Install it on your system. Open it, and it will perform a scan for your system. The junk files will be shown in the list.

2. After the scan is finished, you can see the errors and problems need to be fixed. Click Fix All.

3. When the Fixing part is finished, your computer has been speeded up and the errors have been removed

Best System Error Solution