Code to select cells with data
 

Michael,
The code works great but the only problem I have is that I need it to copy
data cells from other sheets and paste the data in sheet1 below each other. I
hope that makes sense. Would u know how to do that. For example...I copy
Range A4:F7 from sheet 2 and paste it into Range A5 on Sheet 1, so the data
fills in Range A5:F8 and then I need it to copy from Sheet2 and the ranges
A4:F6 and then paste it into Sheet 1 but paste at the first blank cell below
the data that was pasted before. Which would be Range A9:F11.

"Michael" wrote:

First define the range you need to copy:
Set sSheet = Worksheets("Sheet1")
Set Scell = Range("A1:A5")
Then Destination:
Set dSheet = Worksheets("Sheet2")
Set Dcell = dSheet.Range("A2")
Then copy paste:
sCell.Copy
DCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=false
Application.CutCopyMode = False
--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"lostandcondfused" wrote:

I cant seem to find any help for a code to select cells with data in it and
pasting them on to a different sheet. For example... I need Sheet1 to
autopopulate with data on sheets 2, 3 and 4 by clicking a button. But I only
want it to copy the cells that only have data/text in it and then paste it to
Sheet 1. Does anyone have an idea on how to go about doing this? I need help
really bad...