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

B

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

Workdays for a market open Mon, Wed, Friday?
Yes! Use "0101011" for the weekend argument in NETWORKDAYS.INTL or WORKDAY.INTL. The 7 digits start on Monday. 1 means it is a weekend.
Sort by date Sort by votes
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
 
Upvote 0
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.
 
Upvote 0
You must log in or register to reply here.

Similar threads

W
  • Question Question
Creating a 'Reset' button for a text form, plus additional buttons
Replies
2
Views
309
WEB78
W
E
  • Solved
Quick VBA code to Hide Rows based on Cell Value
Replies
3
Views
611
Joe4
Joe4
A
  • Question Question
VBA: Hide rows based on date older than today in cell (Keep blank cells)
Replies
2
Views
402
Candyman8019
C
A
  • Solved
Conditional Formatting - apply rules to multiple rows based on specific cells (drop down menus)
Replies
4
Views
759
AndyB86
A
D
  • Question Question
VBA code to automatically hide blank rows but need to unhide when needed to enter details.
Replies
8
Views
730
offthelip
O

Forum statistics

Threads
1,224,823
Messages
6,181,181
Members
453,022
Latest member
Mohamed Magdi Tawfiq Emam

Share this page

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
Back
Top