Unhide Next 2 rows with macro button

[MagalieD]

Hi,
I'm working on a Schedule Sheet where when you push a Macro Button, the employee information enters the schedule automatically. Where I have a problem, is that I want the rows hidden before entering the informations in the schedule.

Exemple:
The employees infos are in column A and B on 2 rows. If before adding a new employee I have 5 employees, my schedule will have 10 rows. Now, I want that when a Manager enters the new informations and click a the button "Add Employee" 2 rows are added or unhidden and the informations are already in the schedule, ready to add their Shifts.

I hope it's clear,
Thanks for the help.

 

[Peter_SSs]

Welcome to the MrExcel board!

See if this is any use. I assume that you have at least 1 heading row and then some employee data rows.
Hide some rows below that & use this code to unhide two at a time.

Sub Unhide2rows()
  With Columns("A").SpecialCells(xlVisible).Areas(1)
    If .Rows.Count < Columns("A").Rows.Count - 1 Then .Resize(.Rows.Count + 2).EntireRow.Hidden = False
  End With
End Sub

 

[MagalieD]

Thanks, it works! I just needed to format my schedule as a table and it works perfectly! Thank you!

 

[Peter_SSs]

Having a formal table is fine (& often a very good idea) however you shouldn't have needed a formal table just to make my code work.
Anyway, glad it helped & thanks for the follow-up.