Demo Macro Script v2

EE Pros,

Ssaqibh wrote a very nice Macro for me to help with a set of Demos I'm running in a WB.

The challenge is two fold; 1.) I have difficulty working with the RC format and would appreciate the use of a simpler coding that I can deal with and more importantly, 2.) the Macro uses a Matching formula.  You will see on the Demo Tab that there are "Reference Cells".  It's those reference cells that need to indicate where the data must go in each Demo selection.

Thank you in advance,

B.
Demo-Scriptv1.xlsm
Bright01Asked:
Who is Participating?
 
Saqib Husain, SyedConnect With a Mentor EngineerCommented:
Yes, and I forgot to mention that the third entry in that range should be corrected before using the macro. That one started with == instead of =
0
 
Saqib Husain, SyedEngineerCommented:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = Range("d3").Address Then
        Set dc = Range("6:6").Find(Target.Value)
        For Each cel In Range("D8:D13")
            ws = Mid(cel, 2, InStr(cel, "!") - 2)
            Rng = Right(cel, Len(cel) - InStr(cel, "!"))
            Sheets(ws).Range(Rng).Value = Intersect(cel.EntireRow, dc.EntireColumn).Value
        Next cel
    End If
End Sub
0
 
Bright01Author Commented:
Ssaqibh,

Nice work!  When I go to scale this, is it just simply increasing the Range from ("D8:" to D??? with the right Reference Cells?

B.
0
 
Bright01Author Commented:
yeah....caught that.  I'll continue to build on this.  

Thank you for your help.  I see you're #5 on the Experts!  Congrats!

B.
0
 
Bright01Author Commented:
Works well!  I can use this.

Thank you!

B.
0
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.

All Courses

From novice to tech pro — start learning today.