Difficult problem, coding junkie needed. :)

D

dutchdog

New Member
Joined
May 6, 2011
Messages
10
Ok, first of all, thanks for any help.

Let me explain the problem. I weekly have to compile a report per employee on there accomplishments, oppurtunities and then list their accomplishments in an actionplan as achievements.

So I made a file with 3 sheets, accomplishments, oppurtunities and actionplan where I typed every single accomplishment or opppurtunity.

Now based on the data, I wanted excell to hide either rows in accomplishment or in oppurtunities and the check if if it was an accomplishment, list it in the actionplan.

It worked reasonably. My problem came when the value achieved meets the exact target. (lets say target is 100 and he achieved 100)

I tried everything. >=. made AND statement > +

But nothing seems to work. I think I need more advanced programming with variables. Here is the code. I can email you the file on request.


Absenteism: Attendance (100%)
Schedule Adherance: Breaks (105% maximum or less)<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>
Punctuality (100%)
Productivity: Hold (5% maximum or less)<o:p></o:p>
Wrap up (4 minutes or less)<o:p></o:p>
AHT (17 minutes or less)<o:p></o:p>
Call tagging (100%)<o:p></o:p>
Occupancy (more or equal than 70%)<o:p></o:p>
RNT usage (more or equal than 100%, up to 200%+)
Requeed Calls (15 or less maximum per week)<o:p></o:p>
Quality: Monitoring (more or equal than 85%)<o:p></o:p>
CSAT (more or equal than 85%)<o:p></o:p>


Code: 
Sub ValidationAccomplishments()
    If Worksheets("Accomplishments").Range("J5").Value < 100 Then
     Worksheets("Accomplishments").Rows("5:8").EntireRow.Hidden = True
    Worksheets("Actionplan").Rows("6:7").EntireRow.Hidden = True
    Worksheets("Oppurtunities").Rows("5:8").EntireRow.Hidden = False
    Else
    End If
If Worksheets("Accomplishments").Range("J5").Value = 100 Then
     Worksheets("Accomplishments").Rows("5:8").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("6:7").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("5:8").EntireRow.Hidden = True
    Else
    End If
    
    If Worksheets("Accomplishments").Range("J9").Value > 105 Then
 Worksheets("Accomplishments").Rows("9:12").EntireRow.Hidden = True
Worksheets("Oppurtunities").Rows("9:12").EntireRow.Hidden = False
Worksheets("Actionplan").Rows("9").EntireRow.Hidden = True
Else
 End If
 
 If Worksheets("Accomplishments").Range("J9").Value = 105 Then
 Worksheets("Accomplishments").Rows("9:12").EntireRow.Hidden = False
Worksheets("Oppurtunities").Rows("9:12").EntireRow.Hidden = True
Worksheets("Actionplan").Rows("9").EntireRow.Hidden = False
Else
 End If
If Worksheets("Accomplishments").Range("j13").Value < 100 Then
  Worksheets("Accomplishments").Rows("13:16").EntireRow.Hidden = True
Worksheets("Oppurtunities").Rows("13:16").EntireRow.Hidden = False
Worksheets("Actionplan").Rows("10").EntireRow.Hidden = True
Else
End If
If Worksheets("Accomplishments").Range("j13").Value = 100 Then
  Worksheets("Accomplishments").Rows("13:16").EntireRow.Hidden = True
Worksheets("Oppurtunities").Rows("13:16").EntireRow.Hidden = False
Worksheets("Actionplan").Rows("10").EntireRow.Hidden = True
Else
End If
 If Worksheets("Accomplishments").Range("J9").Value < 105 And Worksheets("Accomplishments").Range("j13").Value < 100 Then
Worksheets("Actionplan").Rows("8").EntireRow.Hidden = False
Else
End If
If Worksheets("Accomplishments").Range("J9").Value = 105 And Worksheets("Accomplishments").Range("J9").Value < 105 And Worksheets("Accomplishments").Range("j13").Value = 100 Then
Worksheets("Actionplan").Rows("8").EntireRow.Hidden = False
Else
End If

