Posts by aisietie

Hello,

The code I use copies "Blad6" of workbook Names, and replce the page"Blad6" in Workbook "Form_transfertest".
The problem is that the code insert a new page, I want that the old sheet "Blad6" in the workbook Form_transfertest is replaced by the copied one from workbook Names.
The code:

Sub copy()


Workbooks.Open Filename:= _
        "[URL="file://\\Post.bpgnet.net\fs\NSCGNT\GENTX\Unit\PLANNING\Planning&Performance_Control\Formtransfer\Form_transfertest.xls"]\Form_transfertest.xls[/URL]"
        Application.EnableEvents = False
    Windows("Names.xls").Activate
    Sheets("Blad6").Select
    Sheets("Blad6").copy Before:=Workbooks("Form_transfertest.xls").Sheets("Blad6")
    Application.EnableEvents = True
    Sheets("Formulier").Select
    ActiveWorkbook.Save
    ActiveWindow.Close
    End Sub

Greetings

aisietie

Re: Copy 10 cells from last Row

Hello PCI,

That is it.

Thank you so verry much

Grtz

aisietie

Re: Copy 10 cells from last Row

Hello PCI,

Thx for the help, and the file.
What the macro ("test") do, is selecting the 10 last cells in Column C.
What it must do is select (or copy) 10 cells (C,D,E, F, G, H, I, J, K, L) starting in column "C" on the last row.

grtz

aisietie

Re: Copy 10 cells from last Row

Hi,

The code gives a 1OO4 error in the line
Sheet1.Cells(LastRow - 9, "C").Resize(10, 1).Select

In attachement the file. I placed the code that gives an error in comment.
Now the 1 line is always copied.

Grtn

Re: Copy 10 cells from last Row

Hello,

Blad1 (= Dutch) = Sheet1
Beginning in cell C = Last row start copy from column C

Thx

aisietie

Hi,

Folowing code should copy 10 cells from last Row beginning in cell C

Dim LastRow As Long
    LastRow = Blad1.Cells(1, 1).End(xlUp).Row
    Blad1.Cells(LastRow, "C").Resize(, 10).Copy

But the first line is copied.
What is the right code to do this?

thanks

aisietie