<div>
Works great, thanks very much
</div>


<div>
I've requested that this question be closed as follows:<br />
<br />
Accepted answer: 0 points for shamilaz's comment <a href="https://www.experts-exchange.com/questions/28184077/POP-UP-BOX-when-a-macro-is-run.html?anchorAnswerId=39325183#a39325183" rel="ugc">#a39325183</a><br />
<br />
for the following reason:<br />
<br />
Works well with my spreadsheet...thanks again
</div>


<div>
Thanks.<br />
<br />
I presume the notification of the request to close the question within four days has subsequently been superseded.
</div>


<div>
<div class="content wysiwyg-content">
Hi <br />
<br />
I have a macro which I currently use to copy data from one spreadsheet toanother. &nbsp;I would like a POP up box to come up every time the copy macro is run, stating&quot;Data Copied&quot;. &nbsp;The macro I currently use is given below.<br />
<br />
thanks very much<br />
<br />
Sub copyrows()<br />
Dim sws As Worksheet<br />
Dim tws As Worksheet<br />
Dim sr As Range<br />
Set sws = Sheets(&quot;sheet1&quot;)<br />
Set tws = Sheets(&quot;sheet2&quot;)<br />
Set sr = sws.Range(&quot;A3:A&quot; &amp;&nbsp;sws.Range(&quot;A&quot; &amp;&nbsp;Rows.Count).End(xlUp).Row)<wbr /><br />
If sws.Range(&quot;A3&quot;) &lt;&gt;&nbsp;&quot;&quot; Then<br />
&nbsp; &nbsp; tws.Range(&quot;A&quot; &amp;&nbsp;Rows.Count).End(xlUp).Offs<wbr />et(1).Resi<wbr />ze( _<br />
&nbsp; &nbsp; &nbsp; &nbsp; sr.Rows.Count).EntireRow.V<wbr />alue = sr.EntireRow.Value<br />
End If<br />
End Sub
</div>
</div>


Hi 

I have a macro which I currently use to copy data from one spreadsheet toanother.  I would like a POP up box to come up every time the copy macro is run, stating"Data Copied".  The macro I currently use is given below.

thanks very much

Sub copyrows()
Dim sws As Worksheet
Dim tws As Worksheet
Dim sr As Range
Set sws = Sheets("sheet1")
Set tws = Sheets("sheet2")
Set sr = sws.Range("A3:A" & sws.Range("A" & Rows.Count).End(xlUp).Row)
If sws.Range("A3") <> "" Then
    tws.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize( _
        sr.Rows.Count).EntireRow.Value = sr.EntireRow.Value
End If
End Sub

I&#39;ve requested that this question be closed as follows:

Accepted answer: 0 points for shamilaz&#39;s comment #a39325183 (https://www.experts-exchange.com/questions/28184077/POP-UP-BOX-when-a-macro-is-run.html?anchorAnswerId=39325183#a39325183)

for the following reason:

Works well with my spreadsheet...thanks again

Thanks.

I presume the notification of the request to close the question within four days has subsequently been superseded.

POP UP BOX when a macro is run

Hi 

I have a macro which I currently use to copy data from one spreadsheet toanother.  I would like a POP up box to come up every time the copy macro is run, stating&quot;Data Copied&quot;.  The macro I currently use is given below.

thanks very much

Sub copyrows()
Dim sws As Worksheet
Dim tws As Worksheet
Dim sr As Range
Set sws = Sheets(&quot;sheet1&quot;)
Set tws = Sheets(&quot;sheet2&quot;)
Set sr = sws.Range(&quot;A3:A&quot; &amp; sws.Range(&quot;A&quot; &amp; Rows.Count).End(xlUp).Row)
If sws.Range(&quot;A3&quot;) &lt;&gt; &quot;&quot; Then
    tws.Range(&quot;A&quot; &amp; Rows.Count).End(xlUp).Offset(1).Resize( _
        sr.Rows.Count).EntireRow.Value = sr.EntireRow.Value
End If
End Sub

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

Microsoft applications include a variety of software programs, including development and digital authoring programs (Expression and Media Center), educational programs, Internet software, including Essentials, Skype and the Live family, anti-virus, productivity applications and suites like Office, Excel, Word, Outlook, Access and PowerPoint, video games and server applications such as Exchange, SharePoint, IIS and Virtual Server.

Microsoft 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.