Run VBA

[Trevor3007]

hi

i have taken ownership of a workbook . I need the VBA to run upon opening the file can someone advise on how to do this?

I thought I just had add the applicable into 'thisworkbook' but it does not run upon opening

MTIA & KR
Trevor3007

 

[Joe4]

It looks like you ran into trouble, and your full question did not get posted. Can you try again?

 

[Trevor3007]

It looks like you ran into trouble, and your full question did not get posted. Can you try again?

good evening joe4

thanks fr your advise.

I have some VBA but rather than use a macro button to invoke, I would rather have the vba to kick in upon opening the file.

this the code i have

Sub GetFilePath()

    Dim dialogBox As FileDialog
    Set dialogBox = Application.FileDialog(msoFileDialogOpen)
        
    Call GetInputs
          
    'Do not allow multiple files to be selected
    dialogBox.AllowMultiSelect = False
    
    'Set the title of of the DialogBox
    dialogBox.Title = "Select a file"
    
    
    'Set the initial path to :
    dialogBox.InitialFileName = "C:\Users\datw as from May2018\EmailExcelTemplate.xlsm"
    
    'Show the dialog box and output full file path and file name
    If dialogBox.Show = -1 Then ActiveCell.Value = dialogBox.SelectedItems(1)

KR
Trevor3007

 

[Joe4]

I have some VBA but rather than use a macro button to invoke, I would rather have the vba to kick in upon opening the file.

Use the Workbook_Open event procedure, which is VBA code that is automatically fired when the file is opened.

See here: http://access-excel.tips/excel-workbook-open-event/

 

[Trevor3007]

Use the Workbook_Open event procedure, which is VBA code that is automatically fired when the file is opened.

See here: http://access-excel.tips/excel-workbook-open-event/

Evening Joe44,

many thanks again. So sorry but in my previous I pasted in the wrong code:{ It should of been:-


[/CODE]Private Sub GetInputs()

With Sheets("timesheet")
.Select
.Cells(2, 1).Value = InputBox("Please enter date value: ")
End With

With Sheets("timesheet")
.Select
.Cells(2, 2).Value = InputBox("Enter 1st Monday In Period: ")
End With



With Sheets("Sheet1")
.Select
.Cells(2, 8).Select
MsgBox "Attach file", vbOKOnly
End With

End Sub
[/CODE]

I checked out the link you sent but I do not have any idea on how to? I did try and all I managed to do is mess up my workbook


Can you assist further please?

Oh.. there is also other code within the workbook too. But the above is the one I need to run when the workbook is open.

MTIA & KR
Trevor3007

 

[Joe4]

Just take the body of the VBA code that you already have and put it in the "Workbook_Open" procedure, as shown in the link I provided.
Just note that this has to be done in the "ThisWorkbook" module in VBA.

 

[Trevor3007]

Just take the body of the VBA code that you already have and put it in the "Workbook_Open" procedure, as shown in the link I provided.
Just note that this has to be done in the "ThisWorkbook" module in VBA.

hi Joe4,

thanks for your help. Good to say that I am now sorted and many thanks again

Have a great day.
KR
Trevor3007

 

[Joe4]

You are welcome.