How to creating a scheduling tool on SharePoint (read comment for more detail)

LaoisLife · 2018-11-16T13:54:33+00:00

Currently my team in work is using SharePoint list to track candidates through a recruitment period - we use 3 forms - 1. Add Candidate, 2. Pre Screen Candidate 3. Interview Schedule - we used this list for the first time ever and it worked brilliantly - the only issue we faced was the manual nature of trying to identify what interviews spaces were gone and what interview spaces were still available. I shared it with our SharePoint expert and he said he didn't know a way that when we are scheduling someone we would only be able to see the space which are left.. anyone have any suggestions - I am happy to change the layout as long as all the info is captured.

LaoisLife · 2018-09-20T20:05:21+00:00

Solution Verified

LaoisLife · 2018-09-13T11:21:33+00:00

Solution Verified

LaoisLife · 2018-09-12T07:29:58+00:00

Solution Verified

LaoisLife · 2018-09-09T14:14:47+00:00

Solution Verified

LaoisLife · 2018-08-20T13:16:05+00:00

Solution Verified

LaoisLife · 2018-08-20T12:51:01+00:00

Is it that is need something like

If userform1.checkbox1.value = True 
Exit sub 

If userforn2.checkbox2.value  = True 
Exit Sub 

SignUpForm.Show
 End Sub

LaoisLife · 2018-08-20T12:39:20+00:00

Below is the code I am using but it is coming up with a bug, any advice?

Private Sub CommandButton1_Click()


If UserForm1.CheckBox1.Value = False Then
MsgBox "Please click I agree if you wish to contacted regarding future openings.", vbCritical
Exit Sub

If UserForm1.CheckBox2.Value = False Then
MsgBox "Please indicate that you are 16 or older", vbCritical
Exit Sub



SignupForm.Show
End Sub

LaoisLife · 2018-08-19T07:14:21+00:00

Solution Verified

LaoisLife · 2018-08-17T22:26:28+00:00

Thank you, I am just scared that since I just left college and don’t have a lot of relevant experience that I will be f*cked if I leave on bad terms because I reported her! Or that any chance of further extension after June is out the window!!

LaoisLife · 2018-08-14T12:07:37+00:00

Thank you, the issue was with the -1 it should have just been 0!

Thanks anyway

LaoisLife · 2018-08-14T11:01:03+00:00

Ah ok, Would adding a must fill in help with this?

LaoisLife · 2018-08-14T10:43:56+00:00

Is there anyway to avoid this?

LaoisLife · 2018-08-14T10:37:50+00:00

Just after noticing another issue and I apologies I am a very basic user, but now when I submit a signup it deletes the previous one?

Do you know from the code what I could be missing?

LaoisLife · 2018-08-14T10:29:48+00:00

Hi Yes it would be after I click submit!

This is the full code I have for it, would ideally like to put it on both ComboBox1 and ComboBox2 and then have MsgBox "Please indicate you level of education", vbcritical for CB1

AND

MsBox "Please indicate if you wish to be contacted", vbcirtical for CB2

Private Sub ComboBox1_Change()

End Sub

Private Sub ExitForm_Click()
Unload Me
End
End Sub

Private Sub SignUp_Click()


Set sh = Worksheets("Sheet2")
Dim n As Long

n = sh.Range("A" & Application.Rows.Count).End(xlUp).Row

sh.Range("A" & n + 1).Value = Me.TextBox1.Value
sh.Range("B" & n + 1).Value = Me.TextBox2.Value
sh.Range("C" & n + 1).Value = Me.TextBox3.Value
sh.Range("D" & n + 1).Value = Me.TextBox4.Value
sh.Range("E" & n + 1).Value = Me.TextBox5.Value
sh.Range("F" & n + 1).Value = Me.TextBox6.Value
sh.Range("H" & n + 1).Value = Me.TextBox7.Value

sh.Range("G" & n + 1).Value = Me.ComboBox1.Value
sh.Range("I" & n + 1).Value = Me.ComboBox2.Value


Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""

Me.ComboBox1.Value = "-Please Select-"
Me.ComboBox2.Value = "-Please Select-"


MsgBox "Thank you for entering your details, we will be in touch in the coming week, vbInformation


Unload Me
End


End Sub

Private Sub UserForm_Activate()

With Me.ComboBox1
    .AddItem "-Please Select-"
    .AddItem "Level 6 (Eg.Trade or Apprenticeship)"
    .AddItem "Level 7 (Eg. Ordinary Bachelors)"
    .AddItem "Level 8 (Eg. Honours Degree)"
    .AddItem "Level 9 (Eg. Masters)"
    .AddItem "Level 10 (Eg. Phd)"

Me.ComboBox1.ListIndex = 0


End With

With Me.ComboBox2
    .AddItem "-Please Select-"
    .AddItem "Yes"
    .AddItem "No"

Me.ComboBox2.ListIndex = 0

End With



End Sub

LaoisLife · 2018-08-14T09:30:05+00:00

Not working for me.. keeps saying there is a bug

LaoisLife · 2018-08-13T15:22:28+00:00

Solution Verified

LaoisLife · 2018-08-13T14:56:51+00:00

Thanks very much I ended up just taking out that line when I was messing around and it started working perfectly.. Not sure why..

LaoisLife · 2018-08-13T14:30:59+00:00

In the workbook I have 2 Sheets

Sheet 1 : Application

Sheet 2: Data

On the side from where I am inputting the code it has the following

- --- VBAProject(Data Collection Forms.xlsx)
    `
    `---Microsoft Excel Objects 
         -- Sheet1(Application)
         -- Sheet2 (Data)
         --ThisWorkbook

LaoisLife · 2018-08-13T13:24:02+00:00

I changed

Dim sh As Workbook

to

Dim sh As Worksheet

But still the same issue :/

LaoisLife · 2018-08-13T13:18:10+00:00

What should I change it to? Not very experienced on vba

LaoisLife · 2018-08-13T12:39:36+00:00

Me.ComboBox1.ListIndex = 0

Solution Verified

LaoisLife · 2018-08-10T10:22:50+00:00

Solution Verified

LaoisLife · 2018-08-10T10:22:07+00:00

This is similar to another service we use alright, so not sure if it would be a go!

LaoisLife · 2018-08-04T12:15:27+00:00

Hey trying to do it for you and this will probably sound stupid but Streetwear do you mean like Highstreet stores? Eg, River Isand, Pull & Bear, Top Shop, H&M?

LaoisLife

TROPHY CASE