Posts by Learner.Here

Thank you dangelor for your revert and gesture! I understand.

Please excuse if I had offended your contribution in any ways. I just wanted to appreciate the help, that was it.

However, now I appreciate your willingness to help and share your knowledge even more.

Big thank you!

Quote from dangelor

Wise Owl Tutorials on YouTube

ExcelMacroMastery.com

Namastey dangelor,

Hope you are doing well!

I had interacted with you 2 months back.

Since than I have not interacted with you, hence, wanted to say my thank you to you.

I apologize to revert on this so late too.

And there is a small token of appreciation that I had like you to accept.

I tried creating a conversation with you for this, but it didn't create it as you have disabled to participate in conversation.

Let me know if there is a way to contact you via a conversation.

Hope to hear from you soon.

Take care!

Quote from Learner.Here

Namastey dangelor,

Thank you for your valuable inputs. This works wonderfully with the setup. You gave me one more dimension to try with.

I am adding some more features, and will test some more, will update you.

Take care!

Display More

Namastey dangelor,

This is working just fine. Thanking you for all your help, will share a sample of the working file later with you, as I have added few more steps to it.

There is one thing though that I am trying to overcome currently. I am getting a Circular Reference Error prompt, error of which I can't find:-

"Microsoft Excel cannot calculate a formula there is a circular reference in an open workbook, but the references that cause it cannot be listed for you."

Will update you on this as well!

Also, the WiseOwl Tutorials are just perfect, thank you!

Take care!

Learner.Here

Quote from dangelor

Try this...

Code

Sub Reset()
    Call TurnOn
    With ActiveSheet
        .Unprotect Password:="+"
        .Range("D7:D24,O7:O7,F14:F14").ClearContents
        .Range("O7").Formula = "=O5"
        .Range("D7").Formula = "=O9"
        .Range("D20") = "25%"
        .Range("D17").Formula = "=D15*1040"
        .Range("D18").Formula = "=D16*1040"
        .Range("D22") = "No"
        .Range("D7:D7").Select
        .Protect Password:="+"
    End With
    Call TurnOff
End Sub

Display More

Namastey dangelor,

Thank you for your valuable inputs. This works wonderfully with the setup. You gave me one more dimension to try with.

I am adding some more features, and will test some more, will update you.

Take care!

Quote from dangelor

Might be a bit faster...

