Dear Experts
I need vba code to replace the entire col values depends upon 2 col vlaues..
i have basic code for this condition
IF CRM_LABOR_ITEM_STATUS (AC:AC) Apart From Closed,Complete,Cancel,Select rest of all option IF Action Owner(AL:AL) is TATA Replace Old Values by "SVC" In Status Column Then Replace Old Values by "CLOSED/Completed in CCI Portal" In Remarks Column
Find the Attachment & Code basic
Sub MyVersion()
Dim lngLastRow As Long
Dim rngCell As Range
Application.ScreenUpdating = False
With Worksheets("OPENCALLS")
lngLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
End With
For Each rngCell In Range("AH1:AH" & lngLastRow) 'PARTNER NAME
Select Case UCase(Cells(rngCell.Row, "Ac"))
Case "Complete"
rngCell.Value = "CLOSED"
End Select
Next rngCell
Application.ScreenUpdating = True
End Sub
Bookmarks