If Worksheets("Accomplishments").Range("j13").Value < 100 Then
     Worksheets("Accomplishments").Rows("13:16").EntireRow.Hidden = True
    Worksheets("Actionplan").Rows("10").EntireRow.Hidden = True
    Worksheets("Oppurtunities").Rows("13:16").EntireRow.Hidden = False
    Else
    End If
    
    If Worksheets("Accomplishments").Range("j13").Value = 100 Then
     Worksheets("Accomplishments").Rows("13:16").EntireRow.Hidden = True
    Worksheets("Actionplan").Rows("10").EntireRow.Hidden = True
    Worksheets("Oppurtunities").Rows("13:16").EntireRow.Hidden = False
    Else
    End If
    
    If Worksheets("Accomplishments").Range("j17").Value < 5 Then
     Worksheets("Accomplishments").Rows("17:20").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("15").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("17:20").EntireRow.Hidden = True
    Else
    End If
    
     If Worksheets("Accomplishments").Range("j17").Value = 5 Then
     Worksheets("Accomplishments").Rows("17:20").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("15").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("17:20").EntireRow.Hidden = True
    Else
    End If
    If Worksheets("Accomplishments").Range("j21").Value < 4 Then
     Worksheets("Accomplishments").Rows("21:24").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("17:18").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("21:24").EntireRow.Hidden = True
    Else
    End If
    
    If Worksheets("Accomplishments").Range("j21").Value = 4 Then
     Worksheets("Accomplishments").Rows("21:24").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("17:18").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("21:24").EntireRow.Hidden = True
    Else
    End If
    If Worksheets("Accomplishments").Range("j25").Value < 17 Then
     Worksheets("Accomplishments").Rows("25:28").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("16").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("25:28").EntireRow.Hidden = True
    Else
    End If
    
    If Worksheets("Accomplishments").Range("j25").Value = 17 Then
     Worksheets("Accomplishments").Rows("25:28").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("16").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("25:28").EntireRow.Hidden = True
    Else
    End If
    
      If Worksheets("Accomplishments").Range("j33").Value < 70 Then
     Worksheets("Accomplishments").Rows("33:36").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("12").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("33:36").EntireRow.Hidden = True
    Else
    End If
    
    If Worksheets("Accomplishments").Range("j33").Value = 70 Then
     Worksheets("Accomplishments").Rows("33:36").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("12").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("33:36").EntireRow.Hidden = True
    Else
    End If
      If Worksheets("Accomplishments").Range("j37").Value > 100 Then
     Worksheets("Accomplishments").Rows("37:41").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("13").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("37:41").EntireRow.Hidden = True
    Else
    End If
    
      If Worksheets("Accomplishments").Range("j37").Value = 100 Then
     Worksheets("Accomplishments").Rows("37:41").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("13").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("37:41").EntireRow.Hidden = True
    Else
    End If
      If Worksheets("Accomplishments").Range("j42").Value < 15 Then
     Worksheets("Accomplishments").Rows("42:45").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("14").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("42:45").EntireRow.Hidden = True
    Else
    End If
    
      If Worksheets("Accomplishments").Range("j42").Value = 15 Then
     Worksheets("Accomplishments").Rows("42:45").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("14").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("42:45").EntireRow.Hidden = True
    Else
    End If