Code

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Unprotect Password:="+"
    Call TurnOn
    
    If Not Intersect(Target, Range("D8:D25")) Is Nothing Then
        Select Case Range("D9").Value
            Case Is = "Britain"
                Range("D10") = "Special"
                Rows("11:13").EntireRow.Hidden = False
                Me.ComboBox2.Visible = False
                Range("D13") = Range("A13")
                Range("D15") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,15,0),)"
                Range("D16") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,16,0),)"
                Range("D17") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,21,0),)"
                Range("D18") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,22,0),)"
                
            Case Is = "Switzerland"
                Range("D10") = "Special"
                Rows("23:24").EntireRow.Hidden = False
                Me.ComboBox2.Visible = False
                Rows("11:14").EntireRow.Hidden = False
                Range("D13") = Range("A13")
                Range("D15") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,15,0),)"
                Range("D16") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,16,0),)"
                Range("D17") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,21,0),)"
                Range("D18") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,22,0),)"
                
            Case Is = "US"
                Rows("11:14").EntireRow.Hidden = True
                Me.ComboBox2.Visible = True
                If Range("D10").Value = "Salary15" Then
                    Rows("17:18").EntireRow.Hidden = True
                Else
                    Rows("17:18").EntireRow.Hidden = False
                End If
                Range("D17") = "=IFERROR(VLOOKUP(D10, '5.4 Sales Base'!E7:BF17,39,0),)"
                Range("D18") = "=IFERROR(VLOOKUP(D10, '5.4 Sales Base'!E7:BF17,54,0),)"
        End Select
        Select Case Range("D8").Value
            Case Is = "C4"
                Range("D22") = "Yes"
                Range("D23") = "2%"
            Case Is = "C5.1"
                Range("D21") = "400"
                Rows("10:10").EntireRow.Hidden = False
                Rows("20:20").EntireRow.Hidden = True
                Range("D22") = "Yes"
                Range("D23") = "2%"
                Me.ComboBox2.Visible = True
                Rows("17:18").EntireRow.Hidden = True
                
            Case Is = "C5.2"
                Rows("10:10").EntireRow.Hidden = False
                Rows("20:20").EntireRow.Hidden = True
                Range("D22") = "Yes"
                Range("D23") = "2%"
                Me.ComboBox2.Visible = True
                Rows("17:18").EntireRow.Hidden = True
                Range("D21") = "N/A"
                
            Case Is = "C5.3"
                Rows("10:10").EntireRow.Hidden = False
                Rows("20:20").EntireRow.Hidden = False
                Range("D20") = "25%"
                Range("D22") = "Yes"
                Range("D23") = "2%"
                Range("D21") = "400"
                Me.ComboBox2.Visible = False
                Range("D16") = "=iferror(VLOOKUP(D8, '5.4 Sales Base'!G7:AU25,39,0),)"
                Range("D17") = "=iferror(VLOOKUP(D8, '5.4 Sales Base'!G7:AU25,40,0),)"
                Range("D18") = "=iferror(VLOOKUP(D8, '5.4 Sales Base'!G7:AU25,41,0),)"
                
            Case Is = "C5.4"
                Rows("10:10").EntireRow.Hidden = False
                Rows("20:20").EntireRow.Hidden = False
                Range("D20") = "25%"
                Range("D21") = "N/A"
                Range("D22") = "Yes"
                Range("D23") = "2%"
                Range("D16") = "=iferror(VLOOKUP(D8, '5.4 Sales Base'!G7:AU25,39,0),)"
                Range("D17") = "=iferror(VLOOKUP(D8, '5.4 Sales Base'!G7:AU25,40,0),)"
                Range("D18") = "=iferror(VLOOKUP(D8, '5.4 Sales Base'!G7:AU25,41,0),)"
                Me.ComboBox2.Visible = False
            Case Else
                Rows("10:10").EntireRow.Hidden = False
                Rows("17:18").EntireRow.Hidden = False
                Range("D1") = ""
        End Select
    End If
    If Not Intersect(Target, Range("D22:D25")) Is Nothing Then
        Select Case Range("D22").Value
            Case Is = "No", ""
                Rows("23:24").EntireRow.Hidden = True
            Case Is = "Yes"
                Rows("23:24").EntireRow.Hidden = False
        End Select
    End If
    
    Application.ScreenUpdating = True
    Call TurnOff
End Sub

Display More

Quote from Learner.Here

Namastey dangelor!

I wanted to take a moment to thank you for all your help and efforts here, and I know how time consuming it could be, specially for a novice like me, this is all a big deal, and I am learning so much in this process from you.

I tried this in my actual file, and seems to be working fine and faster then the previous version I attached. There are a couple of places which are not responding, which I am working on, and will update you soon.

If you are in US, then wishing you a Happy 4th of July!

Otherwise too, stay safe and awesome!

Also, if you can please suggest a course which you feel is good for freshers in VBA, or your/other blog where I can learn VBA from scratch, it would be great.

I work on Excel all the time, but VBA is a new domain for me, even though I have recorded a few macros here and there, but understanding it and writing codes like you did, is something I am working towards.

Learner.Here

Display More

Namastey dangelor,

As I was trying the run the given sequence of codes, I ran into an issue.

I noticed you had not set the PW Lock at the end of Change event, and when I set the PW Lock On, it would run into a bug.

When I hit the Refresh macro to reset the fields, the code to hide rows won't run as the Change Event would lock it, and it would throw Run time error "1004" Unable to set the Hidden property of the Range class

When I run it without locking on the Change Event, it runs the procedures without an error. But this keeps the file Unlocked, as Refresh does lock it, but once clicked on the selection area, the file remains open until Refresh is hit again.

