vba to autofill the formula

[PinakiB]

Hi,
I am working on a project where I require a formula to be autofilled till the last row. I am facing one issue regarding the autofill. I have two columns (example Column A and B) where data exists and I am writing a formula on Column C (C2). In column A and B data are variable meaning if column A contains data upto A80 then column B contains data upto B50 and the data can be changed for both the columns (A60 and B90). In this scenario when I am writing my formula in C2 and autofilling it is taking upto B column data only and if my A column is having large data than B rest data are not being autofilled. My purpose is to autofill the C column data following the large most column (A or B). Please help me to get rid of this issue.

CPU S/N	Serial Number	Compare B:A
PBP1FGP	PBP1FCT	Not Available
PBE460X	PBP1FGP	PBP1FGP
PBP1EWH	PBE460X	PBE460X
PBP1FMC	PBP1EWH	PBP1EWH
PBE462N	PBP1FMC	PBP1FMC
PBP1FNW	PBP1FNW	PBP1FNW
PBP1FBF	PBP1FBF	PBP1FBF
PBP1EWZ	PBP1EWZ	PBP1EWZ
PBP1FGH	PBP1FGH	PBP1FGH
PBE460N	PBE460N	PBE460N
PBP1FDD
PBE462W
PBE461C
PBP1FRA

<colgroup><col><col><col></colgroup><tbody>
</tbody>

 

[DILIPandey]

Hi PinakiB,

Use below code:-

Sub DILIPandey()
'fill down formula based on column A and B
a = Range("a" & Rows.Count).End(xlUp).Row
b = Range("b" & Rows.Count).End(xlUp).Row
    If a > b Then
        n = a
    Else
        n = b
    End If
Range("C2:c" & n).FillDown
End Sub

Regards,
DILIPandey

 

[PinakiB]

Hi DILIPandey,

It worked like a miracle..Its awesome really awesome..Thank you so much for your kind help..Its just worked what I was trying to find out. Thank you once again..

Regards,
Pinaki

 

[PinakiB]

It just worked like a miracle..Thank you so much DILIPandey for your code..I was trying to find out what exactly I received from you. Thank you so much Sir..

 

[DILIPandey]

You are welcome PinakiB.

Cheers

Regards,
DILIPandey