Wednesday, September 21, 2016

Fast Solution to Problem: Condition for deleting a row in a list from conditional formatting

Condition for deleting a row in a list from conditional formatting

I have a macro that bolds a cell through conditional formatting if it meets one or more of my conditions.  I need to manually review the automatically conditionally formatted items to determine if there are any that shouldn't be on the list.  Whatever is
still formatted afterwards should be deleted (the entire row).  Here is the code I came up with:
 
Sub CleanUpData()
Range("E2").Select
Do Until ActiveCell = ""
    If ActiveCell.Font.Bold = True Then
        ActiveCell.Rows.EntireRow.Delete
        Else
        ActiveCell.Offset(1, 0).Select
    End If
Loop
End Sub
 
It doesn't find anything because it looks like conditional formatting doesn't actually use traditional bolding to accomplish the formatting.  Does anyone know how I can re-write this or re-think this to work?  I don't to do the condition and the delete in
one macro.  They need to be separate macros.  Thanks in advance.

Keys to the Problem Condition for deleting a row in a list from conditional formatting

Download Error Fixer (Free)

Using VBA to determine if a cell is under the influence of a conditional format required that you enumerate the conditional formatting rules that may affect the cell and evaluate each one to see if they are true.
Additionally, any formula based conditional
formatting rules must be retrieved as R1C1 formulas then converted to A1 references as they apply to the cell in question in order to use the VBA
Evaluate(...) command.

In short, it is a whole lot easier to simply retest on the original condition that the CF rule was based upon then attempting to see if the CF rule is active.

To begin with, your code should get away from the Select/ActiveCell method and halt both events and screen updating.
When using VBA to delete rows it is best to start at the bottom and work up.
This is a good framework for that.

Sub CleanUpData()
    Dim e As Long
    On Error GoTo FallThrough
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    With ActiveSheet
        For e = .Cells(Rows.Count, "E").End(xlUp).Row To 2 Step -1
            If () Then _
                .Rows(e).EntireRow.Delete
        Next e
    End With
FallThgrough:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

If you can supply the formula or a description of the condition that turns the cell bold, then I can add to the code snippet supplied above.

If you are absolutely determined to adjudicate the conditional formatting rule, have a look at my solution in

the following thread,

ConvertFormula where the formula
does not vary relative to cell but should

Boot in Safe Mode:

  • Open Run command as previously described
  • Type MSConfig
  • Click on Boot tab
  • Tick Safe boot in Boot option
  • Select Network
  • Click Apply and OK
  • Reboot your system

Your system will boot in Safe mode with Networking. You may now try and open Windows Store and should not see any errors.

Another Safe way to Fix the Problem: Condition for deleting a row in a list from conditional formatting:

How to Fix Condition for deleting a row in a list from conditional formatting 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 junk files will be shown in the list.

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

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


Related: Best Way to Download Satellite L645-SP4004M WinDVD BD for Toshiba v.10.0.6.110 driver,Download Toshiba Satellite C655D-S5057 Wireless LAN Driver v.8.0.0.258.0,Method to Update & Download Toshiba Satellite L650-BT2N22 Web Camera Application v.2.0.3.37 driver,How Can You Update & Download Toshiba Satellite L775D-S7220GR Value Added Package v.1.6.0130.640204 driver,Download Toshiba Satellite Pro L750-SP5176FM Sleep Utility v.1.4.0025.000101 driver,Best Way to Download NVidia GeForce 6100 VGA Driver v.304.51 Certified,How Can You Update & Download NVidia GeForce 9300/nForce 730i VGA Driver v.310.19 Certified,Method to Download NVidia GeForce GT 330M Driver v.340.65,How Can I Update & Download NVidia GeForce GTX 590 Driver v.280.26 WHQL,Method to Download NVidia Tesla C2050 Driver v.319.17,Way to Download RealTek RTL8100C(L) Driver v.5.01,Way to Download RealTek RTL8100E Drivers v.694,Way to Update & Download RealTek RTL8101L Auto Installation Program v.6.110 driver,Method to Update & Download RealTek RTL8111G PXE and RPL ROM code v.2.58 driver,How to Update & Download RealTek RTL8411B(N) Driver v.10.003,Best Way to Update & Download ASUS A53SV nVidia Graphics Driver v.8.17.12.6686,Method to Herunterladen ASUS K75VJ Intel Rapid Storage Technology Treiber v.11.6.0.1030,How Can You Update & Download ASUS CG8580 Intel Chipset Driver v.9.3.0.1019,Method to Update & Download ASUS K41VD Intel INF Update Driver v.9.1.1.1015,Way to Update & Download ASUS Pro70T NB Probe v.3.0.0026 driver
Read More: How to Fix - Computer freezes up after more than an hour. All fans are operational and doesn't freeze with safe boot. With clean boot and Norton 360 it DOES freeze up. What gives?????,connecting to store through WIFI,Troubleshoot:Computer will sleep after 60 seconds,configurazione Windows Media Player impostazione,Fast Solution to Problem: conditional formatting based on difference in value of two cells,Can't change homegroup sharing permission,Can't connect XP shared printer to Win7 except as a local printer.__,Can You Connect the LAN Adapter for Wii On your Windows 7 Laptop?,Can These Files Be Deleted,Can’t install Microsoft Flight Simulator X Gold Edition error 1722

No comments:

Post a Comment