putting formula in columns by vba

[hdgfss]

Hi Experts,
I am looking for a macro that will put the formula in columns & will paste the formula result in values or Alphabets
I have uploaded the sample file file plz have a look & plz hardcode the path of the file in the macro so that i can change it as per my needs(macro will be placed in master.xlsm)

download file Link 1.xls

Thnx for the Help

 

[mumps]

Try:

Sub InsertFormulae()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Dim LastRow As Long, flder As FileDialog, FileName As String, wkbSource As Workbook
    Set flder = Application.FileDialog(msoFileDialogFilePicker)
    flder.Title = "Please Select a Excel Macro File"
    FileChosen = flder.Show
    FileName = flder.SelectedItems(1)
    Set wkbSource = Workbooks.Open(FileName)
    With wkbSource.Sheets("1-Sheet1")
        LastRow = .Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        .Range("N2:N" & LastRow).Formula = "=AND(D2=E2)"
        .Range("O2:O" & LastRow).Formula = "=AND(D2=F2)"
        .Range("P2:P" & LastRow).Formula = "=IF(OR(INT(D2)=INT(E2), INT(D2)=INT(F2)), TRUE, FALSE)"
        .Range("N2:P" & LastRow).Value = Range("N2:P" & LastRow).Value
    End With
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

Change the sheet name (in red) to suit your needs.

 

[hdgfss]

Thnx Mumps For helping me in solving this Problem
Have a Awesome Day Sir
Problem Solved

 

[mumps]

You are very welcome.