Create a workbook from a list and then name it according to the contents of 2 cells

[Flavien]

Hi all
I am contacting you because I cannot find an answer to my questions and unfortunately I am unable to adapt the similar cases already addressed.

I now that Xmas was 2 weeks ago, but if someone could help me, I'll be grateful!

I have 2 workbooks : "Gestionnaire de creation" (masterworkbook) & "Classeur1 GCU - V00" (The one that I want to duplicate).
The first contains a list of data:
(A) Plan No / (B) Index / (C) Description / (D) Clients / ... (cf pictures uploaded)

The second contains a table with 2 columns.
(A) Fixe / (B) Variable
There are the 6 elements of a row in the column (B).

I would like to copy each row (one by one), from the master workbook, and then paste it into the second file in column (B) of the table sheet("CARTOUCHE") and to finish save the second file as the value from the cells A2 and B2 and add "GCU - V00"
I need to repeat this procedure as many times as there are rows. (The number of rows may vary from list to list).

Both workbooks are not registered in the same folder and duplicated workbooks should to be registered in a third folder.

By advance thank you.

 

[Flavien]

Hello Peter_SSs!

I've look in the Internet and on MrExcel, unfortunately I didn't find any answers to "save as" workbooks according to a filtered list, unfortunately the macro above reads all the lines of the table including hidden lines.

Could you please help me?

Have a nice day.

 

[Peter_SSs]

unfortunately the macro above reads all the lines of the table including hidden lines.

Try adding these two blue lines of code where shown

With wsExtr
  For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
    If Not .Rows(i).Hidden Then
      .Range("A" & i).Resize(, 6).Copy
      rVar.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
      NewName = "P" & rVar.Cells(1, 1).Value & " - " & rVar.Cells(2, 1).Value & " - " & " GCU - V00.xlsx"
      wbToDupe.SaveAs Filename:=DestFolder & NewName, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
      Set wbToDupe = Workbooks(NewName)
      Set rVar = wbToDupe.Sheets("TABLE - Cartouche").ListObjects(1).DataBodyRange.Cells(1, 2)
    End If
  Next i
End With

 

[Flavien]

It works!!! You are awesome, thank you Peter_SSs!!

 

[Peter_SSs]

Cheers. Glad to help.

 

[Flavien]

Hello !
Can you tell me how to copy a template folder and rename it with the same name as the new workbook created by the macro above?
Thank you for your help!

 

[Flavien]

Hello @Peter_SSs,

I really need your help, I don't find any answers on the web.
How can I do to duplicate a rename an existing folder in order to save within the workbook created by the macro?
Workbook name = folder name

Thank you for your help.