Excel Forum

Code: Select all

Sub ReceiveNotReceive()
    Dim rSource As Variant
    Dim rTarget As Range
        With Worksheets("Input")
            rSource = Array(.Range("L5"), .Range("H8")(1, 1), .Range("G10")(1, 1), .Range("J10")(1, 1), _
                .Range("G12")(1, 1), .Range("G14")(1, 1), .Range("G16")(1, 1), .Range("G22")(1, 1))
        End With
    Set rTarget = Worksheets("Result").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    rTarget.Resize(1, 8) = rSource
    If Worksheets("Input").Range("G22")(1, 1) = "Not Receive" Then
        rTarget.Resize(1, 8).Font.Color = vbMagenta
    Else
        rTarget.Resize(1, 8).Font.Color = vbBlack
    End If
End Sub