problem pasting a range

[welchs101]

Hi,

I am copying a range using the following code

Workbooks(Gradebook_Filename).Worksheets(Gradebook_Sht_Nm_Quiz).Range(alphacol(Start_insert_Col) & 1 & ":" & alphacol(End_insert_col) & 1).Copy

One of the cols that i am copying has the left and right borders activated ALL down the column.

When i paste the data for some reason the col in my original data that has the left/right border ALL the way down the col .........this also gets pasted so for example. if say col X has the left/right border all the way down the column ........i copy the data.........then paste........the left/right border ALL the way down the column also gets pasted. I do want to keep the border in the cell that has it but i dont want it to pasted the left/right border all the way down the col.

I hope i made sense.

[welchs101]

Problem has gone away.......not sure why exactly. But i re-loaded something and now the problem is gone........very strange.

[welchs101]

I found what the problem was....not sure i understand why but here it is:

When i use this code (see below) the left /right borders from the entire col (all the way down) are also copied to the new location

Workbooks(Gradebook_Filename).Worksheets(Gradebook_Sht_Nm_Quiz).Range(alphacol(Start_insert_Col) & 1 & ":" & alphacol(End_insert_col) & 1).Copy

But when i use this one..........only the left / right borders in the cell are copied and transferred over

Workbooks(Gradebook_Filename).Worksheets(Gradebook_Sht_Nm_Quiz).Range(alphacol(Start_insert_Col) & "1:" & alphacol(End_insert_col) & "1").Copy

[welchs101]

ok......update again.

Turns out if i use this code the first time........it works fine. If i then delete what i just pasted and run the macro again........i get the left/right borders all the way down the col

Workbooks(Gradebook_Filename).Worksheets(Gradebook_Sht_Nm_Quiz).Range(alphacol(Start_insert_Col) & "1:" & alphacol(End_insert_col) & "1").Copy

[welchs101]

ok...i think i figured it out.......i was trying lots of things and one of the things i tried i think as this

Workbooks(Gradebook_Filename).Worksheets(Gradebook_Sht_Nm_FormTemp).Range(alphacol(Start_insert_Col) & quiz_template_header_row & ":" _
    & alphacol(End_insert_col) & quiz_template_header_row).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

notice the "copyorigin:=xlFormatFromLeftorAbove

I think this was copying the left/right borders down the col from the source location.

[welchs101]

yep that was it........just verified it.