I am trying to figure a way out of this. Any suggestions will certainly help.

Thank you!

Quote from dangelor

Wise Owl Tutorials on YouTube

ExcelMacroMastery.com

Thank you for the tips! Will follow these!

Quote from dangelor

Might be a bit faster...

Code

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Unprotect Password:="+"
    Call TurnOn
    
    If Not Intersect(Target, Range("D8:D25")) Is Nothing Then
        Select Case Range("D9").Value
            Case Is = "Britain"
                Range("D10") = "Special"
                Rows("11:13").EntireRow.Hidden = False
                Me.ComboBox2.Visible = False
                Range("D13") = Range("A13")
                Range("D15") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,15,0),)"
                Range("D16") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,16,0),)"
                Range("D17") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,21,0),)"
                Range("D18") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,22,0),)"
                
            Case Is = "Switzerland"
                Range("D10") = "Special"
                Rows("23:24").EntireRow.Hidden = False
                Me.ComboBox2.Visible = False
                Rows("11:14").EntireRow.Hidden = False
                Range("D13") = Range("A13")
                Range("D15") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,15,0),)"
                Range("D16") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,16,0),)"
                Range("D17") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,21,0),)"
                Range("D18") = "=IfError(VLOOKUP($D$9, 'Special'!C:Z,22,0),)"
                
            Case Is = "US"
                Rows("11:14").EntireRow.Hidden = True
                Me.ComboBox2.Visible = True
                If Range("D10").Value = "Salary15" Then
                    Rows("17:18").EntireRow.Hidden = True
                Else
                    Rows("17:18").EntireRow.Hidden = False
                End If
                Range("D17") = "=IFERROR(VLOOKUP(D10, '5.4 Sales Base'!E7:BF17,39,0),)"
                Range("D18") = "=IFERROR(VLOOKUP(D10, '5.4 Sales Base'!E7:BF17,54,0),)"
        End Select
        Select Case Range("D8").Value
            Case Is = "C4"
                Range("D22") = "Yes"
                Range("D23") = "2%"
            Case Is = "C5.1"
                Range("D21") = "400"
                Rows("10:10").EntireRow.Hidden = False
                Rows("20:20").EntireRow.Hidden = True
                Range("D22") = "Yes"
                Range("D23") = "2%"
                Me.ComboBox2.Visible = True
                Rows("17:18").EntireRow.Hidden = True
                
            Case Is = "C5.2"
                Rows("10:10").EntireRow.Hidden = False
                Rows("20:20").EntireRow.Hidden = True
                Range("D22") = "Yes"
                Range("D23") = "2%"
                Me.ComboBox2.Visible = True
                Rows("17:18").EntireRow.Hidden = True
                Range("D21") = "N/A"
                
            Case Is = "C5.3"
                Rows("10:10").EntireRow.Hidden = False
                Rows("20:20").EntireRow.Hidden = False
                Range("D20") = "25%"
                Range("D22") = "Yes"
                Range("D23") = "2%"
                Range("D21") = "400"
                Me.ComboBox2.Visible = False
                Range("D16") = "=iferror(VLOOKUP(D8, '5.4 Sales Base'!G7:AU25,39,0),)"
                Range("D17") = "=iferror(VLOOKUP(D8, '5.4 Sales Base'!G7:AU25,40,0),)"
                Range("D18") = "=iferror(VLOOKUP(D8, '5.4 Sales Base'!G7:AU25,41,0),)"
                
            Case Is = "C5.4"
                Rows("10:10").EntireRow.Hidden = False
                Rows("20:20").EntireRow.Hidden = False
                Range("D20") = "25%"
                Range("D21") = "N/A"
                Range("D22") = "Yes"
                Range("D23") = "2%"
                Range("D16") = "=iferror(VLOOKUP(D8, '5.4 Sales Base'!G7:AU25,39,0),)"
                Range("D17") = "=iferror(VLOOKUP(D8, '5.4 Sales Base'!G7:AU25,40,0),)"
                Range("D18") = "=iferror(VLOOKUP(D8, '5.4 Sales Base'!G7:AU25,41,0),)"
                Me.ComboBox2.Visible = False
            Case Else
                Rows("10:10").EntireRow.Hidden = False
                Rows("17:18").EntireRow.Hidden = False
                Range("D1") = ""
        End Select
    End If
    If Not Intersect(Target, Range("D22:D25")) Is Nothing Then
        Select Case Range("D22").Value
            Case Is = "No", ""
                Rows("23:24").EntireRow.Hidden = True
            Case Is = "Yes"
                Rows("23:24").EntireRow.Hidden = False
        End Select
    End If
    
    Application.ScreenUpdating = True
    Call TurnOff
