troubleshooting Question

Multiple Column Cells not contiguous

Avatar of Bright01
Bright01Flag for United States of America asked on
Microsoft Excel
13 Comments1 Solution314 ViewsLast Modified:
I have a Macro that when a dropdown box is presented you select a choice.  It then pulls a Column of data into a worksheet (Destination) from another worksheet (Source) which I'm using as a Flat File DB.  I have the Data that's pulled into the Destination File listed in  named ranges that are listed in the drop down box.  Here's my challenge.  I need to add a column of data in the DB that then populates the Destination Worksheet.  How do I pull information from the DB that has contiguous columns, into the destination worksheet into the target column (A) and then into a column that is three columns to the right (E).  So for example, in the destination worksheet, data from the source DB Worksheet is populated into Columns A and E.  However, in the source DB, the Columns of data are in A and B.  Data in A (Source) goes to column A in Destination.  Data in B (Source) goes to column E in Destination.

Here is the code I'm presently using in the Worksheet.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$N$17" Then
        Worksheets("Question_DB").Range(Replace(Target.Value, " ", "_")).Copy Worksheets("Questionaire").Range("A2")
        Application.Goto Worksheets("Questionaire").Range("A2")
    End If
End Sub

Thank you in advance.

Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 13 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 13 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros