PDA

View Full Version : Solved: Print Selected Cells to Another Cell



Nader
12-01-2011, 02:05 AM
I'm trying to print data from sheet1. row.cells selected to sheets.cells
But I don't know how to do
I tried to make this but didn't accept
Dim cel as Cells

For i as Integer= sheets(1).Cells.Rows.Count -1
set Cel= Sheets(1).Cells(i,1).Cells.Value
Sheets(1).Cells.Value = cel.Select

mdmackillop
12-01-2011, 06:19 AM
You need to be a lot clearer in your request.

Nader
12-01-2011, 07:10 AM
I have four rows include each one have cells.
When I select these rows with cells I want to print each cell to another cell in another sheet.
I hope I'm clear

mdmackillop
12-01-2011, 01:18 PM
Try this
Sub CopyCells()
Selection.EntireRow.Copy Sheets(2).Cells(Rows.Count, 1).End(xlUp)(2)
End Sub

Nader
12-05-2011, 04:08 AM
Thank you for help!!!