About Us

POOJA1982

Any Body Have A Code That Copies Visible Cells Of Sheet1 To Sheet2 Last Blank Row

Claus Busch

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

POOJA1982

thanks a lot it working

Quote:

Originally Posted by Claus Busch

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

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
copy data from sheet2 to sheet1 when sheet2 has variable # of rows	Anne	Excel Discussion (Misc queries)	6	February 27th 09 09:48 PM
Copy Row 2 from Sheet1 & Paste to Row 10 Sheet2	RyGuy	Excel Programming	5	November 23rd 08 06:06 AM
copy cell B19:J19 Range datas from sheet1, and to past in sheet2	DJSK	Excel Programming	6	June 18th 08 12:18 PM
A1 Sheet2 is linked to A1 sheet1 so that user enters value(abc123) a1 sheet1 and A1 sheet2 is updated	pano[_3_]	Excel Programming	2	October 28th 07 02:32 PM
Copy values from Sheet1 to Sheet2	Eintsein_mc2	Excel Discussion (Misc queries)	1	January 6th 05 05:02 AM

Menu

About Us