Sub ICA_Process()
Dim R_cnt, Rn_cnt, LR As Long
Application.ScreenUpdating = False
Worksheets("Form II").Select
'R_cnt = Worksheets("Form II").Range("C17").Value
R_cnt = Worksheets("Form II").Range("T12").Value
Rn_cnt = Worksheets("Form II").Range("D13").Value
'RnR_cnt = Worksheets("Form II").Range("M29").Value
If Range("C6").Value = "" Or Range("C10").Value = "" Or Range("E10").Value = "" Or Range("G10").Value = "" Or Range("I10").Value = "" Or Range("K10").Value = "" Or Range("M10").Value = "" Or Range("C10").Value < 1 Or Range("E10").Value < 1 Or Range("B29") <> Range("H29") Or Range("H29") <> Range("I29") Or Range("I29") <> Range("J29") Or Range("J29") <> Range("K29") Or Range("K29") <> Range("L29") Or Range("L29") <> Range("M29") Then
MsgBox ("One or More Fields are missing, please fill and complete the form and then press submit button")
End
End If
If Range("C13").Value <> Range("G13").Value Or Range("G13").Value <> Range("I13").Value Or Range("I13").Value <> Range("K13").Value Or Range("K13").Value <> Range("M13").Value Then
MsgBox ("Values in either of Role, Location or %Allocation section is missing, please fix it and resubmit")
End
End If
If Range("L13").Value < 1 Then
MsgBox ("Location % Allocation should sum to 100%, it cannot be less than 100%, please correct it and resubmit")
End
End If
LR = Worksheets("Impact-Complexity Assessment").Range("A4").Value
'Copying Epic Id to Impact-Complexity Assessment
Worksheets("Form II").Range("B31:B" & 130).Copy
Worksheets("Impact-Complexity Assessment").Range("B" & LR & ":B" & (LR + R_cnt) - 1).PasteSpecial xlPasteValues
'Copying Epic Summary to Impact-Complexity Assessment
Worksheets("Form II").Range("C31:C" & 130).Copy
Worksheets("Impact-Complexity Assessment").Range("C" & LR & ":C" & (LR + R_cnt) - 1).PasteSpecial xlPasteValues
'Copying IB/PB to Impact-Complexity Assessment
Worksheets("Form II").Range("H31:H" & 130).Copy
Worksheets("Impact-Complexity Assessment").Range("D" & LR & ":D" & (LR + R_cnt) - 1).PasteSpecial xlPasteValues
'Copying Category to Impact-Complexity Assessment
Worksheets("Form II").Range("I31:I" & 130).Copy
Worksheets("Impact-Complexity Assessment").Range("E" & LR & ":E" & (LR + R_cnt) - 1).PasteSpecial xlPasteValues
'Copying Application to Impact-Complexity Assessment
Worksheets("Form II").Range("C6").Copy
Worksheets("Impact-Complexity Assessment").Range("F" & LR & ":F" & (LR + R_cnt) - 1).PasteSpecial xlPasteValues
'Copying T-Shirt Size to Impact-Complexity Assessment
Worksheets("Form II").Range("J31:J" & 130).Copy
Worksheets("Impact-Complexity Assessment").Range("G" & LR & ":G" & (LR + R_cnt) - 1).PasteSpecial xlPasteValues
'Copying Story Points to Impact-Complexity Assessment
Worksheets("Form II").Range("K31:K" & 130).Copy
Worksheets("Impact-Complexity Assessment").Range("H" & LR & ":H" & (LR + R_cnt) - 1).PasteSpecial xlPasteValues
'Copying Complexity to Impact-Complexity Assessment
Worksheets("Form II").Range("L31:L" & 130).Copy
Worksheets("Impact-Complexity Assessment").Range("I" & LR & ":I" & (LR + R_cnt) - 1).PasteSpecial xlPasteValues
'Copying Sprints to Impact-Complexity Assessment
Worksheets("Form II").Range("M31:M" & 130).Copy
Worksheets("Impact-Complexity Assessment").Range("L" & LR & ":L" & (LR + R_cnt) - 1).PasteSpecial xlPasteValues
'Copying Role to Impact-Complexity Assessment
Worksheets("Form II").Range("T14:T" & 25).Copy
Worksheets("Impact-Complexity Assessment").Range("M" & LR & ":M" & (LR + R_cnt) - 1).PasteSpecial xlPasteValues
'Copying Phase to Impact-Complexity Assessment
Worksheets("Form II").Range("U14:U" & 25).Copy
Worksheets("Impact-Complexity Assessment").Range("N" & LR & ":N" & (LR + R_cnt) - 1).PasteSpecial xlPasteValues
Worksheets("Impact-Complexity Assessment").Range("P" & LR & ":p" & (LR + R_cnt) - 1).Value = "Yes"
MsgBox ("Impact Complexity Assessment Sheet Updated")
End Sub