Copying solved values to a new worksheet

[KevinZ]

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>

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.

 

[sadboy309]

I wish I can see data on your Sheet. I see your code wrong at Resize 6 column, but [C2:C201] is row not column. You need use formula Transpose to change Row-Column. With code:
x.Resize(1,6) = WorksheetFunction.Transpose(Worksheets("Parameters").Range("C2:C201"))

If you need detail it, you would use { For i = [C2].row to [C201].row } to do that.

 

[KevinZ]

I am maximizing the value from Column F with constraints on column D. When solved for 6 values, the 0 in column A is changed from 0 to 1 for the 6 records. I want to take the corresponding number from Column C and place them on a new spreadsheet as referenced above.

I changed the code as suggested but I am getting a Runtime error 438 message on the new line.

Let me know if there is anything else you need to see.

Column A		Column C	Column D		Column F
0		12472001	11600		227
0		12472002	11300		152
0		12472003	10900		243
0		12472004	10400		218
0		12472005	10000		244
0		12472006	9700		219
0		12472007	9500		105
0		12472008	9400		200
0		12472009	9300		220

<colgroup><col><col><col><col><col><col></colgroup><tbody>
</tbody>

 

[DanteAmor]

Forgetting macros a little, you could explain what data you have and what you expect as a result, explain with step-by-step examples what you want to maximize.