Renaming file with a suffix based on availability of work sheet.

[amaresh achar]

Hi,

In continuation to below mentioned post, I want to modify the code (from the below post) such that, If the file has a worksheet named "Q", then it should add a suffix "_Q" to the newly generated file name.

VBA code to rename the files in a folder as per respective file cell values.

I am looking for VBA code assistance to do the following: >> I have about 3000 files in a folder (with some random alphanumeric values as file names) >> Each file has unique values in cells B3, D7, G5 of Sheet1 >> I want a macro to rename each file with respective cell values as...

www.mrexcel.com

Any help would be great... Thanks in advance.

 

[I_know_nuffin]

try this

    'add the below to the Dim Statements at the start of the Sub
    'Dim ws As Worksheet, suffix As String
    
    'replace the existing renaming code with the below
    
    Set wb = Workbooks.Open(newpath & "\" & Ffiles)
    'new code to read sheet names
    suffix = ""
    For Each ws In wb.Worksheets
    If ws.Name = "Q" Then
    suffix = "_Q"
    Exit For
    Else
    suffix = ""
    End If
    Next
    
    
    If wb.Sheets.Count >= 1 Then
        newfilename = wb.Sheets("Sheet1").Range("B3").Value & "_" & wb.Sheets("Sheet1").Range("D7").Value & "_" & wb.Sheets("Sheet1").Range("G5").Value & suffix
    Else
        newfilename = ""
    End If
    wb.Close False

 

[amaresh achar]

W

try this

    'add the below to the Dim Statements at the start of the Sub
    'Dim ws As Worksheet, suffix As String
   
    'replace the existing renaming code with the below
   
    Set wb = Workbooks.Open(newpath & "\" & Ffiles)
    'new code to read sheet names
    suffix = ""
    For Each ws In wb.Worksheets
    If ws.Name = "Q" Then
    suffix = "_Q"
    Exit For
    Else
    suffix = ""
    End If
    Next
   
   
    If wb.Sheets.Count >= 1 Then
        newfilename = wb.Sheets("Sheet1").Range("B3").Value & "_" & wb.Sheets("Sheet1").Range("D7").Value & "_" & wb.Sheets("Sheet1").Range("G5").Value & suffix
    Else
        newfilename = ""
    End If
    wb.Close False

Thanks... Working great...!!