Create new Workbook from exist

[KreshBell]

Hi,
please, can someone make me a macro that would do this.
I would like to generate a new xlsx file by double-clicking on define cell in a row, which would place certain cells from this row in a new file.

For example, after double-clicking on cell E7 *or select and run macro), I would like to generate a new xlsx file that will place cells from that row in column F7, K7, L7, BB7, BC7 AND BG7 into a new file in this way

E7 TO A1, F7 TO A2, K7 TO A3, L7 TO A4, BB7 TO A5, BC7 TO A6 AND BG7 TO A7 *always to A column)

I would also like to be able to choose the location to save the new file after running the macro

 

[mumps]

It is hard to work with a picture. It would be easier to help if you could use the XL2BB add-in (icon in the menu) to attach a screenshot (not a picture) of your sheet. Alternately, you could upload a copy of your file to a free site such as www.box.com or www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. (de-sensitized if necessary).

 

[HighAndWilder]

Hi,
please, can someone make me a macro that would do this.
I would like to generate a new xlsx file by double-clicking on define cell in a row, which would place certain cells from this row in a new file.

For example, after double-clicking on cell E7 *or select and run macro), I would like to generate a new xlsx file that will place cells from that row in column F7, K7, L7, BB7, BC7 AND BG7 into a new file in this way
View attachment 117884

E7 TO A1, F7 TO A2, K7 TO A3, L7 TO A4, BB7 TO A5, BC7 TO A6 AND BG7 TO A7 *always to A column)
View attachment 117885


I would also like to be able to choose the location to save the new file after running the macro

Does this work as you want it to.

It works when a cell is selected.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
Dim arr() As Variant
Dim varFileName As Variant
Dim Ws As Worksheet

  i = Target.Row

  Set Ws = ActiveSheet
  
  Workbooks.Add
  
  ' Transpose an array of the required values to the new workbook.
  ActiveSheet.Range("A1:A7").Value = Application.Transpose(Array(Ws.Range("E" & i).Value, Ws.Range("F" & i).Value, Ws.Range("K" & i).Value, _
    Ws.Range("L" & i).Value, Ws.Range("BB" & i).Value, Ws.Range("BC" & i).Value, Ws.Range("BG" & i).Value))

  ' Displaying the saveas dialog box.
   varFileName = Application.GetSaveAsFilename("", "Excel files,*.xlsx", 1, "Select your folder and filename")

  ' User didn't save the file.
  If TypeName(varFileName) = "Boolean" Then
    ActiveWorkbook.Close False
    Exit Sub
  End If

  ' Save the workbook.
  ActiveWorkbook.SaveAs varFileName

End Sub

 

[Joe4]

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Create new xlsx file
and: Create new xlsx file with macro

There is no need to repeat the link(s) provided above but if you have posted the question at other places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[KreshBell]

I have an excel sheet with many rows. I would like that when I select the first cell in the row and then start the macro, I get a new file that will pick up certain values from the selected row and always place them in the first column of the new file.
For example.
Source file

If I select cell A7 in the file Source File and run the macro, it generates the file Target File A

If I select cell A9 in the file Source File and run the macro, it generates the file Target File B

 

[KreshBell]

source file

P1103_0408_06	WO00004420_M001	Train Car 2 - Fixed Dining Table	100		NO	12	Stephen Archer	45413	45427
P1103_0408_07	WO00004363_M001	Train Car 2 - Banquette Seats	100		NO	24	Stephen Archer	45413	45427
P1103_0408_08	WO00004421_M001	Train Car 2 - Decorative Dividers	100		NO	6	Stephen Archer	45413	45427
P1103_0408_09		Train Car 2 - Themed Accessories	N/A		NO	12	Stephen Archer	45413	45427
P1103_0408_10		Train Car 2 - Window Treatments	N/A		NO	8	Stephen Archer	45413	45427
P1103_0408_11	WO00005232_M001	Train car 2 - Train car Façade	100		NO	1	Stephen Archer	45413	45427
P1103_0408_12	WO00005233_M001	Train car 2 - Window Box internal	100		NO	8	Stephen Archer	45413	45427
P1103_0408_13	WO00005234_M001	Train car 2 - Window Box External side	100		NO	4	Stephen Archer	45413	45427
P1103_0408_14	WO00006246_M001	Train car 2 - Window Box Ends	100		NO	4	Stephen Archer	45464	45478
P1103_0408_15		Train Car 2 - Decorative Ballustrade	100		NO	1	Stephen Archer	45413	45427
P1103_0408_16	WO00005237_M001	Train Car 2 - Banquette Seats removable ADA	100		NO	1	Stephen Archer	45413	45427
P1103_0408_17	WO00006722_M001	Train Car 1 - In service works window drapery	90		NO	8	Stephen Archer	45527	45541

Target file A

P1103_0408_12
WO00005233_M001
Train car 2 - Window Box internal
NO
8
45413
45427

Target file B

P1103_0408_14
WO00006246_M001
Train car 2 - Window Box Ends
NO
4
45464
45478