<div>
Yep great thank you very much
</div>


<div>
Once again thank you very much
</div>


<div>
<div class="content wysiwyg-content">
Could anyone explain firstly why this code is causing excel to crash ? is it simple because the computer is so old.<br />
<br />
Sub CopyRow()<br />
Dim sws As Worksheet, dws As Worksheet<br />
Dim lr As Long<br />
Application.EnableEvents = False<br />
Application.ScreenUpdating<wbr /> = False<br />
Set sws = Sheets(&quot;Blueteq&quot;)<br />
Set dws = Sheets(&quot;Sheet2&quot;)<br />
lr = sws.Cells.Find(&quot;*&quot;, SearchOrder:=xlByRows, SearchDirection:=xlPreviou<wbr />s).Row<br />
With sws.Range(&quot;AB5:AB&quot; &amp;&nbsp;lr)<br />
&nbsp; &nbsp;.AutoFilter field:=1, Criteria1:=&quot;True&quot;<br />
&nbsp; &nbsp;If .SpecialCells(xlCellTypeVi<wbr />sible).Cel<wbr />ls.Count &gt;&nbsp;1 Then<br />
&nbsp; &nbsp; &nbsp; sws.Range(&quot;AB6:AB&quot; &amp;&nbsp;lr).SpecialCells(xlCellTyp<wbr />eVisible).<wbr />EntireRow.<wbr />Copy dws.Range(&quot;A&quot; &amp;&nbsp;Rows.Count).End(3)(2)<br />
&nbsp; &nbsp; &nbsp; sws.Range(&quot;AB6:AB&quot; &amp;&nbsp;lr).SpecialCells(xlCellTyp<wbr />eVisible).<wbr />EntireRow.<wbr />Delete<br />
&nbsp; &nbsp;End If<br />
&nbsp; &nbsp;.AutoFilter<br />
End With<br />
Application.EnableEvents = True<br />
Application.ScreenUpdating<wbr /> = True<br />
End Sub<br />
<br />
<br />
also it is causing a slight graphical glitch in Excel so the lines not match up in one row any more as you can see in the screen shot.<br />
<a href="https://filedb.experts-exchange.com/incoming/2016/10_w43/1123521/screensheet-of-spreadsheet.png" target="_blank" title="screensheet-of-spreadsheet.png (114 KB)"><img alt="screensheet-of-spreadsheet.png" class="file-block lazyload" style="max-width: 800px;" data-src="https://filedb.experts-exchange.com/incoming/2016/10_w43/800_1123521/screensheet-of-spreadsheet.png" /></a>
</div>
</div>


screensheet-of-spreadsheet.png

Could anyone explain firstly why this code is causing excel to crash ? is it simple because the computer is so old.

Sub CopyRow()
Dim sws As Worksheet, dws As Worksheet
Dim lr As Long
Application.EnableEvents = False
Application.ScreenUpdating = False
Set sws = Sheets("Blueteq")
Set dws = Sheets("Sheet2")
lr = sws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
With sws.Range("AB5:AB" & lr)
   .AutoFilter field:=1, Criteria1:="True"
   If .SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
      sws.Range("AB6:AB" & lr).SpecialCells(xlCellTypeVisible).EntireRow.Copy dws.Range("A" & Rows.Count).End(3)(2)
      sws.Range("AB6:AB" & lr).SpecialCells(xlCellTypeVisible).EntireRow.Delete
   End If
   .AutoFilter
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub


also it is causing a slight graphical glitch in Excel so the lines not match up in one row any more as you can see in the screen shot.


VBA excel copy code causing excel to crash

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

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.