I am maximizing a value ($L$4) by changing the values in ($A$2:$A$134), value changed from 0 to 1 and limiting to only 6 records being chosen. I want to copy a specific cell (Column C) for each of these and place it in a row in the new spreadsheet. Output would look like this
<colgroup><col width="64" style="width:48pt" span="6"></colgroup><tbody>
</tbody>
<colgroup><col width="64" style="width:48pt" span="6"> </colgroup><tbody>
</tbody>
My current code copies all 134 values and places them in a column.
Dim List_Current_row As Long
List_Current_row = Worksheets("Export").Cells(Rows.Count, 1).End(xlUp).Row + 1
If i = 0 Then
Worksheets("Export").Cells(List_Current_row, 1).Resize(1, 6).Value = _Worksheets("Parameters").Range("C2:C201").Value
Else
Worksheets("Export").Cells(List_Current_row, 1).Resize(200, 1).Value = _ Worksheets("Parameters").Range("C2:C201").Value
End If
Any ideas on what I am doing wrong? Any help is appreciated.
<colgroup><col width="64" style="width:48pt" span="6"></colgroup><tbody>
</tbody>
12472009 | 12472010 | 12472011 | 12472012 | 12472013 | 12472014 |
<colgroup><col width="64" style="width:48pt" span="6"> </colgroup><tbody>
</tbody>
My current code copies all 134 values and places them in a column.
Dim List_Current_row As Long
List_Current_row = Worksheets("Export").Cells(Rows.Count, 1).End(xlUp).Row + 1
If i = 0 Then
Worksheets("Export").Cells(List_Current_row, 1).Resize(1, 6).Value = _Worksheets("Parameters").Range("C2:C201").Value
Else
Worksheets("Export").Cells(List_Current_row, 1).Resize(200, 1).Value = _ Worksheets("Parameters").Range("C2:C201").Value
End If
Any ideas on what I am doing wrong? Any help is appreciated.