<div>
Unfortunately can't download a file with macros for security but would suggest you take a look at Advanced Filter.<br />
<br />
This gives the option of copying the results of a filter to another location. It can be incorporated into a VBA routine that clears previous filter and copies the new data.
</div>


Unfortunately can't download a file with macros for security but would suggest you take a look at Advanced Filter.

This gives the option of copying the results of a filter to another location. It can be incorporated into a VBA routine that clears previous filter and copies the new data.

Ticket-Viewer.xlsm

kbay808

<div>
<div class="content wysiwyg-content">
I have a table on one sheet, but I need to show the related records for an ID on another sheet. &nbsp;On the attached file on the Ticket Viewer sheet you can select an ID number from the dropdown in cell B1. &nbsp;When an ID is selected, I need all of the data that matches that value on the Report 1 sheet in column A to populate below the headers in row 3. &nbsp;<br />
<br />

<blockquote>
<br />
Private Sub Worksheet_Change(ByVal Target As Range)<br />
<br />
' Update/Audit Passed btns<br />
If Not Intersect(Target, Range(&quot;B1&quot;)) Is Nothing Then<br />
&nbsp; &nbsp; If Range(&quot;B1&quot;).Value &lt;&gt;&nbsp;&quot;&quot; Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; 'Need to add code to copy data from the Report 1 sheet<br />
&nbsp; &nbsp; Else<br />
&nbsp; &nbsp; &nbsp; &nbsp; Range(&quot;A4:H100&quot;).ClearCont<wbr />ents<br />
&nbsp; &nbsp; End If<br />
End If<br />
End Sub<br />

</blockquote>
<a href="https://filedb.experts-exchange.com/incoming/2020/01_w05/1442250/Ticket-Viewer.xlsm" target="_blank" class="file-inline" title="Example File (141 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Ticket-Viewer.xlsm</a>
</div>
</div>


I have a table on one sheet, but I need to show the related records for an ID on another sheet.  On the attached file on the Ticket Viewer sheet you can select an ID number from the dropdown in cell B1.  When an ID is selected, I need all of the data that matches that value on the Report 1 sheet in column A to populate below the headers in row 3.  


Private Sub Worksheet_Change(ByVal Target As Range)

' Update/Audit Passed btns
If Not Intersect(Target, Range("B1")) Is Nothing Then
    If Range("B1").Value <> "" Then
        'Need to add code to copy data from the Report 1 sheet
    Else
        Range("A4:H100").ClearContents
    End If
End If
End Sub


How to use VBA to copy a range where the value in column meets a criter

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.

Microsoft Office

Power BI is a business analytics tool from Microsoft used for data visualization. It integrates seamlessly with other tools, like Microsoft Excel, and is easily embedded in websites and apps. Power BI offers live dashboards and visual reports to help “bring your data to life.” There are many opportunities for customization, as well as built-in options for your visualizations and analytics. With the Power BI mobile app, you can receive push notifications about important data changes, allowing you to react and plan right away.