shido
02-23-2015, 07:15 AM
Hi All,
I have the following code, which copy one cell from a workbook. I would like to change the code to pick two cell in the field highlighted in green Even after the changes, the code is only picking one cell and paste into a column and leaving the second column empty.
Please see the code below
Set DestnSht = Workbooks("Master Data.xls").Sheets("Master Data")
With DestnSht
Set DestnCell = .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
End With
.Range("a7:h" & j).Copy DestnCell.Offset(, 2)
With DestnCell.Resize(j - 6)
.Value = data(8, 14)
.Value = data (9,14)
.Borders.LineStyle = xlContinuous
.HorizontalAlignment = xlCenter
I appreciate if you can help me & sorry if my explanation is too vague.
Regards
Sha
I have the following code, which copy one cell from a workbook. I would like to change the code to pick two cell in the field highlighted in green Even after the changes, the code is only picking one cell and paste into a column and leaving the second column empty.
Please see the code below
Set DestnSht = Workbooks("Master Data.xls").Sheets("Master Data")
With DestnSht
Set DestnCell = .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
End With
.Range("a7:h" & j).Copy DestnCell.Offset(, 2)
With DestnCell.Resize(j - 6)
.Value = data(8, 14)
.Value = data (9,14)
.Borders.LineStyle = xlContinuous
.HorizontalAlignment = xlCenter
I appreciate if you can help me & sorry if my explanation is too vague.
Regards
Sha