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

Copy PDF to Excel
Select data in PDF. Paste to Microsoft Word. Copy from Word and paste to Excel.
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

David Kemp
  • Solved
Hide different columns depending on value in a cell
Replies
5
Views
109
Peter_SSs
Peter_SSs
D
  • Question
VBA to hide rows when a cell is a specific value and then hide the associated worksheet
Replies
3
Views
359
NoSparks
N
E
  • Question
Interest Due Log
Replies
6
Views
120
ExcelNew7
E
Z
  • Solved
VBA Code to Hide columns in Specific Intervals
2
Replies
11
Views
383
jolivanes
jolivanes
G
  • Solved
VBA Delete rows if cell contains specific text within a string
2
Replies
10
Views
936
Peter_SSs
Peter_SSs

Forum statistics

Threads
1,214,789
Messages
6,121,593
Members
449,038
Latest member
Arbind kumar

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