EXCEL VBA Range

[yccyccycc]

Hello,

I am creating a file (Total) that can take data from another workbook (Region).

I would like to shorten one part of the codes:

I need to take data from the Regional Workbook from column D3 to AK25 to the destination workbook. Then take D28 - AK 39....and etc. (Basically, I need D3-AK3, D4-AK4, D5-AK5, .......D25 to AK25

I used this but it did not work well.
.Range("xxx:xxx").Value = fromWorkSheetR.Range("D3:AK25").Value

Here is what my alternative.....I wrote it row by row.
With destinationWorkSheet
.Range("B7:AI7").Value = fromWorkSheetR.Range("D2:AK2").Value
.Range("B9:AI9").Value = fromWorkSheetR.Range("D3:AK3").Value
.Range("B10:AI10").Value = fromWorkSheetR.Range("D4:AK4").Value
.Range("B11:AI11").Value = fromWorkSheetR.Range("D5:AK5").Value
.Range("B12:AI12").Value = fromWorkSheetR.Range("D6:AK6").Value
........
........

But there are too many rows to write on....anyway to shorten it?

Thanks!

 

[wigi]

I used this but it did not work well.
.Range("xxx:xxx").Value = fromWorkSheetR.Range("D3:AK25").Value

This kind of notation should work - if you apply it correctly.

Are the ranges the same size?

Is the With...End With statement correct?

No cell protection?

 

[yccyccycc]

Thanks for your msg...it turned out that I retrieved the wrong source file....

 

[wigi]

Duh...