excel macro to change file name based on column data

I have an existing macro that is pulling row data from main register file and modifying a different template file that is associated with the row entry. The macro is pasted down below and is working perfectly fine, no need to fix anything related to it !! So I just want to add a simple feature, I want it to also rename the file from Bla Bleh to a format based on the excel rows, so the new name will be "column O" "Column C" "First 2 words from column E" "the word Rev" "Column M" I hope it is clear for you. Please do not bid if you are not experienced - I don't like to keep testing wrong macro Existing macro is below:

Public Const template_file = "Bla [login to view URL]"

Public Const template_sht = "E-01"


Sub Fill_Template()

    Dim pj_title As String, pj_no As Variant, xa2 As Variant

    Dim xa3 As String, xa4 As String, rev As String, zdate As Variant, ref As Variant

    Dim cur As Long

    Dim main As Worksheet

    Dim path_count, path

    Dim template As Workbook, temp_sht As Worksheet, sht As Worksheet, sht_OK As Boolean


    On Error GoTo exit_sub


    With Application

        .ScreenUpdating = False

        .DisplayAlerts = False

    End With


    cur = [login to view URL]

    Set main = ActiveSheet


    'Check if the path is existed or not

    path_count = [login to view URL]("O" & cur).[login to view URL]

    If path_count = 0 Then

        MsgBox "No path in select cell O" & cur & " !", vbInformation

        GoTo exit_sub


    If Left([login to view URL]("O" & cur).Hyperlinks(1).Address, 1) = "." Then

        path = [login to view URL] & "\" & [login to view URL]("O" & cur).Hyperlinks(1).Address & "\" & template_file


            path = [login to view URL]("O" & cur).Hyperlinks(1).Address & "\" & template_file

    End If

    End If


    If Dir(path) = "" Then

        MsgBox "Check the template path !", vbInformation

       GoTo exit_sub

    End If


    'put information


    With main

        pj_title = .Range("E" & cur).Value

        pj_no = .Range("C" & cur).Value

        xa2 = .Range("D" & cur).Value

        xa3 = .Range("G" & cur).Value

        xa4 = .Range("F" & cur).Value

        rev = .Range("M" & cur).Value

        zdate = .Range("N" & cur).Value

        ref = .Range("O" & cur).Value

    End With


    'Fill into template

    sht_OK = False

    Set template = [login to view URL](path, ReadOnly:=False)

    For Each sht In [login to view URL]

        If [login to view URL] = template_sht Then

            sht_OK = True

            Set temp_sht = sht

            Exit For

        End If

    Next sht


    If sht_OK = False Then

        MsgBox "Check the template sheet name !", vbInformation

        [login to view URL] savechanges:=False

        GoTo exit_sub

    End If


    With temp_sht

        .Range("D5").Value = pj_title

        .Range("D6").Value = pj_no

        .Range("J6").Value = xa2

        .Range("J11").Value = xa3

        .Range("H13").Value = xa4

        .Range("J13").Value = rev

        .Range("J15").Value = zdate

        .Range("J16").Value = ref


        [login to view URL]

        [login to view URL]

    End With


    MsgBox "Completed !", vbInformation




    With Application

        .ScreenUpdating = True

        .DisplayAlerts = True

    End With


End Sub

Навыки: Excel, Visual Basic, Обработка данных, Ввод данных, Visual Basic для приложений

Показать больше: excel macro change cell contents, excel macro cut paste based cell value, excel macro reading file, excel macro charge fee based time, excel macro formating file, excel macro import file parse data, excel macro return file names directory, excel macro paste file directory, excel macro export file, excel macro list file names directory, excel macro flat file, excel macro cut paste based column value, excel macro create file local directory, excel macro formatting file, excel macro input file processing, excel assign rank value based column values, excel macro rename file based on cell value

О работодателе:
( 150 отзыв(-а, -ов) ) Doha, Qatar

ID проекта: #27914869


(159 отзывов(-а))

hello, I am a VBA Expert. I can do it now!!! i did already similar work..i can start the work immediately once u awarding me .kindly chat with me we can discuss details and better understanding of your vision .i will Больше

$30 USD за 7 дней(-я)
(48 отзывов(-а))

6 фрилансеров(-а) готовы выполнить эту работу в среднем за $188

(403 отзывов(-а))

Hi there - Can you please reply with your excel sheet ? we can discuss further and hopefully get it started soon. Thank you!

$20 USD за 1 день
(213 отзывов(-а))

Hi Mohammed , I am ready to start Data entry work to excel macro to change file name based on column data in your project and able to make it professional within a short time frame. I checked your details and underst Больше

$20 USD за 1 день
(166 отзывов(-а))

I am expert in data entry ,excel, computer processing i will deliver it on time.i wont deceive you you can trust me.

$1000 USD за 10 дней(-я)
(0 отзывов(-а))