Copy All Visible Cell Of Sheet1 To Sheet2 Last Blank Row

P

POOJA1982

Any Body Have A Code That Copies Visible Cells Of Sheet1 To Sheet2 Las
Blank Ro
 
C

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
Click to expand...
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
 
P

POOJA1982

thanks a lot it working
Hi,

Am Fri, 5 Apr 2013 11:27:54 +0000 schrieb POOJA1982:
-
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
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Need Help with a VBA subroutine 0
Copy unformatted value of cell via macro 0
Automatically copying data from sheet1 to sheet2 2
Selection copy and insert to other sheet 1
Selection copy and insert to other sheet (Macro) 8
select all non-blank cells 3
Can you display entire rows that match a certain criteria... 1
To copy Data from a row in one wrokbook and insert in a sheet of another workbook 0

Top