I need help with Vbe in Excel

[Ama]

hello, I am having trouble with my excel workbook - I want to add a date that updates but I don't want the time with it. Ama

 

[NARAYANK991]

Hi ,

To use the data alone , use the INT function ; thus suppose you have a date + time in cell A1 , such as :

22-12-2014 12:35:46 PM

using the INT function around this , as in :

=INT(A1)

will return :

22-12-2014

Narayan

 

[Ama]

Hi ,

To use the data alone , use the INT function ; thus suppose you have a date + time in cell A1 , such as :

22-12-2014 12:35:46 PM

using the INT function around this , as in :

=INT(A1)

will return :

22-12-2014

Narayan

Thank you Narayan

 

[Ama]

I am going to have to use code for the worksheet Summary because once the template is ready with the working buttons, the formula has a problem. The information has to be deleted, (data) used to test the worksheet. The buttons work with import of xls files and the combine works, and the formatting attached to the validate button but I need to add the code for the summary sheet. I am sorry.

ama, ps. I got the date formula to work.

 

[NARAYANK991]

Hi ,

Can you check back a few hours later ?

Narayan

 

[Ama]

yes, Narayan, I can check back a few hours later

 

[NARAYANK991]

Hi ,

See this file.

Narayan

 

[Ama]

Hi Narayan, You are awesome and thank you for all your help. Ama

 

[Ama]

hi Narayan, I am having trouble with the excel workbook, its with the Validate button. Attached. Ive included the excel files.

 

[NARAYANK991]

Hi ,

See the file now.

Narayan

 

[Ama]

Hi Narayan, everything works with the excel file, thank you. I have a macro enabled Word Template, how do I get the flashing icon to start at the salutation DearFirstName in the Userform. Ive attached a copy of the document and code.

 

[NARAYANK991]

Hi ,

Attachment ?

I am not conversant with Word macros , but I'll try. Will take some time.

Narayan

 

[Ama]

Hi ,

Attachment ?

I am not conversant with Word macros , but I'll try. Will take some time.

Narayan

I Narayan, macros are VBA code, I think I've missed something in the properties

 

[NARAYANK991]

Hi ,

Don't you need to have a UserForm.Show some where to display the form in the first place ?

Narayan

 

[Ama]

Hi ,

Don't you need to have a UserForm.Show some where to display the form in the first place ?

Narayan[/quote

I had it in the code section for the Userform but it won't show, so I put it in the module but it still won't show. I will have to play around with it

 

[NARAYANK991]

Hi ,

It will help if you can upload the document ; you can always remove all its content , retaining only the userform and the code , and then upload it.

Otherwise , we will continue this back and forth dialogue for a long time.

Narayan

 

[Ama]

Sub Document_New()
'Procedure to show UserForm frmWelcomeAboardInput
'Written by Brandon 11/11/14
frmWelcomeAboardInput.Show
End Sub

Option Explicit
Sub cmdClose_Click()
'Procedure for button cmdClose
'Written by Brandon 14/11/14
End
End Sub

Sub cmdLog_Click()
'Procedure for button cmdLog
'Written by Brandon 14/11/14
Dim DateString, myPathAndFile As String
DateString = Format(Date, "Short Date")
myPathAndFile = ThisDocument.Path & "\Log.txt"
Open myPathAndFile For Append As #1
Write #1, DateString, txtDearFirstName.Value, txtFirstName.Value, txtLastName.Value, txtGender.Value, txtDateofBirth.Value, txtAddress.Value, txtSuburb.Value, txtState.Value, txtPostcode.Value, txtRole.Value
Close #1
End Sub

Sub cmdOK_Click()
'Procedure for click on button cmdOK
'Written Brandon 11/11/14
ActiveDocument.Bookmarks("DearFirstName").Range.Text = txtDearFirstName.Value
ActiveDocument.Bookmarks("FirstName").Range.Text = txtFirstName.Value
ActiveDocument.Bookmarks("LastName").Range.Text = txtLastName.Value
ActiveDocument.Bookmarks("Gender").Range.Text = txtGender.Value
ActiveDocument.Bookmarks("DateOfBirth").Range.Text = txtDateofBirth.Value
ActiveDocument.Bookmarks("Address").Range.Text = txtAddress.Value
ActiveDocument.Bookmarks("Suburb").Range.Text = txtSuburb.Value
ActiveDocument.Bookmarks("State").Range.Text = txtState.Value
ActiveDocument.Bookmarks("Postcode").Range.Text = txtPostcode.Value
ActiveDocument.Bookmarks("Role").Range.Text = txtRole.Value
frmWelcomeAboardInput.Hide
End Sub

Sub cmdClear_Click()
'Procedure for button Clear
'Written by Brandon 11/11/14
txtDearFirstName.Value = Null
txtFirstName.Value = Null
txtLastName.Value = Null
txtGender.Value = Null
txtDateofBirth.Value = Null
txtAddress.Value = Null
txtSuburb.Value = Null
txtState.Value = Null
txtPostcode.Value = Null
txtRole.Value = Null
End Sub

 

[Ama]

Ok, I was able to upload the Userform file with the template. Its in a zip file.