Excel 2013 VBA:

[jedwardo]

Hello Again,

In the highlighted text area I'm wanting the value of the first row on sheet1 from the active icell column. Can't figure out how to lift that value from the sheet. It's text in the cell as well that's being transfered, not a number.

Sub TestCode()Dim iCell As Range, ws As Worksheet
Set ws = Sheet6
Lastrow = ws.Cells(Rows.Count, "A").End(xlUp).Row
    For Each iCell In Range("A2:BD3")
        With iCell
        If iCell.Interior.ColorIndex = 35 Then
            ws.Cells(Lastrow + 1, 1).Value = iCell.Value
            ws.Cells(Lastrow + 1, 1).Offset(0, 1).Value = iCell.Offset(0, 1).Value
            Lastrow = Lastrow + 1
        ElseIf iCell.Value <> "" And iCell.[COLOR=#000000]Interior.ColorIndex[/COLOR] = 3 Then
            ws.Cells(Lastrow + 1, 3).Value = [COLOR=#ff0000]What to put here[/COLOR]
            ws.Cells(Lastrow + 1, 10).Value = iCell.Value
            
            Lastrow = Lastrow + 1
        ElseIf iCell.Value <> "" And iCell.Interior.ColorIndex = 24 Then
            ws.Cells(Lastrow + 1, 8).Value = iCell.Value
            Lastrow = Lastrow + 1
        End If
        End With
        
    Next iCell
End Sub

Thanks,
Jordan

 

[NeonRedSharpie]

Sheets(1).Cells(1, iCell.Column).Value

I think that will work...maybe?

 

[jedwardo]

Perfect, thank you much NeonRedSharpie