Drop down list loop, copy and paste updated values from a worksheet to a new workbook.

[nitishbanka]

Hi, I have never used VBA before.

I am trying to automate a process for which I have created a simple example to get help.

I have a drop down list in Sheet1, Cell "A3" with values 1, 2 and 3.
The values in Sheet 2, Range B3:B5 forms accordingly.
The formulas used in Sheet2 are as follows:
B3: =IF(B4=5,"Base",IF(B4=10,"Scenario 1","Scenario 2"))
B4: =Sheet1!A3*5
B5: =Sheet1!A3*10

Now what I want is for Sheet1 drop down to run on a loop and the entire updated Sheet2 along with all formats to get copied in a new workbook.

I also wanted the name of the Sheet in the new workbook to be whatever the value is in Sheet2, Cell B3 (Base, Scenario 1 and Scenario 2).

This is a recurring activity with much larger data and I could really use the help of a VBA code.

 

[ravishankar]

what are the contents of sheet2 apart from B3 to B5? currently how many rows are present?
Ravi shankar

 

[ravishankar]

see if the uploaded file is as close to what you want?
https://drive.google.com/open?id=1U0HAnHBHD-qq9BrC230WdWPdF3sHLMYm
Ravi

 

[Fluff]

Cross posted https://www.excelforum.com/excel-pr...alues-from-a-worksheet-to-a-new-workbook.html

While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.
@ravishankar
Please post any code/formulae to the thread, rather than just uploading a workbook. As per Rule#4

 

[ravishankar]

OK. I will keep this in mind
Ravi shankar

 

[Fluff]

Ravi
Pleas post you solution as requested.

 

[ravishankar]

right click on sheet1 and choose view code and paste the following

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A3")) Is Nothing Then
x = Application.WorksheetFunction.VLookup(Range("A3"), Range("I2:J4"), 2, False)
MsgBox x
y = Sheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("sheet2").Cells(y + 1, 1) = x
End If
End Sub

In cell I2, paste the following table (2 columns and 3 rows)
[TABLE="width: 136"]
<colgroup><col><col></colgroup><tbody>[TR]
[TD="align: right"]1 [/TD]
[TD]Base[/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD] Scenario-1[/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD]Scenario-2[/TD]
[/TR]
</tbody>[/TABLE]
When you change cell A3, macro runs and lists it in sheet2. OP's need is not clear. More features can be added if so wanted.
ravi shankar

 

[nitishbanka]

Thank you Ravi.