Results 1 to 20 of 72

Thread: IF statment nested within VBA Code

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. 09-21-2023, 02:26 AM #25
    Scuba
    Scuba is offline
    VBAX Regular
    Joined
    Sep 2023
    Posts
    77
    Location
    Hi Paul,

    I realised after getting this to work perfectly with your expert help that I needed to add another clause or conditional row, so depending on what is selected in C5, different rows are hidden or unhidden.

    Basically if C5 = Factory Load then line 17 is visible but if its CFS Loading then line 17 is hidden and line 19 is visible, this is because we have different collection locations depending on Factory vs CFS loading, it changes slightly for the other different modes, some have it some don't, I've adjusted the code so the correct rows are showing hidden or unhidden.

    So building on what you had shown me already I adjusted the code accordingly but something is missing/not working on the below code as now when I change C4, nothing happens, especially if I am swapping between different modes/lanes (i.e. changing C3 and or C4), I then have to unhide all lines, manually select cell C5 and then it works, sort off, I'm close, just can't fathom how to push it over the line so to speak?

    I've attached latest workbook for reference.

     Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range, rC3 As Range, rC4 As Range, rC5 As Range
    
    Set r = Target.Cells(1, 1)  'only check first cell
    Set rC3 = Range("C3")
    Set rC4 = Range("C4")
    Set rC5 = Range("C5")
            
    If r.Address <> rC3.Address And r.Address <> rC4.Address And r.Address <> rC5.Address Then Exit Sub
    If Len(r.Value) = 0 Then Exit Sub


    If Target.Address = "$C$3" Then
        Range("C4").Value = "Please Select Origin..."
     End If
        
    Application.EnableEvents = False
    Unprotect Password:="dlm"
     
    Shapes("RFR20").Visible = False
    Shapes("RFR40").Visible = False
    Shapes("RFR40HQ").Visible = False
    Shapes("Priority20").Visible = False
    Shapes("Priority40").Visible = False
    Shapes("Priority40HQ").Visible = False
     
    Rows("5:25").Hidden = True
    Rows("79:81").Hidden = True
        
    Select Case rC3.Value & "#" & rC4.Value & "#" & rC5.Value
    
Case "Air"
    Range("$C$5").Value = "Factory Load"
        
Case "Air" & "#" & "Warsaw to New York" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("A5").EntireRow.Hidden = False
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A11").EntireRow.Hidden = False
    Range("A12:A16").EntireRow.Hidden = True
    Range("A17").EntireRow.Hidden = False
    Range("A18:A21").EntireRow.Hidden = True
    Range("A23:A25").EntireRow.Hidden = True
    Range("A32:A76").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Air" & "#" & "Warsaw to Los Angeles" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("A5").EntireRow.Hidden = False
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A11").EntireRow.Hidden = False
    Range("A12:A16").EntireRow.Hidden = True
    Range("A17").EntireRow.Hidden = False
    Range("A18:A21").EntireRow.Hidden = True
    Range("A23:A25").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
            
Case "Air" & "#" & "Malpensa to New York" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("A5:A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A12").EntireRow.Hidden = False
    Range("A13:A21").EntireRow.Hidden = True
    Range("A23:A25").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Air" & "#" & "Malpensa to Los Angeles" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("A5:A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A11").EntireRow.Hidden = False
    Range("A12:A21").EntireRow.Hidden = True
    Range("A23:A25").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Air" & "#" & "Heathrow to New York" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("A5:A6").EntireRow.Hidden = True
    Range("A7").EntireRow.Hidden = False
    Range("A8").EntireRow.Hidden = True
    Range("A9:A11").EntireRow.Hidden = False
    Range("A12:A21").EntireRow.Hidden = True
    Range("A23:A25").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Air" & "#" & "Heathrow to Los Angeles" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("A5:A6").EntireRow.Hidden = True
    Range("A7").EntireRow.Hidden = False
    Range("A8").EntireRow.Hidden = True
    Range("A9:A11").EntireRow.Hidden = False
    Range("A12:A21").EntireRow.Hidden = True
    Range("A23:A25").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff


Case "Ocean_EU_to_US"
    Range("$C$5").Value = "Factory Load"
    
