Hi everyone,
I need help combining two macros into the same sheet. Currently, I am building a status report and want to build some automation behind it. Here is currently the cells that are affected/need to be referenced:
Column G: QC Status (this is a data validation field - picklist of options. Options on a separate sheet)
Column H: Developer Status (this is a data validation field - picklist of options. Options on a separate sheet)
Column J: Next Action Item Due For (open box)
Column M: Date Completed (Date developer marks Column H "Completed")
Column N: Week Completed - (the week of the year the date falls in (formula based))
Column O: QC Date Completed (Date QC'er marks Column G as "Completed")
Currently, this marco is putting a date in column M based on Column H being moved to "Completed". I need to be able to run this macro, but also, I want to be able to the date the QC'er mark column G as completed and the date should be in column O.Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim rCell As Range Dim rChange As Range On Error GoTo ErrHandler Set rChange = Intersect(Target, Range("H:H")) If Not rChange Is Nothing Then Application.EnableEvents = False For Each rCell In rChange If rCell = "Completed" Then With rCell.Offset(0, 5) .Value = Date .NumberFormat = "m/d/yyyy" End With Else rCell.Offset(0, 5).Clear End If Next End If ExitHandler: Set rCell = Nothing Set rChange = Nothing Application.EnableEvents = True Exit Sub ErrHandler: MsgBox Err.Description Resume ExitHandler End Sub
I'm not as familiar with Macro's so I wasn't sure how to basically combine the same macro, just pulling different data in different places, on the same sheet.
I hope this makes sense! Thanks for your help!