End Sub

Display More

Namastey dangelor!

I wanted to take a moment to thank you for all your help and efforts here, and I know how time consuming it could be, specially for a novice like me, this is all a big deal, and I am learning so much in this process from you.

I tried this in my actual file, and seems to be working fine and faster then the previous version I attached. There are a couple of places which are not responding, which I am working on, and will update you soon.

If you are in US, then wishing you a Happy 4th of July!

Otherwise too, stay safe and awesome!

Also, if you can please suggest a course which you feel is good for freshers in VBA, or your/other blog where I can learn VBA from scratch, it would be great.

I work on Excel all the time, but VBA is a new domain for me, even though I have recorded a few macros here and there, but understanding it and writing codes like you did, is something I am working towards.

Learner.Here

Quote from royUK

Adding formulas and content by code could be avoided and possibly speed up the code.

An example workbook would be helpful

Thank you royUK and dangelor for your revert and effort . I have attached a sample file herewith. This sample file works a little faster then the actual file.

If you can suggest any improvement in this, it would be great.

Quote from dangelor

One thing that might help is using the Worksheet Change event instead of the Worksheet Selection event, but the hiding and unhiding is your problem.

Namaste dangelor,

Thank you for your time and effort.

You are right, I can use the Change Event, but it would not perform the Hiding and Un-hiding.

Currently it takes about 3-4 secs on each cell when clicked before it would allow to enter a value.

Quote from royUK

Why are you using code to add formulas and adding values to D20 to D23? These could be entered manually - I don't see anywhere in the code that removes them.

Namaste royUK,

I have another Macros assigned on a Module, allocated to a button which brings everything to default blank cells.

Hey there dangelor

Quote from dangelor

Glad I could help!

Hey there dangelor,

Greetings!

Further in this series, I need your expert advice and more help needed.

I am trying to improve the runtime of this event based macro, as the performance is slow and it takes a few second on each cell click to be able to enter the values.

Code as below:-

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.Unprotect Password:="ABC"


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'3. Condition 3

If Not Intersect(Target, Range("$D8:D10")) Is Nothing Then
'   "$D8:D10"

    If Range("D9").Value = "C1" Then
        Range("D10") = "T1"
        Rows("11:13").EntireRow.Hidden = False

    
    Else
        Rows("11:14").EntireRow.Hidden = True
        
    If Range("D9").Value = "C2" Then
        Range("D10") = "T2"

        Rows("11:14").EntireRow.Hidden = False
    
    Else
        Rows("11:14").EntireRow.Hidden = True
        Me.ComboBox2.Visible = True
    End If
    End If

End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'4. Condition 3

If Not Intersect(Target, Range("$D8:D25")) Is Nothing Then



    If Range("D22").Value = "" Or Range("D22").Value = "No" Then
        Rows("23:24").EntireRow.Hidden = True
        Columns("F:F").EntireColumn.Hidden = True
    Else
        Rows("23:24").EntireRow.Hidden = False
        Columns("F:F").EntireColumn.Hidden = False
    End If

End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'5. Condition 5 Hiding Line 17, 18 for Selections

If Not Intersect(Target, Range("$D8:D25")) Is Nothing Then

