Copy non sequential cells and paste to a new sheet

[jgalas]

Hi everyone

I want to copy every row of sheets ("RegDupla") to the last aviable row of sheet("Registos") in this way:

Sheets (RegDupla).range("D1") to sheets(Registos).range(B#)
Sheets (RegDupla).range("D2") to sheets(Registos).range(AC#)
Sheets (RegDupla).range("I2") to sheets(Registos).range(AD#)
Sheets (RegDupla).range("B#") to sheets(Registos).range(A#)
Sheets (RegDupla).range("D#:AC#") to sheets(Registos).range(C#:AB#)

# it's the number of the row... in sheets(RegDupla) can be 10 for exemple and 1254 in the sheets(Registos).

Can anyone help me on this please <!-- / message -->

 

[HalfAce]

Re: copy and paste data mixed in other sheet

Well, your first 3 lines:

[/COLOR]Sheets (RegDupla).range("D1") to sheets(Registos).range(B#)
Sheets (RegDupla).range("D2") to sheets(Registos).range(AC#)
Sheets (RegDupla).range("I2") to sheets(Registos).range(AD#)[/COLOR]

would be written like so:

[/COLOR][/COLOR]Sheets("RegDupla").Range("D1").Copy Sheets("Registos").Cells(Rows.Count, "B").End(xlUp)(2)
Sheets("RegDupla").Range("D2").Copy Sheets("Registos").Cells(Rows.Count, "AC").End(xlUp)(2)
Sheets("RegDupla").Range("I2").Copy Sheets("Registos").Cells(Rows.Count, "AD").End(xlUp)(2)

But I'm not clear on what you want to copy from the RegDupla sheet with those last two lines...

 

[jgalas]

For each row in sheet (RegDupla) i will have one row in sheet(Registos)
like this:

Sheets (RegDupla).range("D1") to sheets(Registos).range(B#)
Sheets (RegDupla).range("D2") to sheets(Registos).range(AC#)
Sheets (RegDupla).range("I2") to sheets(Registos).range(AD#)
Sheets (RegDupla).range("B#") to sheets(Registos).range(A#)
Sheets (RegDupla).range("D#:AC#") to sheets(Registos).range(C#:AB#)

Range D1, D2 and I2 are allways the same.

 

[jgalas]

Re: copy and paste data mixed in other sheet

But I'm not clear on what you want to copy from the RegDupla sheet with those last two lines...

I want to copy the data in row 4, 5, 6, ...35 of column "B" from sheet (RegDupla) to row 4,5,6,....,35 column "A" of sheet (Registos)


Same to
Sheets (RegDupla).range("D#:AC#") to sheets(Registos).range(C#:AB#)

 

[jgalas]

Re: copy and paste data mixed in other sheet

I know sintaxe it no right... but this is what i want

for i = 4 to 35
Sheets (RegDupla).range("B" & i) to sheets(Registos).range("A" & i)
Sheets (RegDupla).range("D" & i : "AC" & i) to sheets(Registos).range("C" & i : "AB" & i)
next i

Can it be done?

 

[jgalas]

Re: copy and paste data mixed in other sheet

Well, your first 3 lines:

Sheets (RegDupla).range("D1") to sheets(Registos).range(B#)
Sheets (RegDupla).range("D2") to sheets(Registos).range(AC#)
Sheets (RegDupla).range("I2") to sheets(Registos).range(AD#)

would be written like so:

Sheets("RegDupla").Range("D1").Copy Sheets("Registos").Cells(Rows.Count, "B").End(xlUp)(2)
Sheets("RegDupla").Range("D2").Copy Sheets("Registos").Cells(Rows.Count, "AC").End(xlUp)(2)
Sheets("RegDupla").Range("I2").Copy Sheets("Registos").Cells(Rows.Count, "AD").End(xlUp)(2)

.

Can it be copied without any formatting or formulas, paste the values ​​only?

 

[Trebor76]

Note - this thread has been duplicated here