Troubleshooting: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.

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

Download Error Fixer 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.

Tweak IE Options

• Open Internet Explorer.
• Go to "Tools > Internet Options > Advanced Tab".
• Uncheck "Enable third-party browser extensions".
• Click "Apply".
  
• Reboot your computer.

Recommended Method to Fix 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 system.  Open it, and it will perform a scan for your system. The errors will be shown in the scan result.

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

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

Related: Babylon dictionary doesn t pop up when I use its activation hotkey on a text in Windows environment realtek drivers download Does a Windows 7 Installer Cleanup Utility exist realtek audio driver windows 7 I have multiple updates eleven that will not install on Windows 7 Pro This has been an issue for many months Please help realtek audio driver windows 7 Printing messages on Windows Mail realtek drivers download Sporadic Windows Explorer has stopped working even after hot fixes and repair install realtek driver Windows 7 won t load to login screen it keeps loading starting windows fixed realtek audio driver download Windows Server 2003 64bit Terminal Server has 2 mouse pointers when connecting via RDP realtek audio drivers three Scroll as a result of the record of hardware set up until you come across “Enhanced Display” listed.,Office 2103 - Word Works, Excel Won't Even Load.,Start Excel In Fullscreen Mode,Cannot Connect To Home Network After Connecting To Internet At Duke University,Error Code 1402 : HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\OptionalComponents\MSFS,Windows Update Install Error Code 8007371C
Read More: Unable to submit the page information in IE 6 [Solved],[Solved] sending word doc in windows live mail.,Solution to Problem: What does total available graphics memory mean ?,Solution to Problem: Delete all text in a column,Troubleshooter of Error: Auto open Document Properties in Word,Screen flickers while browsing. __,Want to stop Word from asking me if I want to merge documents(Office),Qualcom Atheros,Windows 7 - Black Screen,IE 8 on windows 7 or 8? I need it to access business portals that do not support 9 or higher