If Worksheets("Accomplishments").Range("j17").Value < 5 And Worksheets("Accomplishments").Range("j17").Value = 5 And Worksheets("Accomplishments").Range("j21").Value < 4 And Worksheets("Accomplishments").Range("j21").Value = 4 And Worksheets("Accomplishments").Range("j25").Value < 17 And Worksheets("Accomplishments").Range("j25").Value = 17 And Worksheets("Accomplishments").Range("j33").Value > 70 And Worksheets("Accomplishments").Range("j33").Value = 70 And Worksheets("Accomplishments").Range("j37").Value > 100 And Worksheets("Accomplishments").Range("j37").Value = 100 And Worksheets("Accomplishments").Range("j42").Value = 15 And Worksheets("Accomplishments").Range("j42").Value < 15 Then
Worksheets("Actionplan").Rows("11").EntireRow.Hidden = False
Else
 End If
   
    
     If Worksheets("Accomplishments").Range("j52").Value < 85 Then
    Worksheets("Accomplishments").Rows("52:61").EntireRow.Hidden = True
    Worksheets("Actionplan").Rows("19").EntireRow.Hidden = True
    Worksheets("Oppurtunities").Rows("52:61").EntireRow.Hidden = False
    Else
    End If
    If Worksheets("Accomplishments").Range("j52").Value = 85 Then
     Worksheets("Accomplishments").Rows("52:61").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("19").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("52:61").EntireRow.Hidden = True
    Else
    End If
   
    
  
  If Worksheets("Accomplishments").Range("j62").Value < 85 Then
     Worksheets("Accomplishments").Rows("62:77").EntireRow.Hidden = True
       Worksheets("Actionplan").Rows("20").EntireRow.Hidden = True
      Worksheets("Oppurtunities").Rows("62:77").EntireRow.Hidden = False
    Else
    End If
  
     If Worksheets("Accomplishments").Range("j62").Value = 85 Then
     Worksheets("Accomplishments").Rows("62:77").EntireRow.Hidden = False
       Worksheets("Actionplan").Rows("20").EntireRow.Hidden = False
      Worksheets("Oppurtunities").Rows("62:77").EntireRow.Hidden = True
    Else
    End If
    
    
     If Worksheets("Accomplishments").Range("j52").Value > 85 And Worksheets("Accomplishments").Range("j52").Value = 85 And Worksheets("Accomplishments").Range("j62").Value > 85 And Worksheets("Accomplishments").Range("j62").Value = 85 Then
    Worksheets("Actionplan").Rows("18").EntireRow.Hidden = False
     Else
    End If
    
    
    
     Worksheets("Accomplishments").Rows("29:32").EntireRow.Hidden = True
    Worksheets("Accomplishments").Rows("46:51").EntireRow.Hidden = True
    Worksheets("Oppurtunities").Rows("29:32").EntireRow.Hidden = True
    Worksheets("Oppurtunities").Rows("46:51").EntireRow.Hidden = True
End Sub
 

Excel Facts

Why are there 1,048,576 rows in Excel?
The Excel team increased the size of the grid in 2007. There are 2^20 rows and 2^14 columns for a total of 17 billion cells.
Sort by date Sort by votes
I sorted myself out.

In this case a statement must be made of > < and =

I only did two > = previously.

It now works like a charm. Excell checking cells and depending on value autohiding rows. I am an excell noob.. only started with macro's last week. :biggrin: But its fun.

Code: 
Sub CreatePEP()

'Attendance must be 100%'
    If Worksheets("Accomplishments").Range("J5").Value < 100 Then
     Worksheets("Accomplishments").Rows("5:8").EntireRow.Hidden = True
     Worksheets("Oppurtunities").Rows("5:8").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("6:7").EntireRow.Hidden = True
    
    Else
    End If

If Worksheets("Accomplishments").Range("J5").Value = 100 Then
     Worksheets("Accomplishments").Rows("5:8").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("5:8").EntireRow.Hidden = True
    Worksheets("Actionplan").Rows("6:7").EntireRow.Hidden = False
  
    Else
    End If
'End Attendance'

'Breaks must be below 105% or equal to 105%'
    If Worksheets("Accomplishments").Range("J9").Value < 105 Then
 Worksheets("Accomplishments").Rows("9:12").EntireRow.Hidden = False
Worksheets("Oppurtunities").Rows("9:12").EntireRow.Hidden = True
Worksheets("Actionplan").Rows("9").EntireRow.Hidden = False
Else
 End If
 
    If Worksheets("Accomplishments").Range("J9").Value > 105 Then
 Worksheets("Accomplishments").Rows("9:12").EntireRow.Hidden = True
Worksheets("Oppurtunities").Rows("9:12").EntireRow.Hidden = False
Worksheets("Actionplan").Rows("9").EntireRow.Hidden = True
Else
 End If

 If Worksheets("Accomplishments").Range("J9").Value = 105 Then
 Worksheets("Accomplishments").Rows("9:12").EntireRow.Hidden = False
Worksheets("Oppurtunities").Rows("9:12").EntireRow.Hidden = True
Worksheets("Actionplan").Rows("9").EntireRow.Hidden = False
Else
 End If
'End breaks'

'Punctuality must be 100%'
If Worksheets("Accomplishments").Range("J13").Value = 100 Then
     Worksheets("Accomplishments").Rows("13:16").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("13:16").EntireRow.Hidden = True
    Worksheets("Actionplan").Rows("10").EntireRow.Hidden = False
  Else
    End If

    If Worksheets("Accomplishments").Range("J13").Value < 100 Then
     Worksheets("Accomplishments").Rows("13:16").EntireRow.Hidden = True
     Worksheets("Oppurtunities").Rows("13:16").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("10").EntireRow.Hidden = True
    
    Else
  End If
'End punctuality'



    'Hold must be 5% or less'
    If Worksheets("Accomplishments").Range("j17").Value < 5 Then
     Worksheets("Accomplishments").Rows("17:20").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("15").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("17:20").EntireRow.Hidden = True
    Else
    End If
    
         If Worksheets("Accomplishments").Range("j17").Value > 5 Then
     Worksheets("Accomplishments").Rows("17:20").EntireRow.Hidden = True
    Worksheets("Actionplan").Rows("15").EntireRow.Hidden = True
    Worksheets("Oppurtunities").Rows("17:20").EntireRow.Hidden = False
    Else
    End If
    
     If Worksheets("Accomplishments").Range("j17").Value = 5 Then
     Worksheets("Accomplishments").Rows("17:20").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("15").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("17:20").EntireRow.Hidden = True
    Else
    End If
'End Hold'


'Wrap Up must be 4 minutes or less'
    If Worksheets("Accomplishments").Range("j21").Value < 4 Then
     Worksheets("Accomplishments").Rows("21:24").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("17:18").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("21:24").EntireRow.Hidden = True
    Else
    End If
    
      If Worksheets("Accomplishments").Range("j21").Value > 4 Then
     Worksheets("Accomplishments").Rows("21:24").EntireRow.Hidden = True
    Worksheets("Actionplan").Rows("17:18").EntireRow.Hidden = True
    Worksheets("Oppurtunities").Rows("21:24").EntireRow.Hidden = False
    Else
    End If
    
    If Worksheets("Accomplishments").Range("j21").Value = 4 Then
     Worksheets("Accomplishments").Rows("21:24").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("17:18").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("21:24").EntireRow.Hidden = True
    Else
    End If
 'End Wrap Up'
   
    
'AHT must be 17 minutes or less'
    If Worksheets("Accomplishments").Range("j25").Value < 17 Then
     Worksheets("Accomplishments").Rows("25:28").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("16").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("25:28").EntireRow.Hidden = True
    Else
    End If
    
       If Worksheets("Accomplishments").Range("j25").Value > 17 Then
     Worksheets("Accomplishments").Rows("25:28").EntireRow.Hidden = True
    Worksheets("Actionplan").Rows("16").EntireRow.Hidden = True
    Worksheets("Oppurtunities").Rows("25:28").EntireRow.Hidden = False
    Else
    End If
    
    If Worksheets("Accomplishments").Range("j25").Value = 17 Then
     Worksheets("Accomplishments").Rows("25:28").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("16").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("25:28").EntireRow.Hidden = True
    Else
    End If
 'End AHT'
 
 'Call tagging must be 50% or more'
  
        If Worksheets("Accomplishments").Range("j29").Value > 50 Then
     Worksheets("Accomplishments").Rows("29:32").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("15").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("29:32").EntireRow.Hidden = True
    Else
    End If
    
        If Worksheets("Accomplishments").Range("j29").Value < 50 Then
     Worksheets("Accomplishments").Rows("29:32").EntireRow.Hidden = True
    Worksheets("Actionplan").Rows("15").EntireRow.Hidden = True
    Worksheets("Oppurtunities").Rows("29:32").EntireRow.Hidden = False
    Else
    End If
    
       If Worksheets("Accomplishments").Range("j29").Value = 50 Then
     Worksheets("Accomplishments").Rows("29:32").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("15").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("29:32").EntireRow.Hidden = True
    Else
    End If
   'End Quality'
    
  'Occupancy must be 70% or more'
      If Worksheets("Accomplishments").Range("j33").Value < 70 Then
     Worksheets("Accomplishments").Rows("33:36").EntireRow.Hidden = True
    Worksheets("Actionplan").Rows("12").EntireRow.Hidden = True
    Worksheets("Oppurtunities").Rows("33:36").EntireRow.Hidden = False
    Else
    End If
    
      If Worksheets("Accomplishments").Range("j33").Value > 70 Then
     Worksheets("Accomplishments").Rows("33:36").EntireRow.Hidden = True
    Worksheets("Actionplan").Rows("12").EntireRow.Hidden = True
    Worksheets("Oppurtunities").Rows("33:36").EntireRow.Hidden = False
    Else
    End If
    
    If Worksheets("Accomplishments").Range("j33").Value = 70 Then
     Worksheets("Accomplishments").Rows("33:36").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("12").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("33:36").EntireRow.Hidden = True
    Else
    End If
 'End Occupancy'
 
 
 'RNT Usage must be 100% or more'
  If Worksheets("Accomplishments").Range("j37").Value < 100 Then
     Worksheets("Accomplishments").Rows("37:41").EntireRow.Hidden = True
    Worksheets("Actionplan").Rows("13").EntireRow.Hidden = True
    Worksheets("Oppurtunities").Rows("37:41").EntireRow.Hidden = False
    Else
    End If

 
      If Worksheets("Accomplishments").Range("j37").Value > 100 Then
     Worksheets("Accomplishments").Rows("37:41").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("13").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("37:41").EntireRow.Hidden = True
    Else
    End If
    
    
      If Worksheets("Accomplishments").Range("j37").Value = 100 Then
     Worksheets("Accomplishments").Rows("37:41").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("13").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("37:41").EntireRow.Hidden = True
    Else
    End If
    'End RNT'
    
    
'Requeued Calls must be 15 or less'
  If Worksheets("Accomplishments").Range("j42").Value > 15 Then
     Worksheets("Accomplishments").Rows("42:45").EntireRow.Hidden = True
    Worksheets("Actionplan").Rows("14").EntireRow.Hidden = True
    Worksheets("Oppurtunities").Rows("42:45").EntireRow.Hidden = False
    Else
    End If


      If Worksheets("Accomplishments").Range("j42").Value < 15 Then
     Worksheets("Accomplishments").Rows("42:45").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("14").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("42:45").EntireRow.Hidden = True
    Else
    End If
    
      If Worksheets("Accomplishments").Range("j42").Value = 15 Then
     Worksheets("Accomplishments").Rows("42:45").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("14").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("42:45").EntireRow.Hidden = True
    Else
    End If
 'End Requeued Calls'

'Total Not Ready must be 25% or less'
  If Worksheets("Accomplishments").Range("j46").Value > 25 Then
     Worksheets("Accomplishments").Rows("46:51").EntireRow.Hidden = True
    Worksheets("Actionplan").Rows("19").EntireRow.Hidden = True
    Worksheets("Oppurtunities").Rows("46:51").EntireRow.Hidden = False
    Else
    End If


      If Worksheets("Accomplishments").Range("j46").Value < 25 Then
     Worksheets("Accomplishments").Rows("46:51").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("19").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("46:51").EntireRow.Hidden = True
    Else
    End If
    
      If Worksheets("Accomplishments").Range("j46").Value = 25 Then
     Worksheets("Accomplishments").Rows("46:51").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("19").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("46:51").EntireRow.Hidden = True
    Else
    End If
 'End Not Ready'


'AET must be 10 minutes or less'
    If Worksheets("Accomplishments").Range("j50").Value < 10 Then
     Worksheets("Accomplishments").Rows("50:53").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("20").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("50:53").EntireRow.Hidden = True
    Else
    End If
    
       If Worksheets("Accomplishments").Range("j50").Value > 10 Then
     Worksheets("Accomplishments").Rows("50:53").EntireRow.Hidden = True
    Worksheets("Actionplan").Rows("20").EntireRow.Hidden = True
    Worksheets("Oppurtunities").Rows("50:53").EntireRow.Hidden = False
    Else
    End If
    
    If Worksheets("Accomplishments").Range("j50").Value = 10 Then
     Worksheets("Accomplishments").Rows("50:53").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("20").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("50:53").EntireRow.Hidden = True
    Else
    End If
 'End AET'


'ACT must be 25 minutes or less'
    If Worksheets("Accomplishments").Range("j54").Value < 25 Then
     Worksheets("Accomplishments").Rows("54:57").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("21").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("54:57").EntireRow.Hidden = True
    Else
    End If
    
       If Worksheets("Accomplishments").Range("j54").Value > 25 Then
     Worksheets("Accomplishments").Rows("54:57").EntireRow.Hidden = True
    Worksheets("Actionplan").Rows("21").EntireRow.Hidden = True
    Worksheets("Oppurtunities").Rows("54:57").EntireRow.Hidden = False
    Else
    End If
    
    If Worksheets("Accomplishments").Range("j54").Value = 25 Then
     Worksheets("Accomplishments").Rows("54:57").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("21").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("54:57").EntireRow.Hidden = True
    Else
    End If
 'End ACT'

 
  'Quality must be 85% or more'
  
        If Worksheets("Accomplishments").Range("j58").Value > 85 Then
     Worksheets("Accomplishments").Rows("58:67").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("23").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("58:67").EntireRow.Hidden = True
    Else
    End If
    
        If Worksheets("Accomplishments").Range("j58").Value < 85 Then
     Worksheets("Accomplishments").Rows("58:67").EntireRow.Hidden = True
    Worksheets("Actionplan").Rows("23").EntireRow.Hidden = True
    Worksheets("Oppurtunities").Rows("58:67").EntireRow.Hidden = False
    Else
    End If
    
       If Worksheets("Accomplishments").Range("j58").Value = 85 Then
     Worksheets("Accomplishments").Rows("58:67").EntireRow.Hidden = False
    Worksheets("Actionplan").Rows("23").EntireRow.Hidden = False
    Worksheets("Oppurtunities").Rows("58:67").EntireRow.Hidden = True
    Else
    End If
   'End Quality'
   
   
   
    
  'CSAT must be 85% or more'
   If Worksheets("Accomplishments").Range("j68").Value > 85 Then
     Worksheets("Accomplishments").Rows("68:83").EntireRow.Hidden = False
       Worksheets("Actionplan").Rows("24").EntireRow.Hidden = False
      Worksheets("Oppurtunities").Rows("68:83").EntireRow.Hidden = True
    Else
    End If
  
  
  If Worksheets("Accomplishments").Range("j68").Value < 85 Then
     Worksheets("Accomplishments").Rows("68:83").EntireRow.Hidden = True
       Worksheets("Actionplan").Rows("24").EntireRow.Hidden = True
      Worksheets("Oppurtunities").Rows("68:83").EntireRow.Hidden = False
    Else
    End If
  
     If Worksheets("Accomplishments").Range("j68").Value = 85 Then
     Worksheets("Accomplishments").Rows("68:83").EntireRow.Hidden = False
       Worksheets("Actionplan").Rows("24").EntireRow.Hidden = False
      Worksheets("Oppurtunities").Rows("68:83").EntireRow.Hidden = True
    Else
    End If
'End CSAT'
    
    
'Actionplan compiler'
    
    
    'Start Schedule adherance hide'
If Worksheets("Accomplishments").Range("J9").Value > 105 And Worksheets("Accomplishments").Range("j13").Value < 100 Then
 Worksheets("Actionplan").Rows("8").EntireRow.Hidden = True
Else
End If
'End schedule adherance hide'

'Start Producitivity hide'
If Worksheets("Accomplishments").Range("j17").Value > 5 And Worksheets("Accomplishments").Range("j21").Value > 4 And Worksheets("Accomplishments").Range("j25").Value > 17 And Worksheets("Accomplishments").Range("j33").Value < 70 And Worksheets("Accomplishments").Range("j37").Value < 100 And Worksheets("Accomplishments").Range("j42").Value > 15 And Worksheets("Accomplishments").Range("j46").Value > 25 And Worksheets("Accomplishments").Range("j50").Value > 10 And Worksheets("Accomplishments").Range("j54").Value > 25 Then
Worksheets("Actionplan").Rows("11").EntireRow.Hidden = True
Else
 End If
 'End Productivity hide'

 
 'Start Quality and CSAT Hide'
   If Worksheets("Accomplishments").Range("j58").Value < 85 And Worksheets("Accomplishments").Range("j68").Value < 85 Then
    Worksheets("Actionplan").Rows("22").EntireRow.Hidden = True
     Else
    End If
'End Quality and CSAT Hide'

'End Action plan compiler'




'hide code'
End Sub




Sub Button1_Click()
'
' Button1_Click Macro
'

'
    Rows("6:7").Select
    Selection.EntireRow.Hidden = True
End Sub
Sub Button2_Click()
'
' Button2_Click Macro
'

'
    Rows("8:8").Select
    Selection.EntireRow.Hidden = True
End Sub

Sub Button3_Click()
'
' Button3_Click Macro
'

'
    Rows("9").Select
    Selection.EntireRow.Hidden = True
End Sub
Sub Button4_Click()
'
' Button4_Click Macro
'

'
    Rows("10").Select
    Selection.EntireRow.Hidden = True
End Sub
Sub Button5_Click()
'
' Button5_Click Macro
'

'
    Rows("11").Select
    Selection.EntireRow.Hidden = True
End Sub
Sub Button6_Click()
'
' Button6_Click Macro
'

'
    Rows("12").Select
    Selection.EntireRow.Hidden = True
End Sub

Sub Button7_Click()
'
' Button7_Click Macro
'

'
    Rows("13").Select
    Selection.EntireRow.Hidden = True
End Sub
Sub Button8_Click()
'
' Button8_Click Macro
'

'
    Rows("14").Select
    Selection.EntireRow.Hidden = True
End Sub
Sub Button9_Click()
'
' Button9_Click Macro
'

'
    Rows("15").Select
    Selection.EntireRow.Hidden = True
End Sub
Sub Button10_Click()
'
' Button10_Click Macro
'

'
    Rows("16").Select
    Selection.EntireRow.Hidden = True
End Sub
Sub Button11_Click()
'
' Button11_Click Macro
'

'
    Rows("17").Select
    Selection.EntireRow.Hidden = True
End Sub
Sub Button12_Click()
'
' Button12_Click Macro
'

'
    Rows("18:19").Select
    Selection.EntireRow.Hidden = True
End Sub
Sub Button13_Click()
'
' Actionplan: Set Target - Attendance
'

'
    Rows("29:33").Select
    Selection.EntireRow.Hidden = False
End Sub
Sub Button14_Click()
'
' Actionplan: Set Target - Breaks
'

'
    Rows("34:38").Select
    Selection.EntireRow.Hidden = False
End Sub
Sub Button15_Click()
'
' Actionplan: Set Target - Punctuality
'

'
    Rows("39:43").Select
    Selection.EntireRow.Hidden = False
End Sub
Sub Button16_Click()
'
' Actionplan: Set Target - Hold
'

'
    Rows("44:48").Select
    Selection.EntireRow.Hidden = False
End Sub
Sub Button17_Click()
'
' Actionplan: Set Target - AHT
'

'
    Rows("49:53").Select
    Selection.EntireRow.Hidden = False
End Sub
Sub Button18_Click()
'
' Actionplan: Set Target - Wrap Up
'

'
    Rows("54:58").Select
    Selection.EntireRow.Hidden = False
End Sub
Sub Button19_Click()
'
' Actionplan: Set Target - RNT
'

'
    Rows("59:63").Select
    Selection.EntireRow.Hidden = False
End Sub
Sub Button20_Click()
'
' Actionplan: Set Target - Occupancy
'

'
    Rows("64:68").Select
    Selection.EntireRow.Hidden = False
End Sub
Sub Button21_Click()
'
' Actionplan: Set Target - Call Tagging
'

'
    Rows("69:73").Select
    Selection.EntireRow.Hidden = False
End Sub
Sub Button22_Click()
'
' Actionplan: Set Target - Requeued calls
'

'
    Rows("74:78").Select
    Selection.EntireRow.Hidden = False
End Sub
Sub Button23_Click()
'
' Actionplan: Set Target - Not Ready
'

'
    Rows("79:83").Select
    Selection.EntireRow.Hidden = False
End Sub
Sub Button24_Click()
'
' Actionplan: Set Target - AET
'

'
    Rows("84:88").Select
    Selection.EntireRow.Hidden = False
End Sub
Sub Button25_Click()
'
' Actionplan: Set Target - ACT
'

'
    Rows("89:93").Select
    Selection.EntireRow.Hidden = False
End Sub
Sub Button26_Click()
'
' Actionplan: Set Target - Monitoring
'

'
    Rows("94:98").Select
    Selection.EntireRow.Hidden = False
End Sub
Sub Button27_Click()
'
' Actionplan: Set Target - CSAT
'

'
    Rows("99:103").Select
    Selection.EntireRow.Hidden = False
End Sub

Sub Button28_Click()
'
' Call Tagging hide code
'
 Worksheets("Accomplishments").Rows("29:32").EntireRow.Hidden = True
 Worksheets("Oppurtunities").Rows("29:32").EntireRow.Hidden = True
  Worksheets("Actionplan").Rows("15").EntireRow.Hidden = True
   
End Sub

Sub Button29_Click()
'
'AET hide code'
'
     Worksheets("Accomplishments").Rows("50:53").EntireRow.Hidden = True
     Worksheets("Oppurtunities").Rows("50:53").EntireRow.Hidden = True
     Worksheets("Actionplan").Rows("20").EntireRow.Hidden = True
   
End Sub

Sub Button30_Click()
'
'ACT hide code'
'
     Worksheets("Accomplishments").Rows("54:57").EntireRow.Hidden = True
     Worksheets("Oppurtunities").Rows("54:57").EntireRow.Hidden = True
     Worksheets("Actionplan").Rows("21").EntireRow.Hidden = True
   
End Sub
Sub Button31_Click()
'
'CSAT hide code'
'
   Worksheets("Accomplishments").Rows("68:83").EntireRow.Hidden = True
    Worksheets("Oppurtunities").Rows("68:83").EntireRow.Hidden = True
    Worksheets("Actionplan").Rows("24").EntireRow.Hidden = True
   
End Sub

Sub unhideall()
'
' unhideall Macro
'

    Worksheets("Accomplishments").Rows("1:125").Select
    Worksheets("Accomplishments").Rows("1:125").EntireRow.Hidden = False
    Range("A1").Select
   
End Sub

  
    ' Worksheets("Oppurtunities").Rows("1:125").Select
    ' Worksheets("Oppurtunities").Rows("1:125").EntireRow.Hidden = False
    ' Range("A1").Select
    ' Worksheets("Oppurtunities").Rows("1:28").Select
    ' Worksheets("Oppurtunities").Rows("1:28").EntireRow.Hidden = True
    ' Range("A1").Select
    ' Worksheets("Oppurtunities").Rows("29:28").Select
    ' Worksheets("Oppurtunities").Rows("29:125").EntireRow.Hidden = True
    ' Range("A1").Select
    '
    
Sub unhideall2()
'
' unhide Actionplan Oppurtunities
'

'
    Rows("25:104").Select
    Selection.EntireRow.Hidden = True
    Range("A1").Select
End Sub
Sub Unhide3()
'
' Unhide3 Macro
'

'
    Rows("29:105").Select
    Selection.EntireRow.Hidden = True
End Sub
Sub Unhide4()
'
' Unhide4 Macro
'

'
    Rows("80:105").Select
    Selection.EntireRow.Hidden = True
End Sub
Sub Unhide5()
'
' Unhide5 Macro
'

'
    Rows("80:105").Select
    Selection.EntireRow.Hidden = False
End Sub
'End hide'
 
Upvote 0
You must log in or register to reply here.

Similar threads

O
  • Question Question
Somewhat basic UDFs work except that they return #VALUE! error after hiding rows with VBA.
Replies
2
Views
129
OaklandJim
O
N
  • Question Question
Hiding/showing rows between two values
Replies
1
Views
464
Joe4
Joe4
imback2nite
  • Solved
VBA help.
2
Replies
10
Views
803
Peter_SSs
Peter_SSs
B
  • Solved
Another VBA question to hide/unhide rows based on cell value in another sheet
2
Replies
12
Views
1K
kevin9999
K
N
  • Question Question
ActiveX Checkbox fails after sheetname change
Replies
4
Views
383
bobsan42
bobsan42

Forum statistics

Threads
1,224,532
Messages
6,179,388
Members
452,908
Latest member
MTDelphis

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