copy selected visible cells of sheet1 into the sheet2 last blank row

djangounchained

New Member
Joined
Jan 19, 2013
Messages
25
anyone can suggest a macro
i want to copy the selected visible cells only of sheet1 into sheet2 last blank row
thanks
 

Some videos you may like

Excel Facts

Show numbers in thousands?
Use a custom number format of #,##0,K. Each comma after the final 0 will divide the displayed number by another thousand

Dryver14

Well-known Member
Joined
Mar 22, 2010
Messages
2,396
As you can see in htis Macro I have named my range Data before running the filter, you need to either name your range or substitute with an actual range ("D1:G30") for example.

Code:
Sub MoveVisible()
Dim NextRow As Long
    NextRow = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1
        Sheets(1).Range("Data").SpecialCells(xlVisible).Copy Sheets(2).Cells(NextRow, 1)
End S
 

djangounchained

New Member
Joined
Jan 19, 2013
Messages
25
thanks you so much i modified the code to input a blank row between each copying like this

Code:
Sub MoveVisible() Dim NextRow As Long     NextRow = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 2         Sheets(1).Range("Data").SpecialCells(xlVisible).Copy Sheets(2).Cells(NextRow, 1) End S

but can you modify so that it will insert a space in each blank rows that separate each copying
so that i can filter whole sheet2 for blank cell and put heading for each copying category
 

Watch MrExcel Video

Forum statistics

Threads
1,123,307
Messages
5,600,869
Members
414,411
Latest member
Snowmanaus

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top