Hi All,
I have an issue I have not been able to resolve with the properties of the textboxes alone, within my userform some of the textboxes are populated with dates from a sheet, the format of these dates in the sheet is DD/MM/YYYY
but when the textboxes in the userform are populated with these dates they show as MM/DD/YYYY, can anyone help correct this format please,
Thanks in advance,
Below is the full code and below this the code populating the date textboxes
Here are the textboxes populated with dates
I have an issue I have not been able to resolve with the properties of the textboxes alone, within my userform some of the textboxes are populated with dates from a sheet, the format of these dates in the sheet is DD/MM/YYYY
but when the textboxes in the userform are populated with these dates they show as MM/DD/YYYY, can anyone help correct this format please,
Thanks in advance,
Below is the full code and below this the code populating the date textboxes
VBA Code:
Private Sub resetadd_Click()
Dim errMsg As String
On Error GoTo errHandler
'Stage 1
errMsg = "This Name Is Not In The Database. Please Try Again. :D"
Application.ScreenUpdating = False
'Sheets("Home").Select
Sheets("People").Visible = True
Sheets("People").Select
Sheets("People").Range("B4") = TextBox1.Value
Range("C1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Range("C999").Select
'ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
startdate.Value = Sheets("People").Range("E1000").Value
service.Value = Sheets("People").Range("G1000").Value
undays.Value = Sheets("People").Range("H1000").Value
lieu.Value = Sheets("People").Range("K1000").Value
earned.Value = Sheets("People").Range("J1000").Value
floating.Value = Sheets("People").Range("I1000").Value
area.Value = Sheets("People").Range("L1000").Value
pass.Value = Sheets("People").Range("M1000").Value
ID.Value = Sheets("People").Range("C1000").Value
orical.Value = Sheets("People").Range("D1000").Value
myhr.Value = Sheets("People").Range("F1000").Value
contact.Value = Sheets("People").Range("N1000").Value
email.Value = Sheets("People").Range("O1000").Value
p60.Value = Sheets("People").Range("Q1000").Value
p60c.Value = Sheets("People").Range("S1000").Value
p60z.Value = Sheets("People").Range("U1000").Value
longforks.Value = Sheets("People").Range("W1000").Value
counter.Value = Sheets("People").Range("Y1000").Value
reach.Value = Sheets("People").Range("AA1000").Value
flatbed.Value = Sheets("People").Range("AC1000").Value
bframe.Value = Sheets("People").Range("AE1000").Value
cframe.Value = Sheets("People").Range("AG1000").Value
eframe.Value = Sheets("People").Range("AI1000").Value
phev.Value = Sheets("People").Range("AK1000").Value
manual.Value = Sheets("People").Range("AM1000").Value
If Worksheets("People").Range("P1000").Text = "yes" Then
p60v.Value = True
Else
p60v.Value = False
End If
If Worksheets("People").Range("R1000").Text = "yes" Then
p60cv.Value = True
Else
p60cv.Value = False
End If
If Worksheets("People").Range("T1000").Text = "yes" Then
p60zv.Value = True
Else
p60zv.Value = False
End If
If Worksheets("People").Range("V1000").Text = "yes" Then
longforksv.Value = True
Else
longforksv.Value = False
End If
If Worksheets("People").Range("X1000").Text = "yes" Then
counterv.Value = True
Else
counterv.Value = False
End If
If Worksheets("People").Range("Z1000").Text = "yes" Then
reachv.Value = True
Else
reachv.Value = False
End If
If Worksheets("People").Range("AB1000").Text = "yes" Then
flatbedv.Value = True
Else
flatbedv.Value = False
End If
If Worksheets("People").Range("AD1000").Text = "yes" Then
bframev.Value = True
Else
bframev.Value = False
End If
If Worksheets("People").Range("AF1000").Text = "yes" Then
cframev.Value = True
Else
cframev.Value = False
End If
If Worksheets("People").Range("AH1000").Text = "yes" Then
eframev.Value = True
Else
eframev.Value = False
End If
If Worksheets("People").Range("AJ1000").Text = "yes" Then
phevv.Value = True
Else
phevv.Value = False
End If
If Worksheets("People").Range("AL1000").Text = "yes" Then
manualv.Value = True
Else
manualv.Value = False
End If
Range("C800:AZ1200").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C800").Select
ActiveSheet.Range("$C$1:$AM$989").AutoFilter Field:=1
Range("C22").Select
Selection.End(xlUp).Select
Sheets("People").Select
ActiveWindow.SelectedSheets.Visible = False
'Sheets(LastSheet).Select
Sheets("Home").Select
Application.ScreenUpdating = True
GoTo endProc
errHandler:
MsgBox errMsg
endProc:
TextBox1.Value = ""
TextBox1.SetFocus
Exit Sub
End Sub
Here are the textboxes populated with dates
VBA Code:
If Worksheets("People").Range("P1000").Text = "yes" Then
p60v.Value = True
Else
p60v.Value = False
End If
If Worksheets("People").Range("R1000").Text = "yes" Then
p60cv.Value = True
Else
p60cv.Value = False
End If
If Worksheets("People").Range("T1000").Text = "yes" Then
p60zv.Value = True
Else
p60zv.Value = False
End If
If Worksheets("People").Range("V1000").Text = "yes" Then
longforksv.Value = True
Else
longforksv.Value = False
End If
If Worksheets("People").Range("X1000").Text = "yes" Then
counterv.Value = True
Else
counterv.Value = False
End If
If Worksheets("People").Range("Z1000").Text = "yes" Then
reachv.Value = True
Else
reachv.Value = False
End If
If Worksheets("People").Range("AB1000").Text = "yes" Then
flatbedv.Value = True
Else
flatbedv.Value = False
End If
If Worksheets("People").Range("AD1000").Text = "yes" Then
bframev.Value = True
Else
bframev.Value = False
End If
If Worksheets("People").Range("AF1000").Text = "yes" Then
cframev.Value = True
Else
cframev.Value = False
End If
If Worksheets("People").Range("AH1000").Text = "yes" Then
eframev.Value = True
Else
eframev.Value = False
End If
If Worksheets("People").Range("AJ1000").Text = "yes" Then
phevv.Value = True
Else
phevv.Value = False
End If
If Worksheets("People").Range("AL1000").Text = "yes" Then
manualv.Value = True
Else
manualv.Value = False
End If