Copy All Visible Cell Of Sheet1 To Sheet2 Last Blank Row
Any Body Have A Code That Copies Visible Cells Of Sheet1 To Sheet2 Last Blank Row
|
Copy All Visible Cell Of Sheet1 To Sheet2 Last Blank Row
Hi,
Am Fri, 5 Apr 2013 11:27:54 +0000 schrieb POOJA1982: Any Body Have A Code That Copies Visible Cells Of Sheet1 To Sheet2 Last Blank Row try: Sub Test() Dim LRow As Long LRow = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row With Sheets("Sheet1") .UsedRange.SpecialCells(xlCellTypeVisible).Copy _ Sheets("Sheet2").Range("A" & LRow + 1) End With End Sub Regards Claus Busch -- Win XP PRof SP2 / Vista Ultimate SP2 Office 2003 SP2 /2007 Ultimate SP2 |
thanks a lot it working
Quote:
|
All times are GMT +1. The time now is 09:46 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com