excel form creation

hi rawtech
welcome to the forum
the link http://www.youtube.com/watch?v=5PN7lWJSobQ is very helpful

Hi rawtech, in the VBE, click on insert and then select unserform

Sorry Pike, you beat me to it

its all good .. there is no race .. but if there was...

another http://www.exceltip.com/show_tip/Use...Excel/629.html

Excel has an inbuilt dataform

There's an example of a custom form here

OK, I am not sure if I am allowed to do this,*************.

I have attached an excel file with what I need. Hopefully should be pretty straight forward.

rawtech..
please keep all post in the forum ... ask specific questions and we can help ... it a help forum not a do it for me forum

hi rawtech,

i dont follow? can you attach a sample workbook of your layout?

rawtech
one way would be in the worksheet module add the code

Private Sub Worksheet_Activate()
userform1.Show
End Sub

when the sheet is activate it will open the userform

another is code in the open workbook

you will always have to close the userform at some time so add a exit command button
to the userform

Private Sub CommandButton1_Click()
Unload UserForm1
worksheets("Sheet1").activate
End Sub

and

Private Sub UserForm_QueryClose(Cancel%, CloseMode%)
If CloseMode = vbFormControlMenu Then
MsgBox " click the Exit button to close the UserForm"
Cancel = True
End If
End Sub

and also add the code to open workbook event in thisworkbook module

Private Sub Workbook_Open()
worksheets("Sheet2").activate
userform1.show
End Sub

Dude
time to upload a example workbook, as I dont know what you are working on or where the code is entered.

Hey rawtech,
well done

Private Sub cboEndHour_Change()
Call Calculate_txtDuration
End Sub

Private Sub cboEndMinute_Change()
Call Calculate_txtDuration
End Sub

Private Sub cboStartHour_Change()
Call Calculate_txtDuration
End Sub

Private Sub cboStartMinute_Change()
Call Calculate_txtDuration
End Sub
Sub Calculate_txtDuration()
If Me.cboEndHour.Value <> "" And Me.cboEndMinute.Value <> "" And Me.cboStartHour.Value <> "" And Me.cboEndHour.Value <> "" And Me.cboStartMinute <> "" Then
Me.txtDuration.Value = "your Calx"
End If
End Sub

what else?

rawtech
VBA has a built-in time difference function you can use "DateDiff"

Sub Calculate_txtDuration()
    Dim dteStartDateTime As Date, dteEndDateTime As Date
    If Me.cboEndHour.Value <> "" And Me.cboEndMinute.Value <> "" And Me.cboStartHour.Value <> "" And Me.cboEndHour.Value <> "" And Me.cboStartMinute <> "" Then
        dteStartDateTime = Me.dtpStartDate.Value & " " & Me.cboStartHour.Value & ":" & Me.cboStartMinute.Value
        dteEndDateTime = Me.dtpEndDate.Value & " " & Me.cboEndHour.Value & ":" & Me.cboEndMinute.Value
        Me.txtDuration.Value = "Hours:" & DateDiff("h", dteStartDateTime, dteEndDateTime) & " Min:" & DateDiff("n", dteStartDateTime, dteEndDateTime) - (DateDiff("h", dteStartDateTime, dteEndDateTime) * 60)
    End If
End Sub