VBA Code for Deleting Rows based on Formulated Cell Range and also Hiding Specific Columns

BlakeBurns20

New Member
Joined
Feb 23, 2022
Messages
3
Office Version
  1. 365
Platform
  1. Windows
I am having issues finding a Code that will mass delete rows within a table, who's cells are blank due to an If and xLookup formula that returns "". I am also wanting to hide columns Example (G,K,L,N,P) within the same code. Any help is appreciated.
 

Excel Facts

Control Word Wrap
Press Alt+Enter to move to a new row in a cell. Lets you control where the words wrap.

BlakeBurns20

New Member
Joined
Feb 23, 2022
Messages
3
Office Version
  1. 365
Platform
  1. Windows
Seq.ABBRDescription#MenDuration HoursQtyLF AUTOLF MANMHSPHASEEquipment #DisciplineResourceCo.ActnoPerf. FactorPF HoursNotes
0100BUILD SCAFFOLD29EA-141N]/[@MHS],0)]1.029
010011.001PREEA-141NGS-SCAFTAR1
0100SCAF-15SCAFFOLDING BUILD - 15' HIGH3,EST.TABLE[Abbr],EST.TABLE[[ MH Labor FCT]],"",0)]9.34]="",[@Qty]*[@[LF MAN]],[@Qty]*[@[LF AUTO]])]28PREEA-141NPIPEGS-SCAFTAR]="",[@MHS],[@[Perf. Factor]]*[@MHS])]282 SCAFFOLDS WILL NEED 2 DECKS AND 1 SCAFFOLD ONLY NEEDS 1 DECK
01000EA-141N0
01000EA-141N0
01000EA-141N0
01000EA-141N0
01000EA-141N0
01000EA-141N0
01000EA-141N0
01000EA-141N0
0110REMOVE HORIZONTAL BEAM4/[@['#Men]],"")]518EA-141N]/[@MHS],0)]1.018
0110OBTAIN PERMIT & COMPLETE JSA11.001PREEA-141NGS-BM/IWTAR1
0110SUPPORT CONDUIT62.0012PREEA-141NGS-ELTAR12
0110REMOVE BEAM TO PULL BUNDLE15.005PREEA-141NGS-BM/IWTAR5SENT EMAIL TO MI FOR APPROVAL TO CUT AND ADD SPLICE PLATES FOR FUTURE REMOVAL
0110CRANE ASSIST0PREEA-141NGS-OPRCTAR0
01100EA-141N0
01100EA-141N0
01100EA-141N0
01100EA-141N0
01100EA-141N0
01100EA-141N0
0115REMOVE INSULATION1EA-141N]/[@MHS],0)]1.01
0115OBTAIN PERMIT & COMPLETE JSA11.001EXEEA-141NGS-INSULTAR1
0115REMOVE INSULATION0EXEEA-141NGS-INSULTAR0MAN HRS JUST FOR REMOVAL AT BLIND POINTS AND HEAD. WILL NEED TO ADD MORE IF INSP. PLAN REQUIRES BUFFING AT NOZZLES
01150EA-141N0
01150EA-141N0
01150EA-141N0
01150EA-141N0
01150EA-141N0
01150EA-141N0
01150EA-141N0
01150EA-141N0
0120MECH PREP EQUIP2510EA-141N]/[@MHS],0)]1.010
0120OBTAIN PERMIT & COMPLETE JSA11.001EXEEA-141NGS-BM/IWTAR1
0120GATHER TOOLS11.001EXEEA-141NGS-BM/IWTAR1
0120TEST FOR LEAD PAINT21.002EXEEA-141NGS-PAINTTAR2IF PAINT IS LEAD MORE TIME WILL NEED TO BE ADDED
0120BUFF LIFTING LUGS22.004EXEEA-141NGS-BM/IWTAR4
0120DYE CHECK ALL LIFTING LUGS21.002EXEEA-141NGS-QCTAR2
01200EA-141N0
01200EA-141N0
01200EA-141N0
01200EA-141N0
01200EA-141N0
0130EXTERNAL INSPECTION0EA-141N]/[@MHS],0)]0.00
0130INSPECT ALL WELD SEAM0EXEEA-141NGS-INSPTAR0NEED INSPECTION PLAN FOR DETAILS
01300EA-141N0
01300EA-141N0
01300EA-141N0
01300EA-141N0
01300EA-141N0
01300EA-141N0
01300EA-141N0
01300EA-141N0
01300EA-141N0
0140INSTALL BLINDS FOR SHELL ISOLATION4/[@['#Men]],"")]518EA-141N]/[@MHS],0)]1.426
0140OBTAIN PERMIT & COMPLETE JSA11.001EXEEA-141NGS-BM/IWTAR1
0140STAGE BLINDS AND MATERIAL11.001EXEEA-141NGS-BM/IWTAR1
0140GATHER TOOLS11.001EXEEA-141NGS-BM/IWTAR1
0140SBI6-2SLIP BLIND INSTALL 600# - 23,EST.TABLE[Abbr],EST.TABLE[[ MH Labor FCT]],"",0)]1.76]="",[@Qty]*[@[LF MAN]],[@Qty]*[@[LF AUTO]])]5EXEEA-141NPIPEGS-BM/IWTAR1.5]="",[@MHS],[@[Perf. Factor]]*[@MHS])]8FRESH AIR MAY BE REQUIRED. WILL BE LESS MAN HRS IF NOT
0140SBI6-6SLIP BLIND INSTALL 600# - 61,EST.TABLE[Abbr],EST.TABLE[[ MH Labor FCT]],"",0)]3.51]="",[@Qty]*[@[LF MAN]],[@Qty]*[@[LF AUTO]])]4EXEEA-141NPIPEGS-BM/IWTAR1.5]="",[@MHS],[@[Perf. Factor]]*[@MHS])]5
0140SBI6-10SLIP BLIND INSTALL 600# - 101,EST.TABLE[Abbr],EST.TABLE[[ MH Labor FCT]],"",0)]6.23]="",[@Qty]*[@[LF MAN]],[@Qty]*[@[LF AUTO]])]6EXEEA-141NPIPEGS-BM/IWTAR1.5]="",[@MHS],[@[Perf. Factor]]*[@MHS])]9
01400EA-141N0
01400EA-141N0
01400EA-141N0
01400EA-141N0
 

benntw

Board Regular
Joined
Feb 17, 2014
Messages
201
Office Version
  1. 365
Platform
  1. Windows
I found this in threads. I was looking for something similar, but based on Header Name. VBA Delete Entire Row if Contains Certain Text

For the column hiding I have used this multiple times and it has worked for me.

Sub HideColumns()

Application.ScreenUpdating = False

Range("G:G,K:L,N:N,P:P").EntireColumn.Hidden = True

Application.ScreenUpdating = True

End Sub

I like the format of you Logic/Estimate sheet.
 

Forum statistics

Threads
1,175,545
Messages
5,898,051
Members
434,690
Latest member
Shamsuddin M

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top