Case "Ocean_EU_to_US" & "#" & "Genoa to New York" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("D23:D25").Value = ""
    Range("A5").EntireRow.Hidden = False
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A10").EntireRow.Hidden = True
    Range("A11").EntireRow.Hidden = False
    Range("A20").EntireRow.Hidden = False
    Range("A12:A21").EntireRow.Hidden = True
    Range("A22:A25").EntireRow.Hidden = False
    Range("A26:A32").EntireRow.Hidden = False
    Range("A33:A76").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Ocean_EU_to_US" & "#" & "Genoa/La Spezia to Los Angeles" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("D23:D25").Value = ""
    Range("A5").EntireRow.Hidden = False
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A10").EntireRow.Hidden = True
    Range("A11").EntireRow.Hidden = False
    Range("A12:A21").EntireRow.Hidden = True
    Range("A22:A25").EntireRow.Hidden = False
    Range("A26:A32").EntireRow.Hidden = False
    Range("A33:A76").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Ocean_EU_to_US" & "#" & "Gdynia to New York" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("D23:D25").Value = ""
    Range("A5").EntireRow.Hidden = False
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A18").EntireRow.Hidden = True
    Range("A19").EntireRow.Hidden = False
    Range("A20:A21").EntireRow.Hidden = True
    Range("A22:A25").EntireRow.Hidden = False
    Range("A33:A76").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Ocean_EU_to_US" & "#" & "Gdynia to New York" & "#" & "CFS Loading"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("D23:D25").Value = ""
    Range("A5").EntireRow.Hidden = False
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A19").EntireRow.Hidden = True
    Range("A20").EntireRow.Hidden = False
    Range("A21").EntireRow.Hidden = True
    Range("A22:A25").EntireRow.Hidden = False
    Range("A33:A76").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Ocean_EU_to_US" & "#" & "Gdynia to Los Angeles" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("D23:D25").Value = ""
    Range("A5").EntireRow.Hidden = False
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A18").EntireRow.Hidden = True
    Range("A19").EntireRow.Hidden = False
    Range("A20:A21").EntireRow.Hidden = True
    Range("A22:A25").EntireRow.Hidden = False
    Range("A33:A76").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Ocean_EU_to_US" & "#" & "Gdynia to Los Angeles" & "#" & "CFS Loading"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("D23:D25").Value = ""
    Range("A5").EntireRow.Hidden = False
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A18").EntireRow.Hidden = True
    Range("A20").EntireRow.Hidden = False
    Range("A21").EntireRow.Hidden = True
    Range("A22:A25").EntireRow.Hidden = False
    Range("A33:A76").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Ocean_EU_to_US" & "#" & "Hamburg to New York" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("D23:D25").Value = ""
    Range("A5").EntireRow.Hidden = False
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A18").EntireRow.Hidden = True
    Range("A19").EntireRow.Hidden = False
    Range("A20:A21").EntireRow.Hidden = True
    Range("A22:A25").EntireRow.Hidden = False
    Range("A33:A76").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff


Case "Ocean_EU_to_US" & "#" & "Hamburg to New York" & "#" & "CFS Loading"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("D23:D25").Value = ""
    Range("A5").EntireRow.Hidden = False
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A18").EntireRow.Hidden = True
    Range("A20").EntireRow.Hidden = False
    Range("A21").EntireRow.Hidden = True
    Range("A22:A25").EntireRow.Hidden = False
    Range("A33:A76").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff




Case "Ocean_EU_to_US" & "#" & "Hamburg to Los Angeles" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("D23:D25").Value = ""
    Range("A5").EntireRow.Hidden = False
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A18").EntireRow.Hidden = True
    Range("A19").EntireRow.Hidden = False
    Range("A20:A21").EntireRow.Hidden = True
    Range("A22:A25").EntireRow.Hidden = False
    Range("A33:A76").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Ocean_EU_to_US" & "#" & "Hamburg to Los Angeles" & "#" & "CFS Loading"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("D23:D25").Value = ""
    Range("A5").EntireRow.Hidden = False
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A18").EntireRow.Hidden = True
    Range("A20").EntireRow.Hidden = False
    Range("A21").EntireRow.Hidden = True
    Range("A22:A25").EntireRow.Hidden = False
    Range("A33:A76").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff


Case "Ocean_EU_to_US" & "#" & "FXT/SOU to New York" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("D23:D25").Value = ""
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A21").EntireRow.Hidden = True
    Range("A22:A25").EntireRow.Hidden = False
    Range("A33:A76").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Ocean_EU_to_US" & "#" & "FXT/SOU to Los Angeles" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("D23:D25").Value = ""
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A21").EntireRow.Hidden = True
    Range("A22:A25").EntireRow.Hidden = False
    Range("A33:A76").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Ocean_Asia_to_EU"
    Range("$C$5").Value = "Factory Load"
    
