srikanth sare
New Member
- Joined
- May 1, 2020
- Messages
- 30
- Office Version
- 2013
- Platform
- Windows
- MacOS
- Mobile
- Web
VBA Code:
If Range("$AF$35").Value = "NO" Then
Sheet5.Range("AE:AE,BG:BG").EntireColumn.Hidden = True
Else
Sheet5.Range("AE:AE,BG:BG").EntireColumn.Hidden = False
End If
If Range("$AF$36").Value = "NO" Then
Sheet5.Range("AF:AF,BH:BH").EntireColumn.Hidden = True
Else
Sheet5.Range("AF:AF,BH:BH").EntireColumn.Hidden = False
End If
If Range("$AF$37").Value = "NO" Then
Sheet5.Range("AG:AG,BI:BI").EntireColumn.Hidden = True
Else
Sheet5.Range("AG:AG,BI:BI").EntireColumn.Hidden = False
End If
If Range("$AF$38").Value = "NO" Then
Sheet5.Range("AH:AH,BJ:BJ").EntireColumn.Hidden = True
Else
Sheet5.Range("AH:AH,BJ:BJ").EntireColumn.Hidden = False
End If
If Range("$AF$39").Value = "NO" Then
Sheet5.Range("AI:AI,BK:BK").EntireColumn.Hidden = True
Else
Sheet5.Range("AI:AI,BK:BK").EntireColumn.Hidden = False
End If
If Range("$AF$40").Value = "NO" Then
Sheet5.Range("AJ:AJ,BL:BL").EntireColumn.Hidden = True
Else
Sheet5.Range("AJ:AJ,BL:BL").EntireColumn.Hidden = False
End If
If Range("$AF$41").Value = "NO" Then
Sheet5.Range("AK:AK,BM:BM").EntireColumn.Hidden = True
Else
Sheet5.Range("AK:AK,BM:BM").EntireColumn.Hidden = False
End If
If Range("$AF$42").Value = "NO" Then
Sheet5.Range("AL:AL,BN:BN").EntireColumn.Hidden = True
Else
Sheet5.Range("AL:AL,BN:BN").EntireColumn.Hidden = False
End If
If Range("$AF$43").Value = "NO" Then
Sheet5.Range("AM:AM,BO:BO").EntireColumn.Hidden = True
Else
Sheet5.Range("AM:AM,BO:BO").EntireColumn.Hidden = False
End If
If Range("$AF$44").Value = "NO" Then
Sheet5.Range("AN:AN,BP:BP").EntireColumn.Hidden = True
Else
Sheet5.Range("AN:AN,BP:BP").EntireColumn.Hidden = False
End If
If Range("$AF$45").Value = "NO" Then
Sheet5.Range("AO:AO,BQ:BQ").EntireColumn.Hidden = True
Else
Sheet5.Range("AO:AO,BQ:BQ").EntireColumn.Hidden = False
End If
If Range("$AF$46").Value = "NO" Then
Sheet5.Range("AP:AP,BR:BR").EntireColumn.Hidden = True
Else
Sheet5.Range("AP:AP,BR:BR").EntireColumn.Hidden = False
End If
If Range("$AF$47").Value = "NO" Then
Sheet5.Range("AQ:AQ,BS:BS").EntireColumn.Hidden = True
Else
Sheet5.Range("AQ:AQ,BS:BS").EntireColumn.Hidden = False
End If
If Range("$AF$48").Value = "NO" Then
Sheet5.Range("AR:AR,BT:BT").EntireColumn.Hidden = True
Else
Sheet5.Range("AR:AR,BT:BT").EntireColumn.Hidden = False
End If
If Range("$AF$49").Value = "NO" Then
Sheet5.Range("AS:AS,BU:BU").EntireColumn.Hidden = True
Else
Sheet5.Range("AS:AS,BU:BU").EntireColumn.Hidden = False
End If
If Range("$AF$50").Value = "NO" Then
Sheet5.Range("AT:AT,BV:BV").EntireColumn.Hidden = True
Else
Sheet5.Range("AT:AT,BV:BV").EntireColumn.Hidden = False
End If
Last edited by a moderator: