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


Related: How to Update & Download NVidia GeForce 6100/nForce 420 WHQL Certified driver v.178.13,How to Update & Download NVidia GeForce 7600 GS Video Driver v.295.75 Certified,How Can I Update & Download NVidia GeForce 820M Driver v.344.48 WHQL,[Solved] Download NVidia GeForce GTX 560M VGA Driver v.296.17 Certified,Way to Update & Herunterladen NVidia GeForce GT 130M Video Treiber v.295.75 Certified,How to Update & Download SONY SVE14A1X1RH Realtek Ethernet Driver,Where to Download SONY SVS13A2W9ES Bluetooth Driver (Intel) v.2.6 - 2.6.23.40059,Best Way to Update & Download SONY VGN-CR203E Conexant HDAUDIO SoftV92 Data Fax Modem with SmartCP Setup Program v.7.62.0.50 driver,Best Way to Download SONY VGN-FE790G/N Wireless LAN Driver v.10.6.0.29,Method to Update & Download SONY VGN-NR31Z/S Firmware Extension Parser Device v.8.0.2.3,How to Fix Error 0x0000c1f5 Solución?,Error 0x80071a91 Win7 Fix Patch,Error 0x800ccc60 Windows Live Mail [Solved],Error Message 0x800ccc79 Outlook 2000 Fix,What is Error 0xc1ab0001?,[Answered] x64 saplugin dll,How to Fix Problem - Kb943729 Download?,Troubleshooting: Bccode D1 Error,Java Runtime Tech Support,Troubleshooting: ERROR NO SUCH GROUP Error
Read More: Date\/Time manipulation using Excel 2003 [Solved],Debug Assertion Failed! Message (Visual C++ documentation asserts) Tech Support,Troubleshooter of Error: Dashboard help - summing and ranking items,How to Fix - Date Filters in Excel 2007 not working?,Troubleshooting:deleting browsing history won't stop nor will canceling Error

No comments:

Post a Comment