Code to select cells with data

  • Thread starter lostandcondfused
  • Start date
L

lostandcondfused

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...
 
M

Michael

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
 
Top