Solution to Problem: delete rows within column range if value exist

delete rows within column range if value exist

Data with headers start at cell A3 over to O3 and the amount of rows down with data may vary.
If the word "apples" exist in column M, i need to delete the row (from A to column O only) without deleting anything past column O.

Anwsers to the Problem delete rows within column range if value exist

Download SmartPCFixer for Free Now

Try this macro:
 
Sub DeleteApples()
    Dim rngFound As Range
    Dim lngRow As Long
    With Range("M3:M" & Rows.Count)
        Set rngFound = .Find(What:="apples", LookAt:=xlWhole, _
            SearchDirection:=xlPrevious, MatchCase:=False)
        If Not rngFound Is Nothing Then
            Do
                lngRow = rngFound.Row
                rngFound.Offset(0, -12).Resize(1, 15).Delete _
                    Shift:=xlShiftUp
                Set rngFound = .FindNext(After:=Range("M" & lngRow))
            Loop Until rngFound Is Nothing
        End If
    End With
End Sub
 
Remarks:
If you're looking for "apples" as part of the cell value, change LookAt:=xlWhole to LookAt:=xlPart.If you're looking for "apples" but not for "Apples", "APPLES", etc., change MatchCase:=False to MatchCase:=True.

If you failed to fix it, another option is to call Microsoft and walk through the process with a technician. To do this, dial "1-800-936-5700". Explain the error that you received and the steps in the update process during which it was displayed. The technician will be able to walk through the steps from getting a new product key to finishing the installation.

Recommended Method to Repair the Problem: delete rows within column range if value exist:

How to Fix delete rows within column range if value exist with SmartPCFixer?

1. Click the button to download SmartPCFixer . Install it on your computer.  Run it, and it will scan your computer. The junk files will be shown in the list.

2. After the scan is done, you can see the errors and problems which need to be repaired.

3. The Repair part is finished, the speed of your computer will be much higher than before and the errors have been removed. You can also use other functions in this software. Like dll downloading, windows updating and print spooler error repair.

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: How Can I Fix - Custom list style problems?,Deleting an email in Outlook outbox,defrag file version is not compatible with my windows version,Fast Solution to Problem: Customize URL address bar - How can I prevent locations from Windows Explorer from appearing in the Address bar?,[Solved] delete rows cued by number of blank cells (VBA script)