Copy a Range from sheet and paste the next blank line in another s

[Guest]

I have 2 worksheets
One is Named “GN15â€
Two is Named “TempTableâ€
On Sheet “GN15†- I need to simply click a command button in cell W28 and
copy A28:V28 and then
Go To Sheet “TempTable†and paste to the first blank row available.


I tried several scenarios and nothing work and I am running out time on this
project.

Any help would greatly be appreciated.

Private Sub cmdGN15Data1_Click()

Range("A28:v28").Copy
Worksheets("TempTable").Activate


End Sub

 

[Guest]

Give this a try...

Private Sub cmdGN15Data1_Click()
dim rngToCopy as range
dim rngToPaste as range

set rngToCopy = sheets("GN15").Range("A28:v28")
set rngToPaste = sheets("TempTable").cells(rows.count,
"A").end(xlUp).offset(1,0)

rngToCopy.copy rngtopaste


End Sub

 

[Guest]

Hi,
Try:

Private Sub cmdGN15Data1_Click()
Dim rgDest As Range ' destination range

Range("A28:v28").Copy

'determine last cell:
Set rgDest = Worksheets("TempTable").Range("A1")
Set rgDest = rgDest.EntireColumn.Cells(rgDest.EntireColumn.Cells.Count)
Set rgDest = rgDest.End(xlUp).Offset(1, 0)

'copy/paste
Range("A28:v28").Copy rgDest

End Sub

 

[Guest]

This works. One more question - how do you paste special values?

 

[Guest]

This works. One more question? How do you paste special values?

 

[Guest]

Private Sub cmdGN15Data1_Click()
Dim rngToCopy As Range
Dim rngToPaste As Range

Set rngToCopy = Sheets("GN15").Range("A28:v28")
Set rngToPaste = Sheets("TempTable").Cells(Rows.Count, _
"A").End(xlUp).Offset(1, 0)

rngToCopy.Copy
rngToPaste.PasteSpecial xlPasteValues

End Sub

 

[Guest]

--
I rec'd run-time error "1004"
PasteSpecial method of Range class failed.

Any suggestions.

Thank you for the first part, beening trying for day just to get that part
to work.


ca1358

 

[Guest]

That code works for me. My best guess is that your worksheet TempTable is
protected. If so then try this

Private Sub cmdGN15Data1_Click()
Dim rngToCopy As Range
Dim rngToPaste As Range
Dim wksToPaste as worksheet

Set rngToCopy = Sheets("GN15").Range("A28:v28")
Set wksToPaste = Sheets("TempTable")
Set rngToPaste = wksToPaste.Cells(Rows.Count, _
"A").End(xlUp).Offset(1, 0)

rngToCopy.Copy
wksToPaste.Unprotect "your password"
rngToPaste.PasteSpecial xlPasteValues
wksToPaste.Protect "your password"

Application.CutCopyMode = False
End Sub

 

[Guest]

You were right about the password but now I have another problem. I did not
build this original project but ask to add a piece to this project. The page
that I am copying from has merged cells. Is there any way to get around the
problem? I have tried copying the template with the merge cells to the
TempTable sheet but it didn’t work. The following error occurs

“This operation requires the merged cells to be identically sized.â€

Is there any way around it?

Thanks for all you help and replying back so promptly.

 

[Flamikey]

yes there is a way to get around merged cells, never use them on a sheet
in which you intend to use VBA code. Not trying to be wiseguy but
merged cells create too many difficulties. I only use them in header
rows