x
Solved

# Demo Macro Script

Posted on 2013-11-26
Medium Priority
267 Views
EE Pros,

I'm putting together a Demo tab so as to pre-load information concerning a particular ability to demonstrate using 3 columns of data.  Upon selecting the Demo to run, the data should automatically populate the other two tabs.  Change the demo, and the data should also change.

That's it!  Thank you in advance.

B.
Demo-Script.xlsm
0
Question by:Bright01
• 3
• 2

LVL 43

Expert Comment

ID: 39678422
Copy this to F9 of customer box and from there copy it to each of the other boxes

=INDEX(Demos!\$E\$8:\$G\$13,MATCH(E9,Demos!\$C\$8:\$C\$13,0),MATCH(Demos!\$D\$3,Demos!\$E\$6:\$G\$6,0))
0

Author Comment

ID: 39678499
Ssaqibh,

Thanks for the quick reply.  I'm looking for a macro ("Upon selecting the Demo to run...."), that when fired, will populate the Customer and Pricing Tabs.  This is because, without firing the Macro for the Demo, the user can enter their own information (so I can't use a formula in the cell).

Make sense?

B.
0

LVL 43

Accepted Solution

Saqib Husain, Syed earned 2000 total points
ID: 39678639
This goes to the sheet3 (Demo) module

``````Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Demos").Range("D3") <> "" Then
formla = "=if(rc[-1]="""","""",INDEX(Demos!R8C5:R13C7,MATCH(RC[-1],Demos!R8C3:R13C3,0),MATCH(Demos!R3C4,Demos!R6C5:R6C7,0)))"
With Sheets("Customer").Range("F9:F13")
.FormulaR1C1 = formla
.Value = .Value
End With
With Sheets("Price").Range("F9:F13")
.FormulaR1C1 = formla
.Value = .Value
End With
End If
End Sub
``````
0

Author Closing Comment

ID: 39678728
Thank you! Works great..... I can build with it.

Have a great Thanksgiving!
0

Author Comment

ID: 39678838
Ssaqibh,

Actually, While this works, I have some issues as I incorporate this solution.  I'll be authoring a fix question.

The major issues are I cannot work easily with the RC approach as reference points.  What's missing here is the macro doesn't use the Reference Cells which is why I put them in the Demos Tab.

Hope you will pick it up.

Thanks,

B.
0

## Featured Post

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.