Hi everyone,

I have this small piece of VB code:

Dim con As Constraint
Dim CRngSolution As Range
Set CRngSolution = Workbooks(filename). _
Worksheets("PT").Range("SolOBJ")
CRngSolution.ClearContents

'Write down goal constraints
For Each con In vehicleModel.Constraints
If con.Name = "Goal_Cons" Then
CRngSolution(Cline, Aline).Value = con.Value
CRngSolution(Cline, Aline).Value =
Val(Left(CRngSolution(Cline, Aline).Value, 5))
End If
Next con

How can tell the VB code to put the values using "Transpose"?

Thanks,
Mike