excel macro to change file name based on column data

Đã hoàn thành Đã đăng vào 3 năm trước Thanh toán khi bàn giao
Đã hoàn thành Thanh toán khi bàn giao

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

    Else

    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

    Else

            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

   

exit_sub:

 

    With Application

        .ScreenUpdating = True

        .DisplayAlerts = True

    End With

   

End Sub

Excel Visual Basic Xử lí dữ liệu Nhập liệu Visual Basic cho Ứng dụng

ID dự án: #27914869

Về dự án

6 đề xuất Dự án từ xa 3 năm trước đang mở

Được trao cho:

(159 Đánh Giá)
5.9
rumarahman

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 Thêm

$30 USD trong 7 ngày
(48 Đánh Giá)
5.3

6 freelancer chào giá trung bình$188 cho công việc này

expertatwork

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

$20 USD trong 1 ngày
(213 Nhận xét)
6.1
ibrahimstk

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 Thêm

$20 USD trong 1 ngày
(166 Nhận xét)
5.8
AfreenRizwan

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 trong 10 ngày
(0 Nhận xét)
0.0