If Range("D9").Value = "US" And Range("D10").Value = "ET1" Then
        Rows("17:18").EntireRow.Hidden = True
    Else
        Rows("17:18").EntireRow.Hidden = False
    End If

End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'6. Condition 6 Vlook up

If Not Intersect(Target, Range("$D8:D25")) Is Nothing Then
If Range("D9").Value = "C!" Or Range("D9").Value = "C2" Then

        Range("D13") = Range("A13")
        Range("D15") = "=IfError(VLOOKUP($D$9,'CS2'!C:Z,15,0),)"
        Range("D16") = "=IfError(VLOOKUP($D$9,'CS2'!C:Z,16,0),)"
        Range("D17") = "=IfError(VLOOKUP($D$9,'CS2'!C:Z,21,0),)"
        Range("D18") = "=IfError(VLOOKUP($D$9,'CS2'!C:Z,22,0),)"

    Else

    End If

End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''


'7. Condition 7 Vlook up

If Not Intersect(Target, Range("$D8:D25")) Is Nothing Then
If Range("D9").Value = "US" Then
        
        Range("D17") = "=IFERROR(VLOOKUP(D10,'SB'!E7:BF17,39,0),)"
        Range("D18") = "=IFERROR(VLOOKUP(D10,'SB'!E7:BF17,54,0),)"

    Else

    End If

End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'10. Condition  Hiding ComboBox2

If Not Intersect(Target, Range("$D8:D25")) Is Nothing Then

    If Range("D10").Value = "ET1" Then
        Me.ComboBox2.Visible = False
    Else
        Me.ComboBox2.Visible = True
        

End If


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'11. Condition 11 Client LookUp

If Not Intersect(Target, Range("$D8:D25")) Is Nothing Then

    If Range("D8").Value = "Cl1" Then
    Range("D22") = "Yes"
    Range("D23") = "2%"

    Else
    Range("D1") = ""
        
'1 C2 - Type1
    If Range("D8").Value = "CType1" Then
    Range("D21").Value = "123"
    Rows("10:10").EntireRow.Hidden = False
    Rows("20:20").EntireRow.Hidden = True
    Range("D22") = "Ok"
    Range("D23") = "21%"
    Me.ComboBox2.Visible = True
    
    Rows("17:18").EntireRow.Hidden = True

    
    Else

        Rows("10:10").EntireRow.Hidden = False
        Rows("17:18").EntireRow.Hidden = False

        
'2 CType2
    If Range("D8").Value = "CType3" Then
    Rows("10:10").EntireRow.Hidden = False
    Rows("20:20").EntireRow.Hidden = True
    Range("D22") = "OK"
    Range("D23") = "21%"
    
    
    Me.ComboBox2.Visible = True
    Rows("17:18").EntireRow.Hidden = True
    Range("D21") = "N/A"
    Else

        Rows("10:10").EntireRow.Hidden = False
        Rows("17:18").EntireRow.Hidden = False
        
'3 CType3
    If Range("D8").Value = "CType3" Then
    Rows("10:10").EntireRow.Hidden = False
    Rows("20:20").EntireRow.Hidden = False
    Range("D20") = "3%"
    Range("D21") = "123"
    Range("D22") = "Ok"
    Range("D23") = "21%"
    
    Me.ComboBox2.Visible = False
    Range("D16") = "=iferror(VLOOKUP(D8,'SB1'!G7:AU25,39,0),)"
    Range("D17") = "=iferror(VLOOKUP(D8,'SB1'!G7:AU25,40,0),)"
    Range("D18") = "=iferror(VLOOKUP(D8,'SB1'!G7:AU25,41,0),)"

    Else
        Me.ComboBox2.Visible = True
        Rows("10:10").EntireRow.Hidden = False
        
