I AM TRYING TO FIND THE MAX AGE FOR A PARTICULAR VALUE WITH THE FOLLOWING VBA CODE
THE SHEET STRUCTURE IS AS BELOW
<tbody>
</tbody>
Sub MAXAGE()
Sheets("MASTER").Select
Range("A2").Select
Do While ActiveCell.Value <> ""
CD = ActiveCell.Value
If ActiveCell.Offset(0, 3).Value = "NIA" And ActiveCell.Offset(0, 7).Value <> "" Then
Range("AC2").FormulaArray = Evaluate("=MAX(IF(A:A=CD,p:P))")
ActiveCell.Offset(0, 16).Value = Range("AC2").Value
End If
Sheets("MASTER").Select
ActiveCell.Offset(1, 0).Select
Loop
End Sub
GETTING RESULT AS #NAME?
CAN ANYBODY HELP
THE SHEET STRUCTURE IS AS BELOW
CLIENT CODE | SERIAL NUMBER | CLIENT NAME | COMPANY CODE | POLICY TYPE | POLICY SUB TYPE | VEHICLE NUMBER | DATE OF BIRTH | SUM INSURED | RES. TELEPHONE | OFF. TELEPHONE | MOBILE | ADDRESS | PAN CARD NUMBER | PASSPORT NUMBER |
<tbody> </tbody> |
<tbody>
</tbody>
Sub MAXAGE()
Sheets("MASTER").Select
Range("A2").Select
Do While ActiveCell.Value <> ""
CD = ActiveCell.Value
If ActiveCell.Offset(0, 3).Value = "NIA" And ActiveCell.Offset(0, 7).Value <> "" Then
Range("AC2").FormulaArray = Evaluate("=MAX(IF(A:A=CD,p:P))")
ActiveCell.Offset(0, 16).Value = Range("AC2").Value
End If
Sheets("MASTER").Select
ActiveCell.Offset(1, 0).Select
Loop
End Sub
GETTING RESULT AS #NAME?
CAN ANYBODY HELP
Last edited: