Help with Macro Excel 2007

[smyk]

Hi All,
Would someone be able to help me with macro that will make my work life a lot easier. This is something that I do manually everyday.

1. For value FS, FD and FQ in col E copy value from col L to col F;

2. For value CS and CT in col E if there is value N in col G copy value from col L to col F, if there is value Y in col G and 0 in col H copy value from col L to col F,
if there is value Y in col G and more than 0 col H copy value from col K to col F;

3. For every PT in col E check value in col M if the value is more than 0 copy value from col K to col F if there is 0 or less in col M and less than 0 in col N copy value from J to col F if more than 0 in col N then do nothing.

Thanks in advance,
Lukasz

 

[smyk]

Up

 

[smyk]

Never mind, I got my answer if anyone is interested here's the code

Dim lastrow As Long, icell As Long
lastrow = Range("E" & Rows.Count).End(xlUp).Row
For icell = 1 To lastrow
    Select Case Range("E" & icell).Value
        Case Is = "FS"
            Range("F" & icell).Value = Range("L" & icell).Value
        Case Is = "FD"
            Range("F" & icell).Value = Range("L" & icell).Value
        Case Is = "FQ"
            Range("F" & icell).Value = Range("L" & icell).Value
        Case Is = "CS"
            If Range("G" & icell).Value = "N" Then
                Range("F" & icell).Value = Range("L" & icell).Value
               
            ElseIf Range("G" & icell).Value = "Y" And Range("H" & icell).Value = "0" Then
                Range("F" & icell).Value = Range("L" & icell).Value
            ElseIf Range("G" & icell).Value = "Y" And Range("H" & icell).Value >= 0 Then
                Range("F" & icell).Value = Range("K" & icell).Value
            End If
        Case Is = "CT"
            If Range("G" & icell).Value = "N" Then
                Range("F" & icell).Value = Range("L" & icell).Value
            ElseIf Range("G" & icell).Value = "Y" And Range("H" & icell).Value = "0" Then
                Range("F" & icell).Value = Range("L" & icell).Value
            ElseIf Range("G" & icell).Value = "Y" And Range("H" & icell).Value >= 0 Then
                Range("F" & icell).Value = Range("K" & icell).Value
            End If
        Case Is = "PT"
            If Range("M" & icell).Value > 0 Then
               Range("F" & icell).Value = Range("K" & icell).Value
            ElseIf Range("M" & icell).Value < 1 And Range("N" & icell).Value < 0 Then
                Range("F" & icell).Value = Range("J" & icell).Value
            End If
    End Select
Next icell