'4 CType4
    If Range("D8").Value = "CType4" Then
    Rows("10:10").EntireRow.Hidden = False
    Rows("20:20").EntireRow.Hidden = False
    Range("D20") = "3%"
    Range("D21") = "N/A"
    Range("D22") = "Ok"
    Range("D23") = "21%"
    
    Range("D16") = "=iferror(VLOOKUP(D8,'SB1'!G7:AU25,39,0),)"
    Range("D17") = "=iferror(VLOOKUP(D8,'SB1'!G7:AU25,40,0),)"
    Range("D18") = "=iferror(VLOOKUP(D8,'SB1'!G7:AU25,41,0),)"
    Me.ComboBox2.Visible = False
    Else
        Me.ComboBox2.Visible = True
        Rows("10:10").EntireRow.Hidden = False
        
    End If
    End If
    End If
    End If
    End If

    '
    '
End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True


'ActiveSheet.Protect Password:="ABC"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Your expert advice and any suggestion will be highly appreciated to enhance the speed of this macro!

Thank you!

This is great dangelor , thank you a ton for this update as this works.

Look forward to interact with you and learn from you!

Namastey and greetings experts!

I am writing a SelectionChange event macro to trigger it on each selection change. This has several changes in a range and mostly to hide lines and update formula in col D cells.

My learning point here is that this is basis the need I have, written it using online expert resources like these, and built it in bits and pieces. The code runs fine, but causes the screen update a lot and jump a lot.

When I tried changing this to Change from SelectionChange event, the functionality doesn't work.

So, requesting suggestions from you all experts to guide me to make it work better without making the screen jump and take time as it does on my code.

Here are the code lines:-

Note: this code is inside the Sheet, and not in a module, for it to trigger on each change.

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''
'''''1. Macro 1
''''
''''If Not Intersect(Target, Range("$A1:AG100")) Is Nothing Then
''''
''''
''''    If Range("D7").Value = "Con1" Then
''''        Rows("29:29").EntireRow.Hidden = True
''''    Else
''''        Rows("29:29").EntireRow.Hidden = False
''''    End If
''''
''''End If
''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''
'''''2. Hidden
''''
''''If Not Intersect(Target, Range("$A1:AG100")) Is Nothing Then
''''
''''    If Range("D7").Value = "Con3" Then
''''        Rows("28:28").EntireRow.Hidden = True
''''    Else
''''        Rows("28:28").EntireRow.Hidden = False
''''    End If
''''
''''End If
''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''


'3. Tagging 2


If Not Intersect(Target, Range("$A1:AG100")) Is Nothing Then


If Range("D9").Value = "Con1" Then
Range("D10") = "INTL"
Rows("11:13").EntireRow.Hidden = False


Else
Rows("11:14").EntireRow.Hidden = True


If Range("D9").Value = "Con4" Then
Range("D10") = "INTL"
Rows("11:14").EntireRow.Hidden = False


Else
Rows("11:14").EntireRow.Hidden = True


End If
End If


End If


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''


'4. Tagging 3


If Not Intersect(Target, Range("$A1:AG100")) Is Nothing Then


If Range("D21").Value = "" Or Range("D21").Value = "No" Then
Rows("22:24").EntireRow.Hidden = True
Columns("F:F").EntireColumn.Hidden = True
Else
Rows("22:24").EntireRow.Hidden = False
Columns("F:F").EntireColumn.Hidden = False
End If


End If


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''


'5. Hiding Line


If Not Intersect(Target, Range("$A1:AG100")) Is Nothing Then


If Range("D9").Value = "abc" And Range("D10").Value = "123" Then
Rows("17:18").EntireRow.Hidden = True
Else
Rows("17:18").EntireRow.Hidden = False
End If


End If


*
*
*
*
'10. Hiding ComboBox2


If Not Intersect(Target, Range("$A1:AG100")) Is Nothing Then


'    Application.ScreenUpdating = False
If Range("D10").Value = "INTL" Or Range("D10").Value = "Con4" Then
Me.ComboBox2.Visible = False
Else
Me.ComboBox2.Visible = True
End If
'    Application.ScreenUpdating = True


End If


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

If there is any scope of performance improvement in this code, please suggest. Your guidance is highly appreciated.