Monday, 26 September 2016

Solution to Error: Delete row

Delete row

I need a macro to Delete the entire row
1.      If duplicates exist in column “E”
AND
2.      If the 3 letter in column “F” are equal
e.g      E2 = E5 = 943125 AND
  F2 = F5 = XYZ   then delete row 2
OR row 5
but if   E2 = E5 = 943125 AND   F2 not equal to F5 then do nothing.
I have a header row in my sheet
Any help is highly appreciated, thank you.

Solutions to the Problem Delete row

Download Error Fixer for Free Now

This starts at the bottom and works its way up to row 1.
It deletes the current row if the values in columns E and F are found below the current row.

Sub mcr_Delete_First_Occurance()
    Dim rw As Long, lr As Long, e As Long, f As Long, app As Application
    Set app = Application
    With ActiveSheet
        lr = .Cells(Rows.Count, 5).End(xlUp).Row
        For rw = (lr - 1) To 1 Step -1
            e = 0
            f = 0
            If Not IsError(app.Match(.Cells(rw, 5), .Cells(rw + 1, 5).Resize(lr - rw, 1), 0)) Then _
                e = app.Match(.Cells(rw, 5), .Cells(rw + 1, 5).Resize(lr - rw, 1), 0)
            If Not IsError(app.Match(.Cells(rw, 6), .Cells(rw + 1, 6).Resize(lr - rw, 1), 0)) Then _
                f = app.Match(.Cells(rw, 6), .Cells(rw + 1, 6).Resize(lr - rw, 1), 0)
            If e = f And CBool(e) Then _
                .Rows(rw).EntireRow.Delete
        Next rw
    End With
    Set app = Nothing
End Sub

Run CHKDSK
  • Go to the Start button.
  • In the Search box, type "cmd" (without quotes) and press Enter.
  • At the command prompt, type "chkdsk /r /f" (without quotes) and press Enter.
  • Restart your computer.

Recommended Method to Repair the Problem: Delete row:

How to Fix Delete row with SmartPCFixer?

1. You can Download Error Fixer here. Install it on your computer. When you open SmartPCFixer, it will perform a scan.

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

3. The Fixing part is finished, the speed of your computer will be much higher than before and the errors have been fixed.


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: Debug Assertion Failed! Message (Visual C++ documentation asserts) Tech Support,How to Fix Problem - Custom tile image for shortcuts?,Solution to Error: Desktop Window Manager,Solution to Error: Deleting extra pages in a worksheet,Fast Solution to Problem: desktop keeps filling up with random folders and marked as shortcuts

No comments:

Post a Comment