Using Date Entered to Replace Data

[howard]

I have a worksheet F & I Comm, that links data from another spreadsheet.

I need VBA code to be written that will do the following:

1) Prompt the user to enter a date for EG Sept2006 which will be entered into cell E1

2) The date that was enter in cell E1 must be used to relace the word template in all cells in the worksheet "F & I Comm" that contains the word Template ( The full name of one of the linked files is ='[MONTH END.New Vehicles.Template.xls]STATS'!$G$15). I only need the word template replaced in each cell where this appears.

Your assistance will be most appreciated

Howard

 

[gaj104]

Something like this should do the trick

Sub ChangeTemp()

Dim tDate As String

tDate = InputBox("Enter Date", "DD/MM/YYYY")

    If IsDate(tDate) = False Then
    MsgBox ("Value entered is not valid!")
    Exit Sub
    End If

tDate = Format(tDate, "MMMYYYY")
Range("E1").Value = tDate

Cells.Replace What:="MONTH END.New Vehicles.Template.xls", Replacement:="MONTH END.New Vehicles." & tDate & ".xls", LookAt:=xlPart

End Sub

 

[howard]

Thanks for the help

Regards

Howard

 

[howard]

Finding and Replacing Name

Hi Graeme

Thanks for your help regarding setting up VBA code. The code needs to be fine tuned, so I took the liberty of attaching the workfile as well as the file the file that needs to be updated with the words Sept2006.

Your assistance will be most appreciated.

Kind regards

Howard