Case "Ocean_Asia_to_EU" & "#" & "Shanghai to Genoa" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("D23:D25").Value = ""
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A21").EntireRow.Hidden = True
    Range("A22:A25").EntireRow.Hidden = False
    Range("A33:A76").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
        
Case "Ocean_Asia_to_EU" & "#" & "Xiamen to Genoa" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("D23:D25").Value = ""
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A21").EntireRow.Hidden = True
    Range("A22:A25").EntireRow.Hidden = False
    Range("A33:A76").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Ocean_Asia_to_EU" & "#" & "Shanghai to Gdynia/Gdansk" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("D23:D25").Value = ""
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A21").EntireRow.Hidden = True
    Range("A22:A25").EntireRow.Hidden = False
    Range("A33:A76").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Ocean_Asia_to_EU" & "#" & "Xiamen to Gdynia/Gdansk" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("D23:D25").Value = ""
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A21").EntireRow.Hidden = True
    Range("A22:A25").EntireRow.Hidden = False
    Range("A33:A76").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Ocean_Asia_to_EU" & "#" & "Shanghai to SOU/FXT" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("D23:D25").Value = ""
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A20").EntireRow.Hidden = True
    Range("A21:A25").EntireRow.Hidden = False
    Range("A33:A76").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    
Case "Ocean_Asia_to_EU" & "#" & "Xiamen to SOU/FXT" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("D23:D25").Value = ""
    Range("A6").EntireRow.Hidden = True
    Range("A7:A8").EntireRow.Hidden = False
    Range("A9:A20").EntireRow.Hidden = True
    Range("A21:A25").EntireRow.Hidden = False
    Range("A33:A76").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
            
Case "Overland"
    Range("$C$5").Value = "Factory Load"
            
Case "Overland" & "#" & "PL to UK" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("D23:D25").Value = ""
    Range("A5:A6").EntireRow.Hidden = True
    Range("A7").EntireRow.Hidden = False
    Range("A8:A21").EntireRow.Hidden = True
    Range("A22:A23").EntireRow.Hidden = False
    Range("A24:A25").EntireRow.Hidden = True
    Range("A26").EntireRow.Hidden = False
    Range("A27:A32").EntireRow.Hidden = False
    Range("A38:A74").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    If Range("M29") = False Then Rows("33:76").EntireRow.Hidden = True
    
Case "Overland" & "#" & "UK to PL" & "#" & "Factory Load"
    Range("C8:C10").Value = ""
    Range("C11:C17").Value = ""
    Range("C19:C21").Value = ""
    Range("D23:D25").Value = ""
    Range("A5:A6").EntireRow.Hidden = True
    Range("A7:A13").EntireRow.Hidden = True
    Range("A14").EntireRow.Hidden = False
    Range("A15:A21").EntireRow.Hidden = True
    Range("A22:A23").EntireRow.Hidden = False
    Range("A24:A25").EntireRow.Hidden = True
    Range("A26").EntireRow.Hidden = False
    Range("A27:A32").EntireRow.Hidden = False
    Range("A38:A74").EntireRow.Hidden = True
    ActiveSheet.CheckBoxes("Check Box 111").Value = xlOff
    If Range("M29") = False Then Rows("33:76").EntireRow.Hidden = True
    
End Select
    
    Select Case rC4.Value
        Case "Genoa to New York"
            Shapes("RFR20").Visible = True
            Shapes("RFR40").Visible = True
            Shapes("RFR40HQ").Visible = True
            Shapes("Priority20").Visible = True
            Shapes("Priority40").Visible = True
            Shapes("Priority40HQ").Visible = True


        Case "Genoa/La Spezia to Los Angeles"
            Shapes("RFR20").Visible = False
            Shapes("RFR40").Visible = False
            Shapes("RFR40HQ").Visible = False
            Shapes("Priority20").Visible = True
            Shapes("Priority40").Visible = True
            Shapes("Priority40HQ").Visible = True
            
        Case "Gdynia to New York"
            Shapes("RFR20").Visible = False
            Shapes("RFR40").Visible = False
            Shapes("RFR40HQ").Visible = False
            Shapes("Priority20").Visible = True
            Shapes("Priority40").Visible = True
            Shapes("Priority40HQ").Visible = True
            
        Case "Gdynia to Los Angeles"
            Shapes("RFR20").Visible = False
            Shapes("RFR40").Visible = False
            Shapes("RFR40HQ").Visible = False
            Shapes("Priority20").Visible = True
            Shapes("Priority40").Visible = True
            Shapes("Priority40HQ").Visible = True
            
        Case "Hamburg to New York"
            Shapes("RFR20").Visible = False
            Shapes("RFR40").Visible = False
            Shapes("RFR40HQ").Visible = False
            Shapes("Priority20").Visible = True
            Shapes("Priority40").Visible = True
            Shapes("Priority40HQ").Visible = True
            
        Case "Hamburg to Los Angeles"
            Shapes("RFR20").Visible = False
            Shapes("RFR40").Visible = False
            Shapes("RFR40HQ").Visible = False
            Shapes("Priority20").Visible = True
            Shapes("Priority40").Visible = True
            Shapes("Priority40HQ").Visible = True
            
        Case "FXT/SOU to New York"
            Shapes("RFR20").Visible = False
            Shapes("RFR40").Visible = False
            Shapes("RFR40HQ").Visible = False
            Shapes("Priority20").Visible = True
            Shapes("Priority40").Visible = True
            Shapes("Priority40HQ").Visible = True
            
        Case "FXT/SOU to Los Angeles"
            Shapes("RFR20").Visible = False
            Shapes("RFR40").Visible = False
            Shapes("RFR40HQ").Visible = False
            Shapes("Priority20").Visible = True
            Shapes("Priority40").Visible = True
            Shapes("Priority40HQ").Visible = True
            
        Case "Shanghai to Genoa"
            Shapes("RFR20").Visible = False
            Shapes("RFR40").Visible = False
            Shapes("RFR40HQ").Visible = False
            Shapes("Priority20").Visible = True
            Shapes("Priority40").Visible = True
            Shapes("Priority40HQ").Visible = True
            
        Case "Xiamen to Genoa"
            Shapes("RFR20").Visible = False
            Shapes("RFR40").Visible = False
            Shapes("RFR40HQ").Visible = False
            Shapes("Priority20").Visible = True
            Shapes("Priority40").Visible = True
            Shapes("Priority40HQ").Visible = True
            
        Case "Shanghai to Gdynia/Gdansk"
            Shapes("RFR20").Visible = False
            Shapes("RFR40").Visible = False
            Shapes("RFR40HQ").Visible = False
            Shapes("Priority20").Visible = True
            Shapes("Priority40").Visible = True
            Shapes("Priority40HQ").Visible = True
            
        Case "Xiamen to Gdynia/Gdansk"
            Shapes("RFR20").Visible = False
            Shapes("RFR40").Visible = False
            Shapes("RFR40HQ").Visible = False
            Shapes("Priority20").Visible = True
            Shapes("Priority40").Visible = True
            Shapes("Priority40HQ").Visible = True
        
        Case "Shanghai to SOU/FXT"
            Shapes("RFR20").Visible = False
            Shapes("RFR40").Visible = False
            Shapes("RFR40HQ").Visible = False
            Shapes("Priority20").Visible = True
            Shapes("Priority40").Visible = True
            Shapes("Priority40HQ").Visible = True
            
        Case "Xiamen to SOU/FXT"
            Shapes("RFR20").Visible = False
            Shapes("RFR40").Visible = False
            Shapes("RFR40HQ").Visible = False
            Shapes("Priority20").Visible = True
            Shapes("Priority40").Visible = True
            Shapes("Priority40HQ").Visible = True
        
        Case "UK to PL"
            Shapes("RFR20").Visible = False
            Shapes("RFR40").Visible = False
            Shapes("RFR40HQ").Visible = False
            Shapes("Priority20").Visible = False
            Shapes("Priority40").Visible = False
            Shapes("Priority40HQ").Visible = False
        
        Case "PL to UK"
            Shapes("RFR20").Visible = False
            Shapes("RFR40").Visible = False
            Shapes("RFR40HQ").Visible = False
            Shapes("Priority20").Visible = False
            Shapes("Priority40").Visible = False
            Shapes("Priority40HQ").Visible = False
            
    End Select
    
    ActiveSheet.Protect Password:="dlm"
    Application.EnableEvents = True
End Sub
    Attached Files Attached Files
    Last edited by Scuba; 09-21-2023 at 07:01 AM. Reason: VBA Code Changed
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules