D
Dimitrios Paterakis
Guest
Hello All,
I am trying to create a simple sign up sheet using an exsisting spreadsheet. As it is used now, one person is a point of contact that issues 5 minute blocks of "work" by entering a technician name. I have a macro that automatically stamps the date and time. I would like to create a way for each user to get their own blocks using a User Form. The form would populate the next available block and display the block to the user requesting it. I've been trying to do this myself for some time but to no avail. It's definitley beyond my ability at this point but it seems like it would be fairly simple for an advanced user. Any help would be greatly appreciated.
This is the User Form I would like to use. User enters name, clicks Get Next Block button, and the next unassigned block is then assigned and displayed in the block window.
This is the current spreadsheet currently being used without the UserForm
Here's the code that enters the date and time automatically. It works just fine, I'm including it just in case.
I am trying to create a simple sign up sheet using an exsisting spreadsheet. As it is used now, one person is a point of contact that issues 5 minute blocks of "work" by entering a technician name. I have a macro that automatically stamps the date and time. I would like to create a way for each user to get their own blocks using a User Form. The form would populate the next available block and display the block to the user requesting it. I've been trying to do this myself for some time but to no avail. It's definitley beyond my ability at this point but it seems like it would be fairly simple for an advanced user. Any help would be greatly appreciated.
This is the User Form I would like to use. User enters name, clicks Get Next Block button, and the next unassigned block is then assigned and displayed in the block window.
This is the current spreadsheet currently being used without the UserForm
Here's the code that enters the date and time automatically. It works just fine, I'm including it just in case.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Application.EnableEvents = False
Cells(Target.Row, 3).Value = Time
Cells(Target.Row, 4).Value = Date
Application.EnableEvents = True